27. 在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程: Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后,单击命令按钮,消息框的输出结果是______。
34. 在窗体中有一个名为Command1的命令按钮,Click事件代码如下: Private Sub Command1_Click() f=0 For n=1 To 10 Step 2 f=f+n Next n Me!Lb1.Caption=f End Sub 单击命令按钮后,标签显示结果是______。
35. 在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下: Private Sub Command1_Click() Dim i, j, x For i=1 To 20 Step 2 x=0 For j=i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框中显示的结果是______。
A.1
B.7
C.17
D.400
A B C D
A
[解析] 事件代码中有两个For循环,第一个For循环“For i=1 To 20 step2”变量i的初值为1,终值为20,步长为2,循环条件符合,执行语句“x=0”,为变量x赋值为0,从这里可以看出,无论循环执行多少次,在执行循环体时,x的值都将还原为0,通过这一点可知,最后一次循环的结果即为整个程序的运行值。再来看整个程序,第二个For循环“For j=i To 20 Step 3”,初值为i,终值为20,步长为3,那么可以知道,当i=1时,第二个循环执行7次;当i=3时,第二个循环执行6次,依此类推,当i=19时,第一个循环最后一次执行,那么把i=19代入到第二个循环中: 当i=19时,j=19,x=0+1:1。 此时j=j+3=19+3=22,22>20,循环条件不成立,循环结束。 至此,第一个For循环和第二个For循环都运行结束,所以x=1,通过语句“Text1.Value=Str(x)”将字符1显示在窗体的文本框中。所以本题答案为A。
36. 假定有以下循环结构: Dim a as Integer a=1 Do Until a>10 a=a+1 Loop 则正确的叙述是______。
37. 在窗体中有一个文本框Text1,编写事件代码如下: Private Sub Form_Click() X=val(InputBox("输入x的值")) Y=1 If X<>0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是______。