举一反三
- 设有以下窗体单击事件过程: 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 打开窗体运行后,单击窗体,则消息框的输出内容是
- 下列程序的输出结果是 。 Private Sub exam1() 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
- 若有以下窗体单击事件过程: Private Sub Form_Click() result=1 For i=1 To 6 Step 3 result=result*i Next i MsgBox result End Sub 打开窗体运行后,单击窗体,则消息框的输出内容是( )。
- 在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码： Private Sub Command1 Click( ) A＝75 If A＞60 Then I＝1 If A＞70 Then I＝2 If A＞80 Then I＝3 If A＞90 Then I＝4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。 A: 1 B: 2 C: 3 D: 4
- 有程序段For i=1 To 3 : Select Case i : Case 1,3 : a=a+1 : Case 2,4 : a=a+2 : End Select : Next i”,如果程序运行后,a的结果为5,则可判断出a的初始值为
内容
- 0
请阅读程序： Private Sub Form_Click() m=1 For i=4 To 1 Step-1 Print str(m); m=m+1 For j=1 To i Print "*"; Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是______。 A: 1**** 2*** 3** 4* B: 4**** 3*** 2* 1* C: **** *** **** * D: * ** *** ****
- 1
在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click( ) A=75 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。 A: 1 B: 2 C: 3 D: 4
- 2
在窗体上添加一个命令按钮，编写如下事件过程： Private Sub Command1_Click() sum=0 For i=3 To 7 sum=i+2 Next i MsgBox sum+i End Sub 运行窗体后，单击命令按钮，消息框的输出结果是______。
- 3
编写如下程序: Private Sub Command1_Click； Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后,单击命令按钮Command1,输出结果为 A: BBB B: CCC C: AAA D: 1
- 4
运行下列程序，单击窗体显示的结果为（ ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub