A) Do … Loop Until 1=1 B) Do Until 1=1 … Loop C) Do … Loop While 1=1 D) Do While 1=1 … Loop
51. 一个对象可以执行的动作和可被对象识别的动作分别称为（ ）。
A)
B) C) D)
方法、事件 事件、方法 方法、属性 事件、属性
52. 一只白色的足球被踢进球门，则白色、足球、踢、进球门是（ ）。
A) 属性、对象、方法、事件
B) 属性、对象、事件、方法 C) C.对象、属性、方法、事件 D) 对象、属性、事件、方法
53. 如下程序运行时出现错误，错误的原因是 。
Private Type stu x As String y As Integer End Type
Private Sub Command1_Click() Dim a As stu, a2(1 To 4, 1 To 4) a.x = \a.y = 12345 Print a End Sub
A) Type定义语句没有放在标准模块中 B) 变量声明语句有错 C) 赋值语句不对 D) 输出语句Print不对
54. 以下关于弹出式菜单的叙述中，错误的是 。
A) B) C) D)
一个窗体只能有一个弹出式菜单 弹出式菜单在菜单编辑器中建立
弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为False 弹出式菜单通过窗体的方法PopupMenu显示
55. 以下CASE语句中错误的是 。
A) case 0 to 10 B) case is >10
C) case is >10 and is <50 D) case 3,5,is >10
56. 将字符型数据转换成数值型数据的函数是 。
A) Str() B) Val() C) Sring() D) Instr()
57. 以下叙述中错误的是 。
A、在程序运行时，通用对话框是不可见的。
B、同一个程序中，用不同方法（如showopen或showsave等）打开的通用对话框具有不同的作用。
C、调用通用对话框控件的showopen方法，可以直接打开在该通用对话框中指定的文件。 D、调用通用对话框控件的showcolor方法，可以打开颜色对话框。 58. 下列对象中，不属于标准控件的是 。
A、单选按钮 B、图片框 C、通用对话框 D、文本框 二、填空题
1. 写出与Print “y”;iif(y mod 2 = 1 ,”是奇数”,”是偶数”)等价的if语句是
if y mod 2=1 than print Y& ”是奇数” else print y & “是偶数”
2. 已知数组a的上界为top，下界为bot，那么在使用折半查找法时中点mid的表达式为
mid = (top + bot)/2
3. 要使定时器对象Timer1在程序运行起作用，除了要设置其Interval值不为零以外，还必须将其
Enabled 属性值设置为 Ture。
4. 随机产生一个小写英文字母的表达式为：Chr ( Int( Rnd ( )* 26+97))。 5. 在VB中，声明静态变量的关键字是： Static。
6. 在用菜单编辑器设计菜单时，必须输入的菜单项是： 名称 。 三、简答题
1. 阅读以下程序，回答下列问题。 Private Sub Form_Click() Dim c%,d%,y% c=10:d=20 x=add1(c,d) print c,d,x End Sub Public Function add1(ByVal a%, b%) a = 2 * a b = b + 100 add1 = a + b End Function ①上述程序中，哪些是c,d形参、哪些是a,b实参？ ②上述程序中，实参和形参之间采用什么样的数据传递方式？c,d 地址 a,b數值 ③执行Form_Click()事件过程，窗体上显示的内容是？ 10,12,1200 2. 下面程序可正确运行。简述其功能。
Dim a(), x%, y%, z%, t%
a = Array(12, 23, 44, 78, 98, 31, 20, 18, 19, 31, 39, 76, 59, 83, 69, 72, 80, 90) For x = LBound(a) To UBound(a) - 1 z = x
For y = x + 1 To UBound(a) If a(y) < a(z) Then z = y Next y
t = a(z): a(z) = a(x): a(x) = t Next x
For x = LBound(a) To UBound(a) If a(x) Mod 2 = 1 Then Print a(x); Next x
将数据a的元素按升序方式排列，将数组元素值为奇数的元素显示在窗体上
相关推荐：
loading