题目内容
（请给出正确答案）
运行下面的程序，单击窗体后在窗体上显示的内容是（）。
Private Sub Form_Click()
For i = 1 To 10 Step 2
Print I;
Next I
End Sub
如果结果不匹配，请 联系老师 获取答案
更多“运行下面的程序，单击窗体后在窗体上显示的内容是（）。Priv…”相关的问题
程序为：
Private Sub Form_Click()
Dim a
a = Array(1, 2, 3, 4, 5, 6, 7)
For I = LBound(a) To UBound(a)
a(I) = a(I) * a(I)
Print a(I)
Next I
End Sub
程序运行后，单击窗体后，在窗体显示的结果是：
在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dima As Variant
a=Array(1，2，3，4)
j=1
Fori=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是()。
A、4321
B、12
C、34
D、1234
Option base 1 Private sub command1_click() Dim a(3,3) For I=1 to 3 For j=1 to 3 If j＞1 and I＞1 then a(I,j)=a(a(I-1,j-1),a(I,j-1))+1 else a(I,j)=I*j end if print a(I,j);” “; next j print next I end sub 程序运行后，单击命令按钮后，在窗体显示的结果是？
阅读下列程序并写出程序运行结果。
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 proc(a%())
Static I%
Do
A(i)=a(i)+a(I+1)
I=I+1
Loop while I<2
End sub
Private sub command1_click()
Dim m%,I%,x%(10)
For I=0 to 4 : x(i)=I+1 : next I
For I=1 to 2 : call proc(x) : next I
For I=0 to 4 : print x(i); : next I
End sub
程序运行后，单击命令按钮后，在窗体显示的结果是：
PrivateSubForm_Click()
DimxAsInteger
StaticyAsInteger
x=x+2
y=y+3
Form1.Print"x=";x,"y=";y
EndSub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
Private Sub Command1_Click() '确定按钮
Static n As Integer
----1----mypwd As String = "123456" '预设密码为自定义常量
n = n + 1
Label2.Visible = True
If ----2---- Then
Label2.Caption = "密码正确"
Else
If n ＜ 3 Then
Label2.Caption = "密码错误!"
Text1.Text = ""
Else
----3----
End If
End If
End Sub
阅读下列程序并写出程序运行结果。
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上的输出结果。
