VB习题1.docVIP

一、选择题 1.系统启动后默认的工具箱中有________个标准控件对象。 A) 10 B) 15 C) 20 D) 25 2.如果在窗体上画一个命令按钮C1，然后，编写如下事件过程： Private Sub C1_Click() Dim num As Integer num=1 Do Until num 6 ? num; num=num+2.4 Loop End Sub 那末，程序运行后，单击命令按钮，其窗体上显示的结果是 A) 1 3.4 5.8 B) 1 3 5 C) 1 4 7 D) 无数据输出 3.如果在窗体上画一个命令按钮Command1和一个文本框Text1，然后，编写如下事件过程： Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j Sqr(i) Then Print i Next i End Sub 那末，程序运行后，在文本框中输入一个正整数，单击命令按钮，窗体上显示的结果是 A) n以内的奇数 B) n以内的偶数 C) n以内的素数 D) n以内被j整除的数 4.若要得到列表框中项目的数目，可以访问哪个属性 A) List B) ListIndex C) ListCount D) Text 5.如果在窗体上画一个命令按钮Command1，然后，编写如下事件过程： Private Sub Command1_Click() Dim i, x As Integer For i=1 To 6 If i=1 Then x=i If i=4 Then x=x+1 Else x=x+2 End If Next i ?x End Sub 那末，程序运行后，单击命令按钮，窗体上显示的结果是 A) 9 B) 6 C) 12 D) 15 6.下列选项中，不属于同类的是________。 A) Caption B) Click C) Name D) Height 7. 循环语句用于控制循环体的 A) 顺序执行 B) 重复执行 C) 选择执行 D) 不执行 8. 如果在窗体上画一个命令按钮C1和两个标签L1和L2，然后，编写如下事件过程： Private Sub C1_Click() a=0 For i=1 To 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i L1.Caption=Str(a) L2.Caption=Str(b) End Sub 那末，程序运行后，单击命令按钮，标签L1和L2显示的结果分别是 A) 10 和 20 B) 20 和 110 C) 200 和 110 D) 110 和 20 9. 当在窗体上放置一个控件时，就________。 A) 将类转换为对象 B) 将对象转换为类 C) 将变量转换为对象 D) 将对象转化为变量 10. 下面选项中哪个是算术运算符 A) % B) C) Mod D) And 11. 若使标签框根据所显示内容自动调整其大小，则可以通过设置哪个属性值为True来实现 A) AutoSize B) Alignment C) Enabled D) Visible 12. 窗体的单击事件过程如下： Private Sub Form_Click() Dim check,counter check=true counter=0 Do Do While counter20 counter=counter+1 If counter=10 Then check=False Exit Do End If Loop Loop Until check=False ?counter,check End Sub 程序运行后，单击窗体，窗体上显示的结果是 A) 15 0 B) 20 -1 C) 10 True D) 10 False 13. 执行下列程序后屏幕上显示的是________ i%=10 : sum=0 While i1 Sum=sum+i i=i-1 Wend Print sum A) 无显示 B) 显示10 C) 显示54 D) 显示55 14. 如果在窗体上画一个命令按钮Command1，然