阅读以下程序,写出运行结果: 以上程序运行的结果是:

B．0．250000

C．0．500000

D．1．000000

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．b

C．c

D．程序语法出错