请阅读程序，写出程序运行结果

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的结果。

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

此题为判断题(对，错)。

B、赞助广告

C、主题图文广告

D、内容共建