控制结构一、选择题1.VB 的3种结构化程序设计的3种基本结构是________。
A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、顺序结构 C) 过程结构、转向结构、递归结构 D) 选择结构、顺序结构、循环结构2.用If 语句表示分段函数3311()11x x f x x x ⎧-≥=⎨+<⎩ ，以下________表示方法不正确。
A) f=x^3+1If x>=1 Then f=s^3-1 B) If x>=1 Then f=x^3-1 If x<1 Then f=x^3+1 C) If x>=1 Then f=x^3-1 f=x^3+1D) If x<1 Then f=x^3+1 Else F=x^3-13.执行下面的程序段后显示结果是________。
Private Sub Form_Click() Dim mIf m Then Print m Else Print m+1 End SubA) 0 B) 1 C) ”” D) False4．设a=6，则执行x=IIf(a>5,-1,0)后，x 的值为________。
A) 5 B) 6 C) 0 D) –15．下面程序段的运行结果是________。
cj=85If cj>90 Then dj="A" If cj>80 Then dj="B" If cj>70 Then dj="C" If cj>60 Then dj="D" If cj<60 Then dj="E" Print "dj=";djA) dj=B B) dj=C C) dj=D D) dj=E6．下列语句正确的是________。
A) If K<3*N And k>N Then N=k^3 B) If K<3*N And k>N Then N=k3 C) If K<3*N : k>N Then N=k^3 D) If K<3*N And k>N Then N=k**37．设X=2.0，y=8.0，z=6.0，L=True ，则下列Visual Basic 表达式中值为True 的是________。
A) X+Z>Y AND L B) NOT(Y<Z+X)<>NOT L C) NOT L OR (L=Y+X=Z)D) Y+X>=Z+X AND (L AND FALSE)8．要判断”月收入在2000元以上（含2000元）且5000元以下（不含5000元）”的职工，应使用的逻辑表达式是________。
A) M>=2000 AND M<=5000 B) M>=2000 OR M<=5000 C) M>=2000 AND M<5000 D) M>=2000 OR M<50009．下列程序段的执行结果为________。
x=Int((69-60)*Rnd+60) Select Case x Case Is>90Print "优秀" Case 80 To 89 Print "良好" Case 60 To 79 Print "合格" Case ElsePrint "不合格" End SelectA) 优秀 B) 良好 C) 合格 D) 不合格 10．在窗体上画一个命令按钮，名称为Command1。
然后编写如下程序：运行结果________。
Private Sub Command1_Click() For I=1 To 4 For J=0 To IPrint Chr(65+I); Next J Print Next I End Sub单击命令按钮后，运行结果________。
A) BB B) ACCC BBDDDD CCCEEEEE DDDDC) B D) AACC BBBDDD CCCCEEEE DDDDD11．在窗体上画一个名称为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) 512．在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_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) 538 13．阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a的值为________。
A) 3 B) 9 C) 14 D) 2114．在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是________ 。
A)在文本框Text1中输出55B)在文本框Text1中输出0C) 出错D) 在文本框Text1中输出不定值15．有如下程序：a=10b=4For j=1 To 20 Step -2a=a+5b=b+4Next jPrint a;b运行后，输出的结果是________。
A) 10 4 B) 60 24 C) 110 44 D) 554016．有如下程序：d$=""a$="abcde"For i=Len(a) To 1 Step -1d=d+Mid(a,i,1)Next iPrint d$运行后，输出的结果是________。
A) abcde B) edcba C) acebd D) ecadb17．在Command1_Click事件程序的功能是：按顺序读入10名学生4门课程的成绩。
计算出每位学生的平均分并输出，程序如下：Dim n As Integer,k As IntegerDim score As Single,sun As Single,ave As Singlesum=0#For n=1 To 10For k=1 To 4score=InputBox("请输入一门课的成绩")sum=sum+scoreNext kave=sum/4print"第";n;"个人的平均成绩为：";aveNext n上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不正确。
这条语句是________。
A) sum=0# B) sum=sum+scoreC) ave=sum/4 D) print"第";n;"人的均分：";ave18．下列程序的输出结果是________。
Dim y As Integery=10While y<>0y=y-1WendPrint "y=" ; yA) y=0 B) y=1 C) y=随机值 D) y=-1 19．以下程序的输出结果是________。
Dim m As Integerm=1While m<=3m=m+1Print m;WendA) 2 B) 2 3 C) 2 3 4 D) 2 3 4 5 20．下面的程序运行结果是________。
Private Sub Form_Click()m=0Do Until 0m=m+1If m>10 Then Exit DoLoopPrint mEnd SubA) 0 B) 10 C) 11 D) 出错21．下面程序运行语句Print m执行的次数是________。
Private Sub Form_Click()Dim m As Integer,n As Integerm=0Dom=m+1For n=10 To 1 Step -3m=m+nPrint mNext nLoop While m<50End SubA) 4 B) 8 C) 12 D) 1622．在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是________。
A) 15和1 B) 27和3 C) 195和3 D) 600和423．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为________。
A) 1和0 B) 2和72 C) 3和50 D) 4和16824．在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x=-1a= InputBox("请输入A的值")a=Val(a)b=InputBox("请输入B的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)a=a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为________。