更多"在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text"的相关试题:
[单项选择]在窗体上画四个文本框(如图所示)，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程： Private Sub Command1_Click( ) For Each Text Box ln Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为
A. 01 2 3
B. 1 2 3 4
C. 01 3 2
D. 出错信息
[填空题]在名称为Form1的窗体上画一个名称为Text1的文本框，画一个名称为Command1的命令按钮。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。
请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click（ ）
Open "c:/test.dat" For Output As#1
For I=1 To Len(Text1.text)
(15) Next I
Ciose#1
End Sub
[填空题]在窗体上画一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个名称为 C1、标题为“存盘”的命令按钮，编写适当的事件过程。程序运行时，如果单击“存盘”命令按钮，则打开保存文件对话框，并把Text1中的内容按照在对话框中选定的路径和文件存盘。在刚打开对话框时的默认路径是“c: /my documents/”。请填空。
Private Sub C1_ Click（ ）
CD1. InitDir =
CD1. FileName = "myflie.txt"
CD1. Filter = “文本文件｜ ______”
CD1. ______ =
Open______ For Output As #1
Print #1, ______
Close #1
End Sub
[填空题]在窗体上画一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为 C1的命令按钮。程序运行后，如果单击C1命令按钮，则弹出打开文件对话框，该对话框的标题是“打开文件”，此时如果单击对话框上的“打开”按钮，则把选中的文件读到内存，并在Text1中显示出来。下面给出了C1的Click事件过程。请填空。
Private Sub C1_ Click（ ）
Dim n As Long
CD1 ______=“打开文件”
CD1. FileName = ""
CD1 ______= “所有文件｜*.* ｜文本文件｜*.txt ｜Word 文档｜*.doc"
CD1. FilterIndex = 2
CD1.
If CD1. FileName ＜＞ " " Then
Open ______ For ______ As #1
n = LOF(1)
Text1. Text = Input (n, #1)
Close ______
End If
End Sub
[单项选择]在窗体上画两个名称分别为Text1，Text2的文本框和一个名称为Command1命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim x As Integer,n As Integer
x=1
n=0
Do While x＜20
x=x*3
n=n+1
Loop
Text1.Text=str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A. 15和1
B. 27和3
C. 195和3
D. 600和4
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：
Microsoft Visual Basic Programming
然后编写如下事件过程：
Private Sub Command1_CIick（ ）
Open"d:/temp/outf. txt" For Output As #1
For i=1 To Len(Text1. Text)
c=Mid(Text1. Text, i, 1)
If c＞="A" And c＜="Z" Then
Print #1, LCase(C)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf. txt中的内容是______。
A. MVBP
B. mvbp
C. M
D. m
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写
如下事件过程：
Private Sub Command1_Click（ ）
Dim arrayl(10，10)As Integer
Dim i， j As Integer
For i=1 To 3
For j=2 To 4
arrayl(i，j)=i + j
Next j
Next i
Text1.Text=arrayl(2， 3)+arrayl(3， 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A. 12
B. 13
C. 14
D. 15
[填空题]在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click( )
Open“d：/test/smText1.txt"For lnput As#1
Do While Not 【14】
Line lnput#1，aspect＄
whole＄=wholes+aspect＄+Chr＄(13)+Chr＄(10)
Loop
Text1.Text=whole＄
Close#1
Open“d：/test/smtext2.txt"For Output As #1
Print #1， 【15】
Close#1
End Sub
上述程序的功能是，把磁盘文件，mText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[填空题]在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的
MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click（ ） 5
Open "d:/test/smtext1.txt" For Input As #1
Do While Not _________
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10) Loop
Text1.Text = whole$
Close #1
Open "d:/test/smtext2.txt" For Output As #1
Print #1, _________
Close #1
End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把 该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[单项选择]在窗体上画两个名称为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
Dim x As Integer， n As Integer
x=1
n=0
Do While x＜20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A. 9和2
B. 27．和3
C. 195和3
D. 600和4
