VB笔试选择题复习资料

1、读书破万卷 下笔如有神 选择题 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。 请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 1、在设计程序时，应采纳的原则之一是 A）不限制goto语句的使用 B）减少或取消注解行 C）程序越短越好 D）程序结构应有助于读者理解 【参考答案】 D） 2、 在窗体支持的事件中，由系统自动触发的事件是事件。 A）Load和Unload B）Click和DblClick C）Initialize和Load D）MouseDown和MouseUp 【参考答案】C） 3、以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句

2、是 A）Form1.Name=“VisualBasic窗体” B）Form1.Title=“VisualBasic窗体” C）Form1.Caption=“VisualBasic窗体” D）Form1.Text=“VisualBasic窗体” 【参考答案】C） 4、设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是 A）把Caption属性设置为&Open B）把Caption属性设置为O&pen C）把Name属性设置为&Open D）把Name属性设置为O&pen 【参考答案】A）

3、5、下列程序执行后，变量s的值为（ ） Dim s As Long, x As Integer s = 0 x = 1 Do While x 4 Print “分支2” Case Else Print “Else分支” End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是 A）分支1 B）分支2 C）Else分支 D）程序出错 【参考答案】C） 7、声明一个变量为局部变量应该用 A） Global B） Private C） Static D） Public 【参考答案】C） 8、执行x$=InputBox（“请输入x的值”） 时，在弹出的对话框中输入1

