1、1. 列表框 属性，无论是在设计时还是在运行时都是不能修改的。A) ListB) SortedC) ListCountD) Multiselect2. 在组合框 Combo1 中有 3 个项目，能删除最后一项的语句是 。A) Combo1.RemoveItem IndexB) Combo1.RemoveItem 3C) Combo1.ClearD) Combo1.RemoveItem 23. 下列语句中正确的是 。A) Dim a%(20) as integerB) n =10：Dim a(n)As IntegerC) Dim a$( )：a=Split(“经济，政治，哲学，文学，地理 ”,
2、“,”) D) Dim a%( ) ：a=Array(2,3,4,5,6)4. 执行下列程序段，窗体上显示的是 。Dim a(10) as integera(0)=1:a(1)=1For i = 2 To 10a(i) = a(i-1) +a(i-2)Next iFor i=3 to 5Print a(i);Next i A) 3 5 8 B) 1 1 2 C)1 2 3 D)1 1 2 3 55. 执行下列程序段，窗体上显示的是 。Private Sub Form_Click()Dim a()a = Array(5, 6, 8, 4, 3, 7)For i = LBound(a) To UB
3、ound(a)k = iFor j = i + 1 To UBound(a)If a(j) 637. 产生10,37 之间的随机整数的 VB 表达式是 。A) Int(Rnd*27)+10B) Int(Rnd*28)+10C) Int(Rnd*27)+11D) Int(Rnd*28)+1138. 没有 Value 属性的控件是 。A) ListBoxB) HScrollBarC) CheckBoxD) OptionButton39. Select Case End Select 属于 控制结构语句。A) 选择B) 顺序C) 循环D) 列表40. 执行下列程序段，窗体上显示的是 。For i =
4、 1 To 5For j = i To 5Print Tab(3 * j); i;Next jNext iA）1 1 1 1 12 2 2 23 3 34 45B）1 2 3 4 52 3 4 53 4 54 55C）1 2 3 4 52 2 2 23 3 3 4 45D）1 1 1 1 12 2 2 23 3 34 4541. 执行下列程序段，窗体上显示的是 。M = 10I = 1Do While I =90 ThenB）Select Case markprint ”优秀 ” ElseIf mark=80 Thenprint ”良好 ” ElseIf mark=70 Thenprint ”
5、较好 ” ElseIf mark=60 Thenprint ”及格 ” Elseprint ”不及格 ”End IfCase Is=90print ”优秀 ” Case Is=80print ”良好 ” Case Is=70print ”较好 ” Case Is=60print ”及格 ” Case Elseprint ”不及格 ”End SelectC)If mark=60 Thenprint ”及格”ElseIf mark=70 Thenprint ”较好” ElseIf mark=80 Thenprint ”良好” ElseIf mark=90 Thenprint ”优秀”Elsepri
6、nt ”不及格”End IfD)If mark=90 Then print ”优秀” If mark=80 And mark=70 And mark=60 And mark10C) case is 10 and is 1056. 将字符型数据转换成数值型数据的函数是 。A) Str()B) Val()C) Sring() D) Instr()57. 以下叙述中错误的是 。A、在程序运行时，通用对话框是不可见的。B、同一个程序中，用不同方法（如 showopen 或 showsave 等）打开的通用对话框具有不同的作用。C、调用通用对话框控件的 showopen 方法，可以直接打开在该通用对话框
7、中指定的文件。D、调用通用对话框控件的 showcolor 方法，可以打开颜色对话框。58. 下列对象中，不属于标准控件的是 。A、单选按钮B、图片框C、通用对话框D、文本框二、填空题1. 写出与 Print “y”;iif(y mod 2 = 1 ,”是奇数”,”是偶数”)等价的 if 语句是if y mod 2=1 than print Y Next x将数据 a 的元素按升序方式排列，将数组元素值为奇数的元素显示在窗体上Private Sub Form_Click()Dim c%,d%,y%c=10:d=20x=add1(c,d)print c,d,xEnd SubPublic Function add1(ByVal a%, b%)a = 2 * ab = b + 100add1 = a + bEnd Function
