窗体上有一个命令按钮Command1,其Click事件过程如下: Private
Sub Command1_Click() Dim s As Integer s=2 Do While s< 8 s=s + 2 Loop MsgBox sEnd Sub 程序执行后单击命令按钮,则消息框的输出结果是____。
A: 6
B: 8
C: 10
D: 12
Sub Command1_Click() Dim s As Integer s=2 Do While s< 8 s=s + 2 Loop MsgBox sEnd Sub 程序执行后单击命令按钮,则消息框的输出结果是____。
A: 6
B: 8
C: 10
D: 12
举一反三
- 中国大学MOOC: 在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a - 1 Loop While a <= 0 Print s; aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。
- 编写如下程序： Private Sub Command1_Click() Dim n As Integer : Static s As Integer For n = 1 To 3 s = s + n Next Print s End Sub 程序运行后，第三次单击命令按钮Command1时，输出结果为
- 在窗体中有一个命令按钮(名为Command1),其事件代码如下: Private Sub Command1_Click() a = 1: b = 2: c = 6 MsgBox a = b + c End Sub, 运行该窗体后,单击命令按钮,则消息框的输出结果为( )。
- 窗体上有一个名为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 运行程序，单击命令按钮，则输出结果是______。
- 在窗体上画一个名称为 Command1 的命令按钮，然后编写下列通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click Dim i As Integer,s As Integer s=0 For i = 1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是