网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open "smtext1.txt"【 】As【 】
Do While【 】
Input 2，inData
Text1.Text=Text1.Text & inData
Loop
Close 2
End Sub
参考答案
更多 “ 下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text=""Open "smtext1.txt"【 】As【 】Do While【 】Input 2，inDataText1.Text=Text1.Text inDataLoopClose 2End Sub ” 相关考题
考题
在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事件过程：Private Sub Command1_Click（）Dim inData As StringText1.Text=" "Open "d:|| ML ） ||Myfile txt" for ________ As #1Do While ________Input # 1,inDataText1.Text=Text1.Text+inDataLoopClose #1End Sub程序的功能是，打开D盘根目录下的文本文件 myfile.txt, 读取它的全部内容并显示在文本框中。请填空
考题
窗体上有一个名称为Text1的文本框和—个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out.txt中，每次写入的内容附加到原有内容之后。下面能够正确实现上述功能的程序是______。A．Private Sub Command1_Click() Open "out.txt" For Input As#1 Print #1,Text1.Text Close #1 End SubB．Private Sub Command1_Click() Open "out.txt" For Output AS #1 Print #1,Text1.Text Close #1 End SubC．Private Sub Command1_Click() Open "out.txt" For Append As #1 Print #1,Text1.Text Close #1 End SubD．Private Sub Command1_Click() Open "out.txt" For Random As #1 Print #1,Text1.Text Close #1 End Sub
考题
（ 11 ） 在窗体上画一个命令按钮和一个文本框 ， 其名称分别为 Command1 和 Text1 ， 然后编写如下事件过程 ：Private Sub Command1_Click()Dim inData As StringText1.Text = ""Open "d:\myfile.txt" For 【 14 】 As #1Do While 【 15 】Input #1, inDataText1.Text = Text1.Text + inDataLoopClose #1End Sub程序的功能是，打开 D 盘根目录下的文本文件 myfile.txt ，读取它的全部内容并显示在文本框中 。 请填空。
考题
（ 7 ）下面程序的功能是把文件 file11.txt 中重复字符去掉后（即若有多个字符相同，则只保留 1 个 ） 写入文件 file2.txt 。请填空。Private Sub Command1__Click （）Dim inchar AS String,temp AS String,outchar AS StringOutchar= ” ”Open= ” file1.txt ” For Input AS #1Open= ” file2.txt ” For Output AS——n=LOF （——）inchar=Input$ （ n,1 ）For k=1 To ntemp=Mid （ inchar,k,1 ）If InStr （ outchar,temp ） = ——Thenoutchar=outchar tempEnd IfNext kprint #2,——close #2close #1End Sub
考题
在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click（）Open "d:\test\smtext1.txt" For Input As #1Do While Not ______Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr$（13） + Chr$（10）LoopText1.Text = whole$Close #1Open "d:\test\smtext2.txt" For Output As #1Print #1, ______Close #1End Sub上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
考题
（ 9 ） 窗体上有名称为 Command1 的命令按钮及名称为 Text1 、 能显示多行文本的文本框 。 程序运行后 ，如果单击命令按钮，则可打开磁盘文件 c:\test.txt ，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请填空。Private Sub Command1_Click()Text1= ””Number=FreeFileOpen “ c:\test.txt ” For Input As NumberDo While Not Eof( 【 14 】 )Line Input #Number,sText1.Text=Text1.Text+ 【 15 】 +Chr(13)+Chr(10)LoopClose NumberEnd Sub
考题
（ 10 ） 在窗体上画一个文本框 ， 其名称为 Text1 ， 在属性窗口中把该文本框的 Mult i Line 属性设置为 True ，然后编写如下的事件过程：Private Sub Form_Click （）Open " d:\test\smtext1.Txt " For Input As #1Do While Not 【 13 】Line Input #1, aspect$W hole$=whole$+aspect$+Chr$ （ 13 ） +Chr$ （ 10 ）LoopText1.Text=whole$【 14 】Open " d:\test\smtext2.Txt " For Output As #1Print #1, 【 15 】Close #1End Sub运行程序 ， 单击窗体 ， 将把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt 。请填空。
考题
下列程序的功能是：将数据1,2,......,8写入顺序文件Num.txt中，请选择正确的程序段 Private Sub Form_Click() Dim i As Integer Open "Num.txt"For Output As #1 For i=1 To 8 ______ Next i Close #1 End SubA.print#1,i B.input#1,i C.print#1 D.input#1
考题
（7）下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) IfThen Print x Else ________ Text1.Text="" End If End Sub
考题
（11）下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Command1_Click() Text1.Text="" For n=3 To 100 k=Int(Sqr(n)) i=2 Flag=0 Do While i= And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If Then Text1.Text=Text1.TextStr(n)Chr(13)Chr(10) End If Next n End Sub
考题
某人编写了下面的程序，希望能把Textl文本框中的内容写到out．txt文件中Private Sub Commandl_Click()Open“out.txt”For Output As #2Print“Text1”Close #2End sub调试时发现没有达到目的，为实现上述目的，应做的修改是A．把Print“Text1”改为Print#2，TextlB．把Print“Textl”改为Print TextlC．把Print“Text1”改为Write“Text1”D．把所有#2改为#1
考题
下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。Private Sub Form. Click()Dim Ch As String * 1Open "c:\a1.txt" For Input As 10Do While【 】Ch= Input(1, 10)If 【 】ThenPrint Ch;End IfLoop【 】End Sub
考题
使用Do While循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是A．Open "c:\File1．txt" For Input As #1 Do While Not EOF() Line Input #1， strLine LoopB．Open "c:\File1．txt" For Input As#1 Do While Not EOF(#1) Line Input #1， strLine LoopC．FileNo=FreeFile Open FileNo For Input As #1 Do While Not EOF(FileNo) Line Input #1， strLine LoopD．FileNo=FreeFile Open FileNo For Input As #1 DoWhile Not EOF(#FileNo) Line Input #1， strLine Loop
考题
下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt，请填空。Private Sub Form. C1ick()Dim ch As StringOpen "C:\a1.txt" For【 】Open "C:\a2.txt" For【 】Do While Not【 】ch＝Input(1,10)Print 20,ch;LoopClose 10,20End Sub
考题
在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form. Click()Open "d：\test\smtext1.txt" For Input As 1Do While NotLine Input 1，aspectswhole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close 1Open "d：\test\smtext2.txt" For Output As 1Print 1, ______Close 1End Sub上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。
考题
把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程：Prlvate Sub Form_Click()Open"D:\test1.txt"For Input As 1Text1.FontSize＝14Text1.FontName=“幼圆”Do While Not EOF(1)【 】whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text＝【 】CloseOpen"D:\test2.txt"For Output As 1Print 1,【 】CloseEnd Sub
考题
在窗体上画一个文本框，名称为Textl，然后编写如下程序：Private Sub Form_Load()Open”d：＼temp＼dat．txt”For Output As1Textl．Text=“”End SubPrivate Sub Textl KeyPress(KeyAscii As Integer)IfKeyAscii=13 ThenIf UCase(Textl．Text)=【 】ThenClose1EndElseWrite1，【 】Textl．Text=…End IfEnd IfEnd SUb以上程序的功能是：在D盘temp文件夹下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。
考题
窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c：＼test．txt，并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。Private Sub Commandl_Click()Textl=“”Number=FreeFileOpen“c：＼test．txt”For Input As NumberDo While Not EOF(【 】)Line InputNumber，sTextl．Text=Textl．Text+【 】+Chr(13)+Chr(10)LoopClose NumberEnd Sub
考题
以下程序的功能是：把父目录下顺序文件smtext1．txt的内容读入内存，并在文本框Text3中显示出来。请选择适合横线处的语句（ ）。A. For Input Not EOF(1)B. For Output EOF(1)C. ForAppend Not EOF(1)D. For Random EOF(1)
考题
设窗体上有一个名称为CDl的通用对话框、一个名称为Textl的文本框和一个名称为Commandl的命令按钮。程序执行时，单击Commandl按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文字文件，并读人一行文本，显示在Textl中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click CD1.Filter=“文本文件|*.txt|Word文档|*.doc” CDl.FilterIndex=1：CD1.ShowOpen If CD1.FileName“” Then Open 【9】 For Input As #1 Line Input#1，ch$ Close#1：Text1.Text= 【10】 End If End Sub
考题
在名称为Forml的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private SUb Form_CnCk()Open"d:\tes\smtext1.txt"For Input AS 1Do While Not EOF(1)Line Iput 1,aspect$whole$=whole$+aspect$+Chf$(13)+Chr$(10)Loop
考题
为丫从当前文件夹中读入文件File1．txt，某人编写了下面的程序： Private Sub Command1_Click（ ） Open"File1．txt"For Output As#20 Do While Not EOF(20) Line Input#20，ch$ Print ch Loop Close#20 End Sub 程序调试时，发现有错误，下面的修改方案中正确的是（ ）。A.在Open语句中的文件名前添加路径B.把程序中各处的“20”改为“1”C.把Print ch语句改为Print#20，chD.把Open语句中的0utput改为Input
考题
下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。 Private Sub Form_Click() Dim i As Integer Open "Num.txt" For Output As #1 For i=1 To 8 ______ Next i Close #1 End SubA．print #1,iB．input #1,iC．print #1D．input #1
考题
为丫从当前文件夹中读入文件File1．txt，某人编写了下面的程序：Private Sub Command1_Click（ ）OpenFile1．txtFor Output As#20Do While Not EOF(20)Line Input#20，ch$Print chLoopClose#20End Sub程序调试时，发现有错误，下面的修改方案中正确的是（ ）。A.在Open语句中的文件名前添加路径B.把程序中各处的“20”改为“1”C.把Print ch语句改为Print#20，chD.把Open语句中的0utput改为Input
考题
(34）为了从当前文件夹中读入文件File l .txt,某人编写了下面的程序：Private Sub Command 1_CLick()Open"File l .txt" For Output As #20Do While Not EOF(20)Line Input #20, ch$Print chLoopClose #20End Sub程序调试时，发现有错误，下面的修改方案中正确的是A)在Open语句中的文件名前添加路径B)把程序中各处的"20"改为"1"C)把Print ch语句改为Print #20, chD )把Open语句中的Output改为Input
考题
写出下面这段函数实现的功能。 Private Sub Command1_Click（） Dim inData As String Text1.Text="" Open"./smtext1.txt"For InputAs#1 Do While Not EOF（1） Input#1，inData Text1.Text=Text1.TextinData Loop Close#1 End Sub
考题
问答题写出下面这段函数实现的功能。 Private Sub Command1_Click（） Dim inData As String Text1.Text="" Open"./smtext1.txt"For InputAs#1 Do While Not EOF（1） Input#1，inData Text1.Text=Text1.TextinData Loop Close#1 End Sub
热门标签
最新试卷