4、23，在列表框List1选中1个列表项（数据为456） ，使有的值使123456的语句是 A） y=x$+List1.List（0） B） y=x$+List1.List（1） C） y=Val(x$) + Val(List1.List(0) D） y=Val(x$） & Val(List1.List(1) 【参考答案】A） 、下列语句的输出结果为9读书破万卷 下笔如有神 Print Format（5689.36， “000，000.000”） A）5，689.36 B）5，689.360 C）5，689.3 D）005，689.360 【参考答案】D） 10、下面有关注释语句的格式，错误的是

5、 A）Rem注释内容 B）注释内容 C）a=3:b=2 对a、b赋值 D）Private Sub Command1_MouseDown（button As Integer ， shift As Integer ， _ Rem 鼠标按下事件的命令调用过程 X As Single ，Y As Single） 【参考答案】D） 11、设有如下程序段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后，x的值是 A） 26 B）27 C）38 D）57 【参考答案】B） 12、以下叙述中错误的是 A）在KeyPress事件过程中不能识别键盘的按下与释放 B）在Ke

6、yPress事件过程中不能识别回车键 C）在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同的字母 D）在KeyDown和KeyUp事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符 【参考答案】B） 13、 当在滚动条内拖动滚动块时触发 A） KeyUp事件 B） KeyPress事件 C） Scroll事件 D） Change事件 【参考答案】C） 14、 设有声明语句 Dim b（-1 To 10， 2 To 9， 20） As Integer 则数组b中全部元素的个数 A） 2310 B） 2016 C） 1500 D） 1658 【

7、参考答案】B） 16、 设有如下过程： Sub ff（x，y，z，） x=y+z End Sub 以下所有参数的虚实结合都是传址方式的调用语句是 A） Call ff（5，7，z） B） Call ff（x，y，z） C） Call ff（3+x，5+y，z） D） Call ff（x+y，x-y，z） 【参考答案】B） 17、 设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则无效？ A） Style B） Caption C） Enabled D） Default 【参考答案】A） 18、 通常情况下，垂直滚动条的值是 A） 由下往上递增 B） 由上往下递增 C）

8、由左到右递增 D） 由右到左递增 【参考答案】B） 19、 下列程序段的执行结果为 a=95 If a60 Then I=1 If a70 Then I=2 If a80 Then I=3 If a90 Then I=4 Print “I=”; I A） I1 B） I2 C） I3 D） I4 【参考答案】D） 20、 下列程序段的执行结果为 a=1 b=0 Select Case a 读书破万卷 下笔如有神 Case 1 Select Case b Case 0 Print “0” Case 1 Print “1” End Select Case 2 Print “2” End Selec

9、t 2 D） C） 0 B） 3 1A）【参考答案】A） 21、下面程序段执行结果为 x=Int（Rnd（）+ 3） Select Case x Case 5 Print “excellent” Case 4 Print “good” Case 3 Print “pass” Case Else Print “fail” End Select A）excellent B）good C）pass D）fail 【参考答案】C） 22、计算z的值，当x大于y时，z=x；否则z=y。下列语句正确的是 A）If x=y Then z=x ： z=y B）If x=y Then z=x Else z=y

10、C）z=y ： If x=y Then z=x D）If xx Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 A） 12 B）123 C）345 D）45 【参考答案】D） 26、假定一个工程由一个窗体文件Form1和两个标准模块文件Modell及Model2组成。 Modell代码如下： Public x As Integer Public y As Integer Sub S1（） x=1 S2 End Sub Sub S2（） y=10 Form1.Show End Sub Model2的代码如下： Sub Main（）

11、S1 End Sub 其中Sub Main被设置为启动过程。 程序运行后，各模块的执行顺序是 A）Form1Model1Model2 B）Model1Model2Form1 C）Model2Model1Form1 D）Model2Form1Model1 【参考答案】C） 27、 在窗体上画一个命令按钮，然后编写如下程序： Private Sub Command4_Click（） Dim a As Integer， b As Integer a=1 b=2 Print N（a， b） End Sub Function N（x As Integer， y As Integer） As Intege

12、r N=IIf（x y， x， y） End Function 程序运行后，单击命令按钮，输出结果为 A） 1 B） 2 C） 5 D） 8 【参考答案】B） 28、对建立良好的程序设计风格，下面描述正确的是（ ） A）程序应简单、清晰、可读性好 B）符号名的命名只要符合语法 C）充分考虑程序的执行效率 D）程序的注释可有可无 【参考答案】 A 29、表达式4 + 7 / 8 Mod 9的值是_。 A）4 B）5 C）6 D）7 【参考答案】B 30、设a=2,b=3,c=4,d=5,下列表达式的值是_. 32*b OR a=c AND bc OR cd A）1 B）1 C）False D）t

13、rue 【参考答案】C _. 下列表达式的值是a=2,b=3,c=4,d=5,、设31读书破万卷 下笔如有神 Not a=c or 4*c=b2 and ba+c A）1 B）1 C）False D）true 【参考答案】C 32、用下面语句定义的数组元素个数是 Dim arr(3 to 5,-2 to 2) A）20 B）12 C）15 D）24 【参考答案】C 33、能够获得一个文本框中被选取文本内容的属性是（ ） A）text B）sellength C）seltext D）selstart 【参考答案】C 34、将文本框的（ ）属性设置为true时，文本矿可以输入或显示多行文本，且会在

14、输入内容超出文本框的宽度时自动换行 A）multiline B）scrollbars C）text D）enabled 【参考答案】A 35、阅读下面的程序段： For I = 1 To 3 For j = 1 To I For k = j To 3 a=a+1 Next k Next j Next I 执行上面的三重循环后，a的值为_。 A）3 B）9 C）14 D）21 【参考答案】C 36、以下程序的输出结果为（ ） Dim x As Integer, y As Integer x = 1 y = 4 Do Until y 4 x = x * y y = y + 1 Loop Print

15、 x A）4 B）8 C）12 D）16 【参考答案】A 37、在窗体上画一个命令按钮，编写如下程序： Sub inc(a As Integer) Static x As Integer x = x + a Print x; End Sub 读书破万卷 下笔如有神 Private Sub Command1_Click() inc 2 inc 3 inc 4 End Sub 运行程序后，单击命令按钮，输出结果为 A）2 5 9 B）2 3 4 C）2 3 5 D）9 【参考答案】A 38、假定有以下两个过程： Sub s1(ByVal x As Integer, ByVal y As Integ

16、er) Dim t As Integer t = x x = y y = t End Sub Sub s2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t End Sub 则以下说法正确的是 A）用过程s1可以实现交换两个变量的值的操作，s2不能实现 B）用过程s2可以实现交换两个变量的值的操作，s1不能实现 C）用过程s1和s2都可以实现交换两个变量的操作 D）用过程s1和s2都不能实现交换两个变量的操作 【参考答案】B 39、编写如下事件过程： Private Sub Form_MouseMove(Button

17、As Integer, Shift As Integer, X As Single, Y As Single) If (button And 3) = 3 Then Print AAAA End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为 A）左 B）右 C）同时按下左、右 D）按什么键都不显示 【参考答案】C 40、在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char = Chr(KeyAscii) KeyAscii =

18、 Asc(UCase(char) Text1.Text = String(6, KeyAscii) 读书破万卷 下笔如有神 End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容 为 A）a B）A C）aaaaaa D）AAAAAAA 【参考答案】D 41、假定有一个菜单项，名为Menuitem，为了在运行时使该菜单失效（变灰），应使用的语句为 A）Menuitem.Enabled=false B）Menuitem.Enabled=true C）Menuitem.Visible=false D）Menuitem.Visible=true 【参考答案】A 42、执行语句Open”c:Studata.dat” for input as #2后，系统（ ） A）将C盘当前文件夹下名为Studata.dat的文件的内容读入内存 B）在C盘当前文件夹下建立名为Studata.dat的顺序文件 C）将内存数据存放在C盘当前文件夹下名为Studata.dat的文件中 D）将某个磁盘文件的内容写入C盘当前文件夹下名为Studata.dat的文件中 【参考答案】A 43. 在随机文件中，下列正确的