问题描述:
1.Private Sub Form_Click()
Dim i As Integer,k AsInteger,c As Integer
For i = 1 To 5
If i Mod 3 = 0 Then
k = k + 2
Else
c = c + 3
End If
Next i
Print k,c
End Sub
写出程序运行时单击窗体后,Form1上的输出结果.
2.PrivateSub Form_Click()
Static Sum As Integer
For i = 1 To 6
Sum = Sum + i
Next i
Print Sum
EndSub
写出程序运行时点击窗体两次后,变量Sum的值.
3.PrivateSub Command1_Click()
Dim X As Integer,Y As Integer
X = 1 :Y = 1
For i = 1 To 3
For j = 1 To i
Y = Y + j
Next j
X = X + Y
Next i
Print X
EndSub
写出程序运行时单击命令按钮后,窗体Form1上的输出结果.
Dim i As Integer,k AsInteger,c As Integer
For i = 1 To 5
If i Mod 3 = 0 Then
k = k + 2
Else
c = c + 3
End If
Next i
Print k,c
End Sub
写出程序运行时单击窗体后,Form1上的输出结果.
2.PrivateSub Form_Click()
Static Sum As Integer
For i = 1 To 6
Sum = Sum + i
Next i
Print Sum
EndSub
写出程序运行时点击窗体两次后,变量Sum的值.
3.PrivateSub Command1_Click()
Dim X As Integer,Y As Integer
X = 1 :Y = 1
For i = 1 To 3
For j = 1 To i
Y = Y + j
Next j
X = X + Y
Next i
Print X
EndSub
写出程序运行时单击命令按钮后,窗体Form1上的输出结果.
问题解答:
我来补答展开全文阅读