题目内容
（请给出正确答案）
有下列程序： Private Sub Command1_Click() Dim i As Integer Dim arrY(5)As Integer For i = 0 To 4 arrY (i) = 5 Next i Dim arrZ(5)As String For i = 0 To 4 arrZ(i)= "hello" Next i Dim arrX(2)AS Variant arrX(1)=arrY() arrX(2)=arr2() Text1.Text=arrX(1) (2) TextText=arrX(2) (3) End Sub 程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是【 】和【 】。
如果结果不匹配，请 联系老师 获取答案
更多“有下列程序： Private Sub Command1_Cl…”相关的问题
有下列程序，运行后变量x1、y1和z1的结果分别是【 】、【 】和【 】。 Private Sub fun1(s，m，n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form. Click() Dim x1， y1 x1 = 1 ：y1 = 1 ：z1 = 1 Call fun1(x1，y1 + 1，(z1)) Debug．Print x1； y1； z1 End Sub
下列程序运行后，在窗体上打印的结果是【 】。 Private Sub test(a， b，c) a = a + 1： b = b + 2：C = C + 3 End Sub Private Sub Command1 Click() x = 1：v = 2：z = 3 Call test(x，y + 3， (z)) Print "Main:"；x；y；z End Sub
A.10
B.20
C.50
D.100
A.13579
B.97531
C.12345678910
D.10987654321
A.37111519
B.19151173
C.13579
D.不确定的值
有一个窗体Form1，要求该窗体只能运行30s，时间一到则窗体将自动关闭。程序空白处应填写( )。
Private Sub Form_Load()
Me.TimerInterval=1000
i=0
End Sub
Private Sub Form_Timer()
______
If i=30 Then
DoCmd.CloSe
End If
End Sub
A．i=i+1 B．i=i-1
C．i=i+30 D．i=i-30
运行下列程序：
Private Sub Form_Click()
Dim sum As Double, i As Integer
For i = 1 To 20
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.50
B.100
C.4
D.5050
阅读下列程序并写出程序运行结果。
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上的结果。
