VBA模块习题.ppt

在窗体上添加一个命令按钮command1，代码如下： Private Sub command1_Click() A=75 If A60 Then I=1 If A70 Then I=2 If A80 Then I=3 If A90 Then I=4 MsgBox I End Sub 打开窗体后单击命令按钮，消息框的输出结果是（） A 1 B 2 C 3 D 4 Private Sub command1_Click() A=75 If A60 Then I=1 ElseIf A70 Then I=2 ElseIf A80 Then I=3 ElseIf A90 Then I=4 End If MsgBox I End Sub I=1 在窗体上添加一个文本框Text1，代码如下： Private Sub Form_Click() x=Val(InputBox(“请输入x的值”)) y=1 if x0 then y=2 text1.value=y End Sub 打开窗体后在输入框中输入12，text1的输出结果是（） A 1 B 2 C 3 D 4 下列Case语句中错误的是（） A Case 0 To 10 B Case Is10 C Case Is10 And Is 50 D Case 3,5,Is10 流程控制：循环结构1 For 循环变量=初值 to 终值 [Step 步长] 循环体 Next 循环条件 语句 循环体 No Yes Do While 循环条件 循环体 Loop Do Until 循环条件 循环体 Loop 循环条件 语句 循环体 No Yes While 循环条件 循环体 Wend 流程控制：循环结构 循环条件 语句 循环体 No Yes Do 循环体 Loop While 循环条件 Do 循环体 Loop Until 循环条件 循环条件 语句 循环体 Yes No 不论条件是否为真，至少执行一次循环体 在窗体上添加一个命令按钮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 打开窗体后单击命令按钮，消息框的输出结果是（） A 7 B 15 C 157 D 538 i=4 x=4 j=1 x=3 k=1 x=x+6=3+6=9 k=2 x=x+6=3+6=15 j=2 x=3 k=1 x=x+6=3+6=9 k=2 x=x+6=3+6=15 运行以下程序段： X=2 Y=4 Do x=x*y y=y+1 Loop While y4 X的值是（） A 2 B 4 C 8 D 20 在窗体上添加一个命令按钮command1，代码如下： Private Sub command1_Click() s=“ABBACDDCBA” for i=6 to 2 step -2 x= mid (s,i,i) y= left (s,i) z= right (s,i) z=x y z next I MsgBox z End Sub 打开窗体后单击命令按钮，消息框的输出结果是（） A. AABAAB B. ABBABA C. BABBA D BBABBA s=“ABBACDDCBA” i=2 x=mid(s,2,2)=“BB” y=left(s,2)=“AB” z=right(s,2)=“BA” z=x y z =“BBABBA” 窗体代码如下： Private Sub Form_Click() a=1 for I=1 to 3 select case I case 1,3 a=a+1 case 2,4 a=a+2 end select next I MsgBox a End Sub 打开窗体后单击窗体，结果是（） A 3 B 4 C 5 D 6 窗体代码