期末试卷(B卷)

1、项目1项目2项目3项目4项目5项目9项目8项目6项目7项目102014年Visual Basic程序教程期末考试试卷（B卷）（考试时间90分钟，满分100分）一、选择题（135题，每题1分，共35分）下面各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂抹在答题卡相应的位置上，答在试卷上不得分。1与传统的程序设计语言相比，Visual Basic最突出的特点是（ ）A 结构化程序设计B程序开发环境C 事件驱动编程机制 D程序调试技术2为了用键盘打开菜单和执行菜单命令，第一步应按的键是（ ）A功能键F10或Alt B Shift+功能键F4C Ctrl或功能键F8D Ctrl+A

2、lt3下列可以激活属性窗口的操作是（ ）A 用鼠标双击窗体的任何部位B 执行“工程”菜单中的“属性窗口”命令C 按Ctrl+F4键D 按F4键4确定一个控件在窗体上的位置的属性是（ ）A Width或HeightBWidth和HeightCTop或Left DTop和Left5确定一个窗体或控件的大小的属性是（ ）AWidth或Height B Width和HeightC Top或LeftD Top和Left6为了同时改变一个活动控件的高度和宽度，正确的操作是（ ）A 拖拉控件4个角上的某个小方块B 只能拖拉位于控件右下角的小方块C 只能拖拉位于控件左下角的小方块D 不能同时改变控件的高度和宽

3、度7若窗体的名称（Name属性）为Form1，则把窗体的标题设为“VB Test”的语句为（ ）A Form1=”VB Test”B Caption=”VB Test”CForm1.Text=”VB Test”D Form1.Name=”VB Test”8下列不能打开代码窗口的操作是（ ）A 双击窗体上的某个控件B 双击窗体C 按F7键D单击窗体或控件9为了在按下ESC键时执行某个命令按钮的事件过程，需要把该按钮的哪个（ ）属性设为TrueA ValueB DefaultC CancelD Enabled10用菜单编辑器创建菜单时，如果要在菜单中添加一条分隔线，正确的操作是（ ）A 在标题输入

4、框中输入“”（减号）B 在名称输入框中输入“”（减号）C 在标题输入框中输入“_”（下划线）D 在名称输入框中输入“_”（下划线）11在Visual Basic中，下列优先级最高的运算符是（ ）A*BCDNot12以下关系表达式中，其值为False的是AXYZ XYz BVisual Basic visualbasicCthe there DInteger Int13设有如下声明：Dim x As Integer 如果Sgn(x)的值为-1，则表示x的值是（ ）A整数B大于0的整数C等于0的整数D小于0的整数14下列表达式中值为-6的是（ ）AFix(-5.678)BInt(-5.678)CF

5、ix(-5.678+0.5)DInt(-5.678+0.5)15以下语句的输出结果是（ ）Print 3 + 4 5 * 6 /7 Mod 8A3B4C5D616下列可作为Visual Basic 的变量名的是（ ）A3*DeltaBPrintCharCAbsDAB17下列可作为Visual Basic 的变量名的是（ ）AFilenameBA(A+B)CA%DDPrint18下列可作为Visual Basic 中所允许的形式的数是（ ）A25.74B3.457E-100C.368D1.87E+5019下列可作为Visual Basic 中所允许的形式的数是（ ）A10(1.256)BD32C

6、2.5ED12E320下面（ ）的数写成普通的十进制数是 2.65358979335278D-006A0.0000265358979335278B0.00000265358979335278C0.000265358979335278D0.00000026535897933527821如果一个窗体的ControlBox属性被设置为False，则隐藏的是标题栏上的（ ）A按钮和 按钮，而显示其他按钮 B 按钮，而显示其他按钮C按钮和左上角的控制菜单按钮，而显示其他按钮 D 所有按钮22若窗体中有个名为CD1的通用对话框控件，则在程序中可打开保存文件对话框的语句是（ ）A CD1.Action=2

7、B CD1.ShowSave=TrueC CD1.ShowOpen D CD1.Action23在窗体上画一个命令按钮和一个文本框，然后编写如下程序：Private Sub Command1_Click() a = 10 t = 旅游景点： _ & IIf(a 3, 长城, ) _ & IIf(a 8, 故宫, ) _ & IIf(a 7, 颐和园, ) Text1.Text = tEnd Sub程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）A旅游景点：长城故宫B旅游景点：长城颐和园C旅游景点：颐和园 D旅游景点：故宫24在窗体上画两个名称分别为Label1和Label2的标签，然后

8、编写如下事件过程Private Sub Form_Click() x = -5: s = -5 Select Case s Case Is 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Label1.Caption = x Label2.Caption = yEnd Sub程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是（ ）A-5和-2B-5和-4C-5和-3 D-5和-525设置复选框或单选按钮标题对齐方式的属性是（ ）AAlignBAlignmentCSortedDValue26以下

