[填空题]本程序将顺序文件A:、MYFILE.TXT的内容一个字符一个字符地读入文本框txtTest中。请将程序补充完整。
Private Sub Form_Click（　）
Dim InputData As String
txtText.Text=""
______
Do While______
______
txtTest.Text = txtTest.Text +InputData
Loop
______
End Sub

[填空题]把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。 在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程： Prlvate Sub Form_Click（　） Open"D:/test1.txt"For Input As # 1 Text1.FontSize＝14 Text1.FontName=“幼圆” Do While Not EOF(1) 【13】 whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text＝ 【14】 Close Open"D:/test2.txt"For Output As # 1 Print # 1, 【15】 Close End Sub

[填空题]把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click( ) Open"d：/test/smtext1．txt"For lnput As#1 Text1.Fontsize=14 Text1.FontName=“幼圆” Do While Not EOF(1) 【8】 whole＄=whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text= 【9】 。 Close Open"d：/test/smtext2．txt"For Output As#1 Print #1 【10】 Close End Sub

[判断题]文本框不能随着文本框的内容增加而自动扩展。

[填空题]文本框分为横排文本框和______文本框两种。

[填空题]在本案例中，图8-12中“IP地址”选择文本框中的内容应为 (1) ；“TCP端口”文本框中的内容应为 (2) ；“SSL端口”文本框中的内容应为 (3) 。

[单项选择]在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是 Ａ) Private Sub Text1_GotFocus（　） Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Ｂ) Private Sub Text1_LostFocus（　） Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Ｃ) Private Sub Text1_Change（　） Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Ｄ) Private Sub Text1_SetFocus（　） Text.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub

[单项选择]在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是
Ａ) Private Sub Text1_GotFocus（　）
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｂ) Private Sub Text1_LostFocus（　）
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｃ) Private Sub Text1_Change（　）
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Ｄ) Private Sub Text1_SetFocus（　）
Text.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub

[填空题]某表单上有一个文本框控件，若要该文本框的初值设置为当前系统日期，则可以在该文本框的Init事件代码中设置语句 ( ) 。

[填空题]下面的事件过程执行时，可以把Text1文本框中的内容写到文件“file1.txt“中去。请填空。 Pivate Sub Command1_Click（　） Open “file1.txt”For （　6　） As#1 print （　7　） Text1.Text Close #1 End Sub

[单项选择]能够获得一个文本框中被选取文本的内容的属性是( )。
A. Text
B. Length
C. SelText
D. SelStart

[单项选择]

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：
Private Sub Command1_Click（　）
Open"out.txt"For Output As#2
Print"Text1"
Close#2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是（）。

A. 把Print"Text1"改为Print#2，Text1
B. 把Print"Text1"改为Print Text1
C. 把Print"Text1"改为Write"Text1"
D. 把所有#2改为#1

[填空题]编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本框Text1，将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。
option Explicit
Private Sub Form C1ick（　）
Dim chl As String, fn As Integer
Dim Str As String
fn= 【13】
Open "C:/Config. sys" For Input As fn
Do While Not EOF( 【14】 )
Line Input #fn, chl
Str=Str+chl+vbCrLf
Loop
Text1. Text= 【15】
End Sub

[单项选择]设置文本框显示内容的属性是( )。
A. Value
B. Caption
C. Name
D. InputMask

[填空题]建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。
Private Type PerData
Name1 As String
Phon As String * 11
Address As String * 10
Posted As String * 6
End Type
___________________________’定义PerData类型的变量xData
Private Sub Form_Load（　）
Open "C:/phonBook.txt"For Random As 1
End Sub
Private Sub Command1_Click（　）
xData. Name1=Text1.Text
xData. Phon=Text2.Text
________=Text3.Text ’地址
xData. PostCd=Text4.Text
Put #1, 1, xData
Text1.Text=" ":Text2.Text=""
Text3.Text="":Text4.Text=""
End Sub
Private Sub Command2_Click（　）
reno=LOF(1)/Len(xData)
i=1
Do While i＜= reno
Get #1, i, xData
Debug.Print xData.Name 1,______, xData. Address, xData. PostCd
i=i+1
Loop
End Sub