n=n-m:
Loop
Loop
MyBM=m
EndFunction
[A]0
[B]1
[C]3
[D]5
[参考答案]B
[详细解答]：
此题程序代码中，被调过程采用了DoWhile......Loop的嵌套语句结构，主调过程只调用了一次被调过程，PrintMyBM（23，18）语句表明，程序最后输出的只是被调过程的返回值。
主调过程在调用被调过程MyBM时，把数值23，18分别传给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为5，然后循环调用，直到m=n，而由语句MyBM=m可看出，此过程的返回值就是m的值，即1。
15.在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。
然后编写如下事件过程：
PrivateSubCommand1_Click（）
CommonDialogl.FileName=""
CommonDialogl.Filter="AllFile｜*．*｜（*．Doc.｜*．Doc｜（*．Txt）｜*．Txt"
CommonDialogl.Filterlndex=2
CommonDialogl.DialogTitle="VBTest"
CommonDialogl.Action=1
EndSub对于这个程序，以下叙述中错误的是
[A]该对话框被设置为"打开"对话框
[B]该对话框的标题为VBTest
[C]B）在该对话框中指定的默认文件名为空
[D]在该对话框中指定的默认文件类型为文本文件（*．Txt）
[参考答案]D
18.窗体文件的扩展名是
[A]．bas
[B]．cls
[C]．frm
[D]．res
[参考答案]C
[详细解答]：
.bss为程序模块文件的扩展名；．cls为类模块文件的扩展名；．res为相关资源文件的扩展名，.frm为窗体文件的扩展名，所以选项[C].是正确的。
19.编写如下事件过程：
PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
PrintChr（KeyCode）;
EndSub
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
PrintChr（KeyAscii）
EndSub在一般情况下（即不按住Shift键和锁定大写键时）运行程序，若按"T"键，则程序输出的结果是
[A]T T
[B]t T
[C]T t
[D]t t
[参考答案]C
[详细解答]：
考查考生对键盘事件的掌握程度。
【解题要点】KeyPress事件和KeyDown事件各参数的含义。
【考点链接】Click事件和DblClick事件的运用。
20.设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是
[A]PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle）
IfButton=2ThenPopupMenuBt,2
EndSub
[B]PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle）
PopupMenuBt
EndSuh
[C]PrivateSubFormMouseDown（ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle）
PopupMenuBt,0
EndSub
[D]PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle）
If（Button=vbLeftButton）Or（Button=vbRightButton）ThenPopupMenuBt
EndSub
[参考答案]A
[详细解答]：
在VisualBasic中，允许出现快捷菜单，对用户来说，提供了很大的方便，一般来说，菜单都在窗口的顶部，有时，用户需要执行菜单中的某一命令，就得把鼠标移动到窗口顶部，然后打开菜单选择命令，这对用户来说，会觉得麻烦。
而快捷菜单并不需要到窗口的顶部来打开，只要单击鼠标右键，就会弹出菜单。
设计快捷菜单仍然可以用VisualBasic中提供的菜单编辑器，只要把某个菜单设置成隐藏就可以了，实际上，不管是在窗口顶部菜单条上显示的菜单还是隐藏的菜单，都可以用PopupMenu方法把它们作为快捷菜单在运行时显示出来。
PopupMenu方法的使用形式如下：
[对象]．PopupMenu菜单名，标志，x，y 其中，x，y是提供菜单显示的位置；标志：
指定快捷菜单的行为。
当标志为0时，快捷菜单中的项只能对鼠标左键起反应；当标志为2时，快捷菜单中的项对鼠标右键和左键都反应；标志为2时，PopupMenu方法只能用在MouseDown事件过程中。
21.下面的属性中，用于自动调整图像框中图形内容的大小的是
[A]Picture
[B]CurentY
[C]CurrentX
[D]Stretch
[参考答案]D
[详细解答]：
本题的目的在于考查学生对图形控件的属性设置。
Picture属性用于窗体、图片框和图像框，它可以通过属性窗口设置，用来把图形放到这些对象中，因此选项[A].是不正确的；CurrentX和CurrentY用来设置下一个输出的水平坐标和垂直坐标，因此选项[B].和[C].都不正确；Stretch属性用于图像框，用于自动调整图像框中图形内容的大小，既可通过属性窗口设置，也可以通过程序代码设置，该属性的取值为True或False，当其值为False时，将自动放大或缩小图像框中的图形以与图像框的大小相适应，因此选项[D].是正确的。
22.对话框在关闭之前，不能继续执行其他操作，这种对话框属于
[A]输入对话框
[B]输出对话框
[C]模式（模态）对话框
[D]无模式对话框
[参考答案]C
[详细解答]：
对话框的主要特点是：
不必有最大化按钮和最小化按钮，对话框中通常设置有退出按钮，用于退出对话框。
VisualBasic有两类对话框：
一类是对话框关闭之前，不能执行其他操作，称之为"模式"对话框；另一类是对话框关闭之前，能够继续执行其他操作，称之为"无模式"对话框。
23.设在窗体上有个文本框，然后编写如下的事件过程：
PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
ConstAlt=4
ConstKey_F2=&H71
altdown%=（ShiftAndAlt）>0
f2down%=（KeyCode=Key_F2）
Ifaltdown%Andf2down%Then
Text1.Text="BBBBB"
EndIf
EndSub上述程序运行后，如果按【Shift+F2】，则在文本框中显示得是
[A]Alt+F2
[B]BBBBB
[C]随机出几个数
[D]文本框平均内容无变化
[参考答案]D
[详细解答]：
此题是有关KeyDown事件的题目，KeyDown是当一个键被按下时所产生的事件，而KeyUp是松开被按的键时产生的事件，如果要判断是否按下了某个转换键，可以用逻辑运算符And。
例如：
先定义了下面3个符号常量：
ConstShift=1，ConstCtrl=2，ConstAlt=4；然后用下面的语句判断是否按下Shift、Ctrl、Alt键；如果ShiftAndShift＞0，则按下了Shift键； 如果ShiftAndCtrl＞0，则按下了Ctrl键；如果ShiftAndAlt＞0，则按下了Alt键； 这里的Shift时Key]Down的第二个参数；此事件过程中的If后的条件语句如果为真， 则是按下了Alt+F2，而本题目中是按下了Shift+F2，所以不执行Then语句，即文本框的内容无变化。
24.在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
s=1
Do
s=（s+1）*（s+2）
Number=Number+1
LoopUntils>=30
PrintNumber,s
EndSub
程序运行后，输出的结果是
[A]23
[B]256
[C]512
[D]1020
[参考答案]B
[详细解答]：
[题解]命题目的:
考查考生对循环控制结构的掌握程度。
【解题要点】Number记录循环次数，S＞=30为控制语句，当Number=1时，s=6；当Number=2时s=56＞30，故结束运行。
【考点链接】Do...LoopWhile、DoWhile...Loop等结构
25.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
strText=InputBox（"请输入"）
Text1.Text=strText
EndSub
PrivateSubText1_Change（）
Label1.Caption=Right（Trim（Text1.Text）,3）
EndSub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
[A]空
[B]abcdef
[C]abc
[D]def
[参考答案]D
[详细解答]：
26.如果设置窗体的ControlBox属性值为False，则
[A]ControlBox仍起作用
[B]运行时还可以看到窗口左上角显示的控制框，可以单击该控制框进行窗体的移动和关闭等操作
[C]窗口边框上的最大化和最小化按钮失效
[D]窗口边框上的最大化和最小化按钮消失
[参考答案]D
[详细解答]：
如果窗体的ControlBox属性设置为False，则窗口边框上的按钮都消失，选项[D].正确；并且窗口左上角的控制按钮也消失，不能用控制框来进行窗体的移动和关闭等操作，所以选项[B].是错误的；此时ControlBox属性不起作用，所以选项[A].也是错误的。
28.要使文件列表框中的文件随目录列表框中所选择的当前目录的不同而发生变化，应该
[A]在File1中的Change事件中，输入File1．Path=Dir1．Path
[B]在Dirl中的Change事件中，输入File1．Path=Dir1．Path
[C]在File1中的Change事件中，输入Dir1．Path=File1．Path
[D]在Dir1中的Change事件中，输入Dir1．Path=File1．Path
[参考答案]B
[详细解答]：
此题考查的是文件列表框与目录列表框的关联问题。
当用户触发文件的Change事件时，文件的列表随着目录位置的改变而改变，其中目录为源操作数，位于等号右边，文件为目的操作数，位于等号的左边，所以正确答案为[B].选项。
29.当组合框的Style属性设置为何值时，组合框称为简单组合框?
[A]0
[B]1
[C]2
[D]3
[参考答案]B
[详细解答]：
[题解]命题目的:
考核对组合框的熟悉程度。
【解题要点】Style属性用来决定控件类型及列表框部分行为，其值取0，1，2。
。
-DropdownComboBox:
此时组合框称为"下拉式组合框"，看上去像一个下拉列表框，但是可以输入文本或从下拉列表框中选择表项。
1-SimpleComboBox：
此时组合框称为"简单组合框"，它由一个文本编辑区和―个标准列表框组成。
2-DropdownListBox：
此时组合框称为"下拉式列表框"．它的外观和下拉式组合框一样，右端也有一个箭头，可供"拉下"或"收起"列表框，可以从下拉列表框选择表项，也可以键入表项的文本作选择，但不接收其他文本输入。
30.在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:
OptionBase1
PrivateSubCommand1_Click（）
Dima
s=0
a=Array（1,2,3,4）
j=1
Fori=4To1Step-1
s=s+a（i）*j
j=j*10
Nexti
Prints
EndSub
运行上面的程序，单击命令按钮，其输出结果是
[A]4321
[B]1234
[C]34
[D]12
[参考答案]B
[详细解答]：
31.通过设置何属性可以改变所画图形的形状?
[A]Shape
[B]Index
[C]Enabled
[D]Height
[参考答案]A
[详细解答]：
[题解]命题目的:
考查考生对形状控件的熟悉程度。
【解题要点】VisualBasic中，利用控件可以在窗体上画矩形，通过设置Shape属性可以画出圆、椭圆和圆角矩形。
因此答案[A].是正确的；选项[C].Enabled是设置有效性的；选项[B].Index是索引
升级会员 