9、叙述中正确的是（ ）A用属性窗口只能设置窗体的属性B用属性窗口只能设置控件的属性C用属性窗口可以设置窗体和控件的属性D用属性窗口只能设置对象的属性27.假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（ ）APrint 25B Picture1.Print 25C Text1.Print 25 DDebug.Print 2528以下语句的输出结果是（在立即窗口中）（ ）a=27 (为回车，下同)b=65Print a;bA 27 65 B 27 65 C 27 65 D 27 65 (表示空格，下同)29以下语句的输出结果是（在立即窗口中）（ ）a=Beijing

10、b=ShangHai Print a;b ABeijing ShangHaiB Beijing ShangHaiC BeijingShangHai DBeijing ShangHai 30语句Print 5*55/5的输出结果是（ ）A5 B25 C 0 D 131设a、b、c为整型变量，其值分别为1、2、3，以下程序段的输出结果是a=b : b=c : c=aPrint a; b; cA 1 2 3 B 2 3 1 C) 3 2 1 D) 2 3 232语句Print Sgn(-62)+Int(-62)+Int(62)的输出结果是A -36 B 1 C -1 D -7233当一个工程含有多个

11、窗体时，其中的启动窗体是A 启动Visual Basic时建立的窗体B 第一个添加的窗体C 最后一个添加的窗体D 在“工程属性”对话框中指定的窗体34关于多重窗体应用程序，以下描述中不正确的是（ ）A 对于多重窗体应用程序，可以有多个当前窗体B 多重窗体应用程序的启动窗体可以在设计时设定C 多重窗体应用程序中每个窗体作为一个磁盘文件保存，所有窗体、标准模块等作为一个工程文件被保存D 多重窗体应用程序可以编译生成一个exe文件35当拖动滚动条中的滚动块时，将触发滚动条的事件是（ ）A MoveBChangeCScrollD SetFocus二、填空题（每空2分，共30分）请将每一个空的正确答案写

12、在答题卡【1】【15】序号的横线上，答在试卷上不得分。注意以命令关键字填空的必须拼写完整。1退出VB的快捷键是 【1】_。2工程文件的扩展名是 【2】_，窗体文件的扩展名是 【3】_。3属性窗口分为4个部分，分别是 【4】_， 【5】_， 【6】_， 【7】_。4在窗体上画两个文本框和一个命令按钮，并在命令按钮的代码窗口中编写如下事件过程 Private Sub Command1_Click()Text1.Text = VB Programming Text2.Text = Text1.Text Text1.Text = ABCDEnd Sub程序运行后，单击命令按钮，两个文本框中显示的内容分

13、别为 【8】_和 【9】_。5假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello”，所使用的语句为 【10】_。6以下语句的输出结果是 【11】_。Print chr$(65) (为回车，下同)7以下语句的输出结果是 【12】_。Print sgn(2) 8.语句Print 25+32=; 25+32的输出结果是 【13】_。9.以下语句的输出结果是 【14】_。s$=Chinas$=BeijingPrint s$10以下程序段的功能是 【15】_。x = 8.6y = Int(x + 0.5) Print y三、分析下列程序，写出程序的运行结果。（每题5分，共20分）

14、请将每一个空的正确答案写在答题卡【1】【5】序号的横线上，答在试卷上不得分。1Sub newQuestion() Dim intOp1 As Integer, intOp2 As Integer, intTemp As IntegerDim strOprator As StringDim intOpratorNum As IntegerRandomizeintOp1 = Int(10 * Rnd + 1) intOp2 = Int(10 * Rnd + 1) intOpratorNum = Int(4 * Rnd + 1) Select Case intOpratorNum Case 1str

15、Oprator = +: intAnswer = intOp1 + intOp2Case 2strOprator = :If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = intTempEnd IfintAnswer = intOp1 - intOp2Case 3strOprator = : intAnswer = intOp1 * intOp2Case 4strOprator = If intOp1 intOp2 Then intTemp = intOp1: intOp1 = intOp2: intOp2 = i

16、ntTempEnd IfIf intOp1 Mod intOp2 0 ThenintOp1 = intOp1 - intOp1 Mod intOp2End IfEnd Select lblQuestion为标签lblQuestion.Caption = intOp1 & & strOprator & & intOp2 & = End Sub上述程序功能是： 【1】_2Private Sub Form_Click() Dim a(1 To 2, 1 To 2) As Integer Dim i As Integer, j As Integer For i = 1 To 2 For j = 1 T

17、o 2 a(i, j) = (2 * i - 1) * 4 + j Next j Next i For i = 1 To 2 Print a(i, 3 - i), a(3 - i, i) Next iEnd Sub程序运行后，单击命令按钮，输出结果是 【2】_3Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3: b = 2 Call f(8, a) Print a=; a, b=; b Call f(a, b) Print a=; a, b=; bEnd SubPrivate Sub f(ByVal x As Integer, y As Integer) x = x + 1 y = y - 1End Sub程序运行后，单击窗体，输出结果为 【3】_4若有如下窗体模块：Dim a As IntegerPrivate Sub test() Dim b As Integer a = a + 1: b = b + 1 Print Sub: ; a, bEnd SubPrivate Sub Command1_Click() a = 2: b = 3 Call test Call testEnd Sub程序运行后，单击窗体，输出结果是 【4】_四、