• 2022-05-29
    在窗体中添加一个命令按钮(名为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
  • B

    举一反三

    内容

    • 0

      在窗体上添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() A: A=75 B: If a<60 Then x=1 C: If a<70 Then x=2 D: If a<80 Then x=3 E: If a<90 Then x=4 F: MsgBox x G: End Sub H: 运行窗体,单击命令按钮,则消息框的输出结果是( I: )。A.1 J: 2 K: 3 D.4

    • 1

      在窗体中有1个命令按钮Command1和1个文本框Text1,编写事件代码如下: Private Sub Command1_Click() x = 3 For i = 1 To 4 x = x + 3 Next i Text1.Value =Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Textl输出的结果是( )。

    • 2

      在窗体上添加一个命令按钮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 Print x End Sub 程序运行后,单击命令按钮,显示结果为( )。

    • 3

      窗体上有一个名为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() i = 0 Do While i < 8 For j = 1 To i n = n + 1 Next i = i + 1 Loop Print n End Sub 运行程序,单击命令按钮,则输出结果是______。

    • 4

      在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1_ Click() Dim arr(4, 4) For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 3 + j Next j Next i For i = 1 To 2 For j = 1 To 2 Print arr(i, j) Next j Next i End Sub程序运行后,单击命令按钮,输出结果为______ 。 A: 3 4 6 7 B: 7 8 10 11 C: 1 2 4 5 D: 8 9 12 13