B.10 9 8 7 6 5 4 3 2 1
C.1 2 3 4 5 换行 6 7 8 9 10
D.10 9 8 7 6 换行5 4 3 2 1
A、H e
B、Hello,World ello,World
C、Hello,World Hello,World
D、ello,World ell,World
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "8"
A(3) = "12"
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后,窗体Form1上的结果。
Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = y + 3
Form1.Print "x="; x, "y="; y
End Sub
写出程序运行时连续单击三次窗体后,Form1上的输出结果。
Public Sub change1(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Public Sub change2(x As Integer, y As Integer)
Dim t As Integer
t = x
x = y
y = t
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 22: b = 33
change1 a, b
Form1.Print "A1="; a, "B1="; b
a = 22: b = 33
change2 a, b
Form1.Print "A2="; a, "B2="; b
End Sub
写出程序运行时,单击窗体Form1上的输出结果。
Private Sub Command1_Click()
x = 0
Do While x < 60
x = (x + 3) * (x + 4)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
写出程序运行后,文件框Text3的结果。
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!