第3章控制结构习题

1、一、选择题1.在窗体上放置一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:Private Sub Command1_Click()a = InputBox(请输入数字(131)t = 广州旅游景点:& IIf(a0 And a10 And a20 And a=10,Is=7Print I=; IPrint x=; xA) I4x5B) I7x15 C) I6x8D) I10x77.假定有如下事件过程：Private Sub form_Click() Dim x As Integer, n As Integer x = 1: n = 0 Do While x

2、=6 Print Number, sEnd Sub程序运行后，输出的结果是 。A) 2 3 B) 3 18 C) 1 8 D) 10 20 9. 程序运行后，输出的结果是 。Private Sub Form_Click() Dim Check, Counter Check = True: Counter = 0 Do Do While Counter 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do Loop Loop Until Check = False Print Counter, CheckEnd S

3、ub程序运行后，单击窗体，输出结果为： 。A）15 0 B）20 -1 C）10 true D)10 false10在窗体中添加两个文本框（Text1和Text2）和一个命令按钮（Command1），然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x 10 then exit forNext iPrint nA）2 B）3 C）4 D) 515执行以下程序后，窗体显示 。x = 1For k = 1 To 3If k = 1 Then a = x * xIf k = 3 Then a = x * x + 2Print aNext kA）

4、1 2 3 B）2 2 3 C）2 3 4 D) 1 2 4二、填空题1、执行下面的程序，单击窗体后在窗体显示的第一行结果是 ；第三行结果是 Private Sub Form1_Click()Dim Mystr AS String,Mystr1 AS String, Mystr2 AS StringMystr1=”B”For I=1 To 3Mystr2=Lcase(Mystr1)Mystr1=Mystr1+Mystr2Mystr=Mystr+Mystr1Print MystrMystr1=Chr(Asc(Mystr1)+1)Next IEnd Sub2、以下程序为找出50以内能构成直角三角形

5、的整数数组。Private Sub Command1_Click()For a=1 to 50For b=a to 50c=Sqr(a2+b2)If Then Print a;b;cNext b Next aEnd Sub3、运行下面程序，单击窗体后在窗体上显示的内容是 ；若将程序中的A语句与B语句的位置互换，再执行程序后，单击窗体上显示的内容是 。Private Sub Form1_Click()Dim x AS Integer,y AS IntegerX=1:y=0Do while x3y=y+x A语句x=x+1 B语句LoopPrint x,yEnd Sub答案：1、D 2、B、 3、C 4、C 5、B 6、D 7、A 8、