VB控制结构一、单选题1. 下面的程序运行后，显示的结果是________。
Dim x%If x Then Print x+1 Else Print xA） 1 B） 0 C）显示错误信息 D） 22. 语句If x = 1 Then y = 1, 下面说法正确的是______。
A） x = 1 和 y = 1均为赋值语句B） x = 1 和 y = 1均为关系表达式C） x = 1 为赋值语句，y = 1 为关系表达式D） x = 1 为关系表达式，y = 1 为赋值语句3. 下面分段函数 , 下面不正确的程序段是______。
A） If x >= 1 then f=sqr(x+1) B） If x >= 1 then f=sqr(x+1) f=x*x+3 If x < 1 then f=x*x +3C） If x >= 1 then f=sqr(x+1) _ D） If x < 1 then f=x*x +3 _ Else f = x*x +3 Else f=sqr(x+1)5. 下面的程序段，显示的结果是 ______。
Dim xx= Int(RnD） + 5Select Case xCase 5Print “优秀”Case 4Print “良好”Case 3Print “及格”Case ElsePrint “不及格”End SelectA）不及格 B）良好 C）及格 D）优秀6. 下面程序段求两个数中较大数，________不正确。
A） Max = IIF(x > y, x, y)B） If x > y Then Max = x Else Max = yC） Max = xIf y >= x Max = yD） If y >= x Max = yMax = x7. 下列循环语句能正常结束的是________。
A） i = 5 B） i = 1Do Doi = i + 1 i = i + 2Loop Until i < 0 Loop Until i = 10 C） i = 10 D） i = 6Do Doi = i - 1 i = i - 2Loop Until i < 0 Loop Until i = 1 12. 变量未赋值时，数值型变量的值为______。
A）0 B）空串"" C）ll D）没任何值13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n=1 To 20If n Mod 3<>0 then m=m+n\3Next nprint nEnd sub程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A）15 B）18 C）21 D）2414. 窗体中存在命令按钮Command1，其Click事件代码如下：Private Sub Command1_Click()X = 2Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0End Sub程序运行后，单击命令按钮，输出结果为______。
A）True B）False C）-1 D）115. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。
x=IIf((a>B） And (c>D） , 10, 20)A）10 B）20 C）True D）False16. 执行以下程序段a$= "abbacddcba"For i = 6 To 2 Step -2X= Mid(a,i,i)Y= Left(a,i)Z= Right(a,i)Z= UCase(X & Y & Z)Next iPrint z输出结果为______。
A）ABA B）BBABBA C）ABBABA D）AABAAB17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234c1=Trim(Str(C）)For i=1 To 4Print ____NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在下划线处应填入的内容为______。
A）Right(c1,i) B）Left(c1,i) C）Mid(c1,i,1) D）Mid(c1,i,i)18. InputBox函数返回值的类型为______。
A）数值 B）字符串C）变体 D）数值或字符串（视输入的数据而定）19．MsgBox函数返回值的类型为______。
A）整型数值 B）字符串C）变体 D）数值或字符串（视输入的数据而定）20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a=InputBox("Enter an Integer")b=InputBox("Enter an Integer")Text1.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A）108 B）18 C）810 D）出错21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Integer,s As Integera=8s=1Doa=a-1Loop While a<=0Print s;aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）7 9 B）34 0 C）9 7 D）死循环23. 以下能够正确计算n!的程序是______。
A）Private Sub Command1_Click()N = 5 : X = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd SubB）Private Sub Command1_Click()N = 5 : x = 1 : i = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd SubC）Private Sub Command1_Click()N = 5 : x = 1 : i = 1Dox = x * ii = i + 1Loop While i <= nEnd SubD）Private Sub Command1_Click()N = 5 : x = 1 : i = 1Dox = x * ii = i + 1Loop While i > nPrint xEnd Sub24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum=1Do Until num>6Print num;num=num+2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出25. 设有如下程序段x=2For i=1 to 10 step 2x=x+iNext运行以上程序后，X的值是______。
A）36 B）27 C）38 D）5726. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是______。
A）2 B）3 C）4 D）527. 下列程序段的执行结果为______。
X=6For K=1 To 10 Step -2X=X+KNext KPrint K;XA）-1 6 B）-1 16 C）1 6 D）11 3128. 执行以下程序段Dim x As Integer, i As Integerx = 0For i = 20 To 1 Step -2x = x + i \ 5Next i后，x的值为______。
A）16 B）17 C）18 D）1929. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To nFor j=2 To Sqr(i)If i Mod j=0 Then Exit ForNext jIf j>Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是______。
A）输出n以内的奇数 B）输出n以内的偶数C）输出n以内的素数 D）输出n以内能被j整除的数30. 新建立窗体中画一个命令按钮，其中事件代码如下：For x=4 To 1 Step -1For y=1 To 5-xPrint Tab(y+5);"*";Next yPrintNext x窗体运行后，单击命令按钮，输出结果是______。
A）**** B）* C）***** D）**** ** **** *** ** *** *** ***** * **** **31. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是______。
A）7 B）15 C）157 D）53832. 在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为______。
Private Sub Command1_Click()K=0For J=1 To 2For I=1 To 3K=I+1Next IFor I=1 To 7K=K+1Next INext JPrint KEnd SubA）10 B）6 C）11 D）1633. 在窗体上画一个命令按钮和两个标签，其名称分别为Command1）Label1和Label2，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 10a=a+1b=0For j=1 To 10a=a+1b=b+2Next jNext iLabel1.Caption=Str(A）Label2.Caption=Str(B）End Sub程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。