更多"编写一过程将C盘中的Config.sys文件内容读出，并在文本框中显示"的相关试题:
[填空题]编写一个过程把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
[填空题]把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。
在窗体上建立一个文本框，在属性窗口中把该文本框的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
[简答题]在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1，标题为“计算’’的命令按钮，如图11-22所示。要求程序运行后，单击命令按钮，将计算100～200之间所有素数之和，在文本框中显示结果，同时把结果存入文件out.txt中。(在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中。)
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.tXt文件。
[单项选择]
某人编写了下面的程序，希望能把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
[单项选择]能够获得一个文本框中被选取文本的内容的属性是( )。
A. Text
B. Length
C. SelText
D. SelStart
[填空题]下面的事件过程执行时，可以把Text1文本框中的内容写到文件“file1.txt“中去。请填空。
Pivate Sub Command1_Click（ ）
Open “file1.txt”For （ 6 ） As#1
print （ 7 ） Text1.Text
Close #1
End Sub
[简答题]阅读下面一段Visual Basic程序：在窗体上建立一个文本框，其名称为Textl，在属性窗口中把该文本框的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。请完成①②空。
