1、VB笔试章节练习试卷 1及答案与解析 1 以下叙述中错误的是 _。 （ A）属性值的设置可以在属性窗口中设置，也可以在代码窗口中进行设置 （ B）对象与方法的典型语法结构为：对象名称 _方法名称 参数 （ C）对象的 “属性 ”或 “事件过程 ”都可以重新设置或修改，但是 “方法 ”的内容却是固定、不能修改的，而且是看不见的 （ D）事件 (Event)，是一种加在对象上的 “作用 ”，该作用是由 Visual Basic预先设置好的、能够被识别的动作 2 以下几种操作方法不能激活属性窗口的是 _。 （ A）执行 “视图 ”菜单中的 “属性窗口 ”命令 （ B）单击工具栏上的 “属性窗口 ”按
2、钮 （ C）选中对象后按住 Ctrl+Alt （ D）按 F4键 3 如果改变窗体的 BackColor属性，则改变了窗体的 _。 （ A）标题 （ B）名字 （ C）背景色 （ D）是否可见 4 下列叙述中正确的是 _。 （ A）双击鼠标可以触发 load事件 （ B）移动鼠标时会触发 MouseMove事件 （ C）窗体或控件的事件的名称可由编程人员确定 （ D）任何情况下，调用对象的方法时，对象的名字不可省略 5 以下属性不可用于改变控件位置的是 _。 （ A） Left （ B） Top （ C） Width （ D） Caption 6 在运行过程中，要将某窗体设置为不可见，可以设置
3、窗体的 _属性。 （ A） Left （ B） Caption （ C） Visible （ D） Name 7 以下属性可以用于改变控件大小的是 _。 （ A） Visible （ B） Width （ C） Left （ D） Caption 8 以下说法错误的是 _。 （ A）控件的名称可以由用户自己 设定 （ B）窗体的事件名称可以由用户编程时设定 （ C）单击窗体时，会触发 Form_Click事件 （ D）输入字符时，会触发 KeyPress事件 9 要使 Label控件中显示的文字超出它的宽度时能自动换行，应该把它的WordWrap属性设置为 _。 （ A） True （ B）
4、False （ C） 1 （ D） 0 10 以下控件不是标准控件的是 _。 （ A）驱动器列表框 （ B）计时器 （ C） ActiveX控件 （ D）命令按钮 11 下列可作为 Visual Basic变量名 的是 _。 （ A） 3*Delta （ B） PrintChar （ C） Abs （ D） A%D 12 下列可作为 Visual Basic中所允许的形式的数是 _。 （ A） 26.73 （ B） 3.785E-100 （ C） 399 （ D） 1.98E+50 13 下列可作为 Visual Basic中所允许的形式的数是 _。 （ A） 10 (1.377) （ B）
5、D32 （ C） 2.8E （ D） 12E4 14 数 1.21314151617181D+019写成普通的十进制 数是 _。 （ A） 12131415161718100 （ B） 121314151617181000 （ C） 1213141516171810000 （ D） 12131415161718100000 15 数 3.789E-12写成普通的十进制数是 _。 （ A） 0.00000000000003789 （ B） 0.0000000003789 （ C） 0.000000003789 （ D） 0.00000000003789 16 在窗体上画一个命令按钮 (名称为 C
6、ommand1)，然后编写如 下事件过程： Private Sub Command_Click() Static b As Integer b=b+1 End Sub运行程序，第 3次单击命令按钮后，变量 b的值为 _。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 17 设 a、 b、 c为整型变量，其值分别为 1、 2、 3，以下程序段的输出结果是_。 a=b： b=c： c=a Print a； b； c （ A） 1 2 3 （ B） 2 3 1 （ C） 3 2 1 （ D） 2 3 2 18 假设有如下的记录类型： Type Student number As Strin
7、g name AS String age As Integer End Type则正确引用该记录类型变量的代码是 _。 （ A） Student.Name=“林红 “ （ B） Dim s As Student s name=“林红 “ （ C） Dim s As Type student s name=“林红 “ （ D） Dim s As Type s name=“林红 “ 19 用随机函数产生 (100， 200)范围整数的表达式是 _。 （ A） Int(101*Rnd+100) （ B） Int(100*Rnd+100) （ C） Int(99*Rnd+100) （ D） Int(1
8、00*Rnd+99) 20 在程序中添加一个命令按钮和两个文本框，并在命令按钮中编写如下代码： Private Sub Command1_Click() a=Text1 Text b=Text2 Text c=LCase (A d=UCase (B)Print c； d End Sub程序运行后，在文本框中分别输入 ABCD和efgh，结果是 _。 （ A） abcdEFGH （ B） abcdefgh （ C） ABCDefgh （ D） ABCDEFGH 21 函数 Int(Rnd(0)*10)的取值范围是 _。 （ A） (0， 10) （ B） (0， 1) （ C） (1， 10)
9、（ D） (1， 2) 22 实现字符的 Unicode编写方式与 ANSI编写方式相互转换的函数是 _。 （ A） Str （ B） StrConv （ C） Trim （ D） Mid 23 从键盘上输入两个字符串，分别保存在变量 str1、 str2中，则确定第二个字符串在第一个字符串中起始位置的函数是 _。 （ A） Left （ B） Mid （ C） String （ D） Instr 24 Not、 Xor、 Or、 And这四个算术运算符优先级最低的是 _。 （ A） Not （ B） Xor （ C） Or （ D） And 25 设 a=2， b=3， c=4， d=5，则
10、表达式 a b And c= d And b c Or c d的值是 _。 （ A） Tree （ B） False （ C） -1 （ D） 1 26 以下关系表达式中，其值为 False的是 _。 （ A） ABC “AbC“ （ B） They “The“ （ C） VISUAL=UCase(“Visual“) （ D） Integer “Int“ 27 在 Visual Basic中，下列优先级最高的运算符是 _。 （ A） * （ B） （ C） （ D） Not 28 编写如下代码： Dim Flag As Boolean Private Sub Form MouseDown (B
11、utton As Integer, Shift As Integer, X As Single, Y As Single) Flag = True End Sub Private Sub Form MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) Flag = False End Sub Private Sub Form_ MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) If Flag = False
12、Then Print “DDDD“ End If End Sub 程序运行后，如果想在窗体上输出 DDDD，则应执行的操作为 _。 29 假定编写了如下事件过程： Private Sub Form MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button And 3) = 3 Print “AAAA“ End If End Sub 程序运行后，为了在窗体上输出 AAAA，应执行的操作是 _。 30 在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下事件过程： P
13、rivate Sub Form_ Lead() Show Text1.Text = “ “ Text2.Text = “ “ Text2.SetFocus End Sub Private Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer) Text1.Text = Text1.Text + Chr (KeyCode - 4) End Sub 程序运行后，如果在 Text2文本框中输入 efghi，则 Text1文 本框中的内容是_。 31 阅读程序； Option Base 1 Private Sub Form_ KeyPress
14、 (KeyAscii As Integer) art = Array(268, 542, 693, 365, 489, 147, 852) a1 = arr(1) a2 = 1 If KeyAscii = 13 Then For a = 2 To 6 If arr(i) a1 Then a1 = arr(i) a2 = i End If Next i End If Print a1; a2 End Sub 程序运行后，按回车键；输出结果是 _。 32 在窗体上画一个名为 Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_ Cl
15、ick() Dim arr arr = Array(358, 32, 46, 73, 23, 59, 26, 91, 583, 12) For i = _ For j = _ If arr(i) = arr(j) Then a = arr(j) arr(j) = arr(i) arr(i) = a End If Next j Next i For i = 1 To 10 Print arr(i); Next i End Sub 程序运行后，单击命令按钮，将把数组 arr中的 10个数按升序排序，请填空。 33 以下程序的功能是，产生 10个 0 1000之间的随机整数，放入数组 Arr中，然后
16、输出其中的最大值。请填空。 Option Base 1 Private Sub Form Click() Dim Arr(10) As Integer Dim Max As Integer Randomize For I = 1 To 10 Arr(i) = Int (Rnd * 1000) Next i Max= _ For i = 2 To 10 If_Then Max = Arr(i) End If Next i Print Max End Sub 34 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_ Click()
17、 Dim art(1 To 10) As Integer For i = 1 To 10 Art(i) = Int (Rnd * 100) Next i Max = arr(1) Min = arr(1) For i = 2 To 10 If arr(i) Max Then _ End If If arr(i) Min Then _ End If Next i Print “Max = “; Max, “Min = “; Min End Sub 以上程序的功能是，由程序产生 10个 100以内的随机 整数，放入数组 arr中，然后输出这 10个数的最大值 Max和最小值 Min，请填空。 35
18、 下列程序用于输出一个主对角线上元素值为 “*”，其他元素值为 “#”的 55阶的方阵，试将程序补充完整。 Private Sub Command1_Click() Dim x(5, 5) For i = 1 To 5 For j = 1 To 5 If _Then x(i, j) = * Else _ End If Print _ Next j Print Next i End Sub VB笔试章节练习试卷 1答案与解析 1 【正确答案】 B 2 【正确答案】 C 3 【正确答案】 C 4 【正确答案】 D 5 【正确答案】 D 6 【正确答案】 C 7 【正确答案】 B 8 【正确答案】
19、B 9 【正确答案】 A 10 【正确答案】 C 11 【正确答案】 B 12 【正确答案】 C 13 【正确答案】 D 14 【正确答案】 D 15 【正确答案】 A 16 【正确答案】 D 17 【正确答案】 D 18 【正确答 案】 B 19 【正确答案】 A 20 【正确答案】 A 21 【正确答案】 A 22 【正确答案】 B 23 【正确答案】 D 24 【正确答案】 B 25 【正确答案】 B 26 【正确答案】 A 27 【正确答案】 A 28 【正确答案】 按下鼠标左键或右键同时松开 29 【正确答案】 把鼠标光标移到窗体上，然后同时按住鼠标左键、右键，并移动鼠标 30 【正确答案】 ABCDE 31 【正确答案】 693 3 32 【正确答案】 1 To 9 或 1 To UBound (arr) -1 , i + 1 To 10 或 i + 1 To UBound (arr) 33 【正确答案】 Arr(1) , Arr(i) Max 34 【正确答案】 Max = arr (i), Min = arr(i) 35 【正确答案】 i=j , x(i,j)=“#“ , Print x(i,j)；
