填空题

单击命令按钮后，下列程序代码的执行结果是______ 。 Public Sub fun (a As Integer, b As Integer, c As Integer) Do a=b+ c n=n+1 Loop While n ＞ 3 End Sub Private Sub command1_ click() Dim m As Integer, n As Integer, i As Integer For i = 0 To 2: m = n + 1: Next i For i = 1 To 2: Call fun (m, n, i): Next i For i = 0 To 3 Print m; Next i End Sub

【参考答案】

2 2 2 2

<上一题目录下一题>

热门试题

单项选择题

单击一次命令按钮之后，在对话框中输入12，2，34，23，窗体中的输出结果为______ 。 Private Sub Command1_ Click () Dim a(4) As Integer For i = 1 To 4 a (i) = Val (InputBox (“请输入元素”)) Next i plus a(1), a(2), a(3) End Sub Sub plus(first As Integer, second As Integer, third As Integer, Optional forth) n = first + second + third If Not IsMissing (forth) Then n = n + forth End If Print n End Sub

A．14
B．71
C．48
D．37

单项选择题

单击一次命令按钮之后，在对话框中输入10，20，30，40，窗体中的输出结果为______ 。 Private Sub Command1_ Click() Dim a(4) As Integer For i = 1 To 4 a(i) = InputBox (“请输入:”) Next i Call subper (a) For i = 1 To 4 Print a(i) Next i End Sub Sub subper (b () As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub

A．10 20 30 40
B．1 2 3 4
C．2 4 6 8
D．5 10 15 20

相关试题