阅读下列程序并写出程序运行结果。Private Sub Form_Click()Dim A(1 To 3) As StringDim c As I

阅读下列程序并写出程序运行结果。

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

有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum=0

For i=1 To 10

If arr(i)/3=arr(i)\3 Then

End If

Next i

End Sub

程序运行后，单击窗体，消息框的输出结果为()。

阅读下列程序并写出程序运行结果。

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

下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub

A．1

B．12

C．11

D．32

运行下列程序：

Dim b

Private Sub Form_Click()

a = 1: b = 1

Call fun1(a)

Print "X = "; a; ",Y = "; b

End Sub

Private Sub fun1(a)

b = 2 * a

a = 3 * b

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.X = 1，Y = 1

B.X = 2，Y = 6

C.X = 6，Y = 2

D.X = 6，Y = 1

阅读下面的程序：

Private Sub Form_Click()

Dim Check As Boolean，Counter As Integer

Check=Tree

Counter=5

DO

DO While Counter＜20

Counter=Counter+1

If Counter=10 Then

Check=False

Exit Do

End if

Loop

Loop Until Check=False

Print Counter

End Sub

程序运行后，单击窗体，输出结果为【 】。

运行下列程序：

Private Sub Form_Click()

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

Do

x = x + y

Loop Until x > 10

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.5

B.1 2 3 4 5

C.19

D.7

运行下列程序：

Private Sub Form_Click()

Dim x As Integer, y As String, z As String

y = "12345"

For x = 1 To Len(y)

z = Mid(Left(y, x), 1)

Next x

Print z

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.1

B.11111

C.55555

D.12345