1、1单选题1. 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是 A) Left B) Mid C) String D) Instr答案：D 难度：1 评析：第 3 章 VB 语言基础2. 数学表达式3x10在VB中的逻辑表达式为 A） 3=3 OR x0 D) I=6 do I=I-2Loop until I=1答案：C 难度：1 评析：第 4 章 VB 控制结构4. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click()Dim num As Integernum
2、 =1Do Until num6Print num;num=num+2.4LoopEnd Sub2程序运行后，单击命令按钮，则窗体上显示的内容是A) 1 3.4 5.8 B) 1 3 5C) 1 4 7 D) 无数据输出答案：B 难度：1 评析：第 4 章 VB 控制结构5. 下列程序的执行结果是_。Dim s,n as integers=0:n=1Do Until n5s=s+nn=n+1LoopPrint sA) 100 B) 50 C) 25 D) 15 答案：D 难度：1 评析：第 4 章 VB 控制结构6. 可以退出循环的语句是（ ） 。A) End Sub B) Exit Do C
3、) Exit Function D) End If答案：B 难度：1 评析：第 4 章 VB 控制结构7. 当条件为真（True）时，执行循环体的循环语句是（ ） 。A) Do WhileLoop B) Do UntilLoop C) DoUntil LoopD) ForNext 答案：A 难度：1 评析：第 4 章 VB 控制结构8. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()x=0n=InputBox(“)3For i=1 To nFor j=1 Toix=x+1Next jNext iPrint xEnd
4、Sub程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是A）3B）4C）5D）6答案：D 难度：1 评析：第 4 章 VB 控制结构9. 在窗体上画一个名称为Command1的命令按钮，然后编写如下代码:Option Base 1Private Sub Command1_Click()d=0c=10x=Array(10, 12, 21, 32, 24)For i= 1 To 5If x(i) c Thend=d+x(i)c=x(i)Elsed=d-cEnd If Next iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为A) 89 B) 99 C)
5、 23 D) 77答案：C 难度：1 评析：第 4 章 VB 控制结构10. 在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:Private Sub Commandl_Click()For n=1 To 20If n Mod 3 3 then goto AAD) for x=1 to 10 step 3.next y答案：A 难度：1 评析：第 4 章 VB 控制结构12. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n A
6、s Integer For I=0 To 50 i=i+3 n=n+1 If i10 Then exit for Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是A) 2 B) 3 C) 4 D) 5答案：B 难度：1 评析：第 4 章 VB 控制结构513. 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While xnP
7、rint xEnd Sub答案：C 难度：1 评析：第 4 章 VB 控制结构16. 下列程序的执行结果是_。Dim s,n as integers=0:n=1Do Until n5s=s+n7n=n+1LoopPrint sA) 100 B) 50 C) 25 D) 15 答案：D 难度：1 评析：第 4 章 VB 控制结构17. 如下数组声明语句，_正确。A) Dim a2,3 as integer B) Dim a(2,3) as integer C) Dim a(n,n) as integer D) Dim a(2 3) as integer 答案：B 难度：1 评析：第 5 章数组和
8、自定义类型18. 数组声明语句为Dim A(3,-2 TO 2)，则数组a包含元素的个数有 。A) 15 B) 20 C) 12 D) 24答案：b 难度：1 评析：第 5 章数组和自定义类型19. 设数组a有N个元素，并已经按递增次序排列，下面_程序段可以使a数组的元素按递减次序排列。A) for i=1 to Na(N-i+1)=a(i)next iB) for i=1 to N/2a(i)=a(N-i+1)next iC) for i=1 to Nt=a(i)a(i)=a(N-i+1)a(N-i+1)=tnext iD) for i=1 to N/2t=a(i)a(i)=a(N-i+1)
9、a(N-i+1)=tnext i8答案：D 难度：1 评析：第 5 章数组和自定义类型20. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程Option Base 0Private Sub Command1_Click()Dim city As VariantCity=Array(“北京“，“上海“，“天津“，“重庆“)Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白B) 错误提示C) 北京D) 上海答案：D 难度：1 评析：第 5 章数组和自定义类型21. 能够声明动态数组的语句是（ ）A) Dim S（1 To 10
10、）As Integer B) Dim W（5，5） As LongC) Dim G（9）As String D) Dim Y（） As Integer答案：D 难度：1 评析：第 5 章数组和自定义类型22.ComboBox组合框的类型设置用属性A) Style B) DragMode C) ItemData D) ImeMode答案：A 难度：1 评析：第 5 章数组和自定义类型23. 设窗体上有一个列表框控件Listl，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是A) Listl.List B) Listl.ListIndexC) Listl.Index D) Listl.
11、Text答案：D 难度：1 评析：第 5 章数组和自定义类型24. 设组合框Combol中有3个项目，则以下能删除最后一项的语句是A) Combol.RemoveItem TextB) Combol.RemoveItem 2C) Combol.RemoveItem 3D) Combol.RemoveItem Combol.Listcount答案：B 难度：1 评析：第 5 章数组和自定义类型925. 使用哪个方法可以向列表框中添加项目。A) AddItem B) ClearC) RemoveItem D) SetFocus答案：A 难度：1 评析：第 5 章数组和自定义类型26. 在窗体上画一
12、个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A) Private Sub List1_Click()Label1.Caption=List1.ListIndexEnd SubB) Private Sub List1_Chick()Label1.Name=List1.ListIndex End SubC) Private Sub List1_click()Label1.Name=List1.TextEnd SubD) Private Sub List1_Click()
13、Label1.Caption=List1.Text End Sub答案：D 难度：1 评析：第 5 章数组和自定义类型27. 主过程通过参数传递将一个参数传递给子过程A，并返回一个结果，下列子过程定义正确的是_ 。A) Sub A(m+1,n+2) B) Sub A(byval m!,byval n!) C) Sub A(byval m!,n+2) D) Sub A(byval m!,n!) 答案：D 难度：1 评析：第 6 章过程28. 若要编写一些Sub子过程，并能从多个窗体中访问这些过程，最好将它们放在什么中。A) 标准模块 B) 窗体 C) 类模块 D) 以上都不可以答案：A 难度：1
14、 评析：第 6 章过程29. 设有如下通用过程:Public Function f(x As Integer)Dim y As Integerx=2010y=2f=x*yEnd Function在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程:Private Sub Command1_Click()Static x As Integerx=10y=5y=f(x)Print x;yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A) 10 5 B) 20 5C) 20 40 D) 10 40答案：C 难度：1 评析：第 6 章过程30. 设有如下的记录类型Type StudentNumber As StringName As StringAge As IntegerEnd Type则正确引用该记录类型变量的代码是A) Student.name=“张红“B) Dim s As Students.name=“张红“C) Dim s As Type Students.name=“张红“D) Dim s As Type s.name=“张红“答案：B 难度：1 评析：第 5 章数组和自定义类型
