更多"在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text"的相关试题:
[单项选择]在窗体上画4个文本框，并用这4个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
For Each TextBox In Text1
Text1(i)=Text1(i).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，4个文本框中显示的内容分别为( )。
A. 0 1 2 3
B. 1 2 3 4
C. 0 1 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
[填空题]在名称为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(下标从0开始，依次增大)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
For Each TextBox In TeXt1
Text1(i)=Text1(i).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为 ______。
A. 0 1 2 3
B. 1 2 3 4
C. 0 1 3 2
D. 出错信息
[填空题]在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。请填空。
Private Sub Option1_Click(Index As Integer)
Select Case 【10】
Case 0
a=“宋体”
Case 1
a=“黑体”
Case 2
a=“楷体GB2312”
End Select
Text1. 【11】 =a
End Sub
[单项选择]在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体 GB2312" End Select Text1. =a End Sub
A. Option Text
B. Index Text
C. Index Font
D. Option Font
[填空题]
在名称为Forml的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的
MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form Click（ ）
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的文本框，一个名称为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
[单项选择]在窗体上画两个名称分别为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
[填空题]在窗体上画一个名称为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
