更多"为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序： "的相关试题:
[填空题]在窗体上画一个名称为Commmld1的命令按钮，编写如下事件过程
Private Sub Command1 Click（ ）
Dim a As String
a=______
For i = 1 To 5
Print Space(6-i)；Mid$(a， 6-i， 2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
[单项选择]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim i As Integer，j As Integer
Dim a(10， 10)As Integer
For i=1 To 3
For i=1 To 3
a(i，j)=(i-1) *3+j
Print a(i，j)；
Next i
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是
A. 1 2 3
B. 2 3 4
C. 1 4 7
D. 1 2 3
[填空题]在窗体上画一个名称为Command1的命令按钮，编写如下事件过程
Private Sub Command1_Click( )
Dim a As String
a= 【11】
For i=1 To 5
Print Space(6-i)；Mid $(a，6-i，2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写下列程序：
Private Sub Command1_Click（ ）
For i=1 To 2
For j=1 To i
Print String(i,"Hello")
Next j
Print
Next i
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A. H
B. H
C. HHHHH
D. H
[单项选择]在窗体上画一个名称为Connand1的命令按钮，然后编写如下程序： Private Sub Command1_Click（ ） Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next i End Sub程序运行后，单击命令按钮，窗体上显示的是______ 。
A. 1 2 3 2 4 6 3 6 9
B. 2 3 4 3 4 5 4 5 6
C. 1 4 7 2 5 8 3 6 9
D. 1 2 3 4 5 6 7 8 9
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1-Click（ ）
Static X Am Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X，Y
End Sub
程序运行时，三次单击命令按钮Comand1后，窗体上显示的结果为______。
A. 15 16
B. 15 6
C. 15 15
D. 5 6
[单项选择]在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click（ ）
Dim i As Integer,a As Integer
Do While i＜20
Do While True
If i Mod 10=0 Then
Exit Do
Else
i=i-1
End If
Loop
i=i+11
a=a+i
Loop
Printa
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A. 21
B. 32
C. 33
D. 11
