(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
(34）为了从当前文件夹中读入文件File l .txt,某人编写了下面的程序：
Private Sub Command 1_CLick()
Open"File l .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, ch
D )把Open语句中的Output改为Input
相关考题：
下面程序的功能是把文件file11.txt中重复字符去掉后（即若有多个字符相同，则只保留1个）写入文件file2.txt。请填空。Private Sub Command1__Click（）Dim inchar AS String,temp AS String,outchar AS Stringutchar=” ”pen=”file1.txt” For Input AS #1pen=”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
窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是（ ）。A．Private Sub Command1_Click（）Open “out.txt” For Inpit As#1Print#1,Text1.TextClose#1End SubB．Private Sub Command1_Click（）Open “out.txt” For Outpit As#1Print#1,Text1.TextClose#1End SubC．Private Sub Command1_Click（）Open “out.txt” For Append As#1Print#1,Text1.TextClose#1End SubD．Private Sub Command1_Click（）Open “out.txt” For Random As#1Print#1,Text1.TextClose#1End Sub
在窗体上画一个名称为File1的文件列表框，并编写如下程序：Private Sub File1_DblClick（）x=Shell（File1.FileName,1）End Sub以下关于该程序的叙述中，错误的是（ ）。A．x没有实际作用，因此可以将该语句写为：Call Shell（File1,FileName,1）B．双击文件列表框中的文件，将触发该事件过程C．要执行的文件的名字通过File1.FileName指定D．File1中显示的是当前 驱动 器、当前目录下的文件
窗体上有一个名称为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
( 26 )窗体上有1个名称为 Text1 的文本框和1个名称为 Command1 的命令按钮。要求程序运行时,单击 （ 26 ）窗体上有１个名称为 Text1 的文本框和１个名称为 Command1 的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件 out.txt 中，每次写入的内容附加到文件原有内容之后 。 下面能够实现上述功能的程序是（ ）A ） Private Sub Command1_Click （）Open “ out.txt ” For Inpit As#1Print#1,Text1.TextClose#1End SubB ） Private Sub Command1_Click （）Open “ out.txt ” For Outpit As#1Print#1,Text1.TextClose#1End SubC ） Private Sub Command1_Click （）Open “ out.txt ” For Append As#1Print#1,Text1.TextClose#1End SubD ） Private Sub Command1_Click （）Open “ out.txt ” For Random As#1Print#1,Text1.TextClose#1End 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
某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中： Private Sub Command1Click（ ） Open"out．txt" For Output As#2 Print”Text1” Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是（ ）。A.把Print”Text1¨改为Print#2，Text1B.把Print”Text 1”改为Print Text1C.把Print”Text1”改为Write”Text1”D.把所有#2改为#1
在窗体上画一个名为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框窗口。该窗口的标题为“Save”，默认文件名为“SaveFile"，在“文件类型”栏中显示“*.txt”。能够满足上述要求的程序是 ______。A．Private Sub Command1_ Click() CommonDialog1. FileName = "SaveFile" CommonDialog1. Filter = "All Files ｜ *.* ｜*.txt *.txt｜ *.doc｜ *.doc" CommonDialog1. Filterlndex = 2 CommonDialog1. DialogTitle = "Save" CommonDialog1. Action = 2 End SubB．Private Sub Command1_Click() CommonDialog1. FileName = "SaveFile" CommonDialog1. Filter = "All Files ｜*.* ｜ *.txt｜*.txt｜*.doc｜*.doc" CommonDialog1. Filterlndex = 1 CommonDialog1. DialogTitle = "Save" CommonDialog1. Action = 2 End SubC．Private Sub Command1_ Click() CommonDialog1. FileName = "Save" CommonDialog1. Filter = "All Files ｜%* ｜*.txt｜*.txt｜*.doc｜*.doc" CommonDialog1. Filterlndex = 2 CommonDialog1. DialogTitle = "Save" CommonDialog1. Action = 2 End SubD．Private Sub Command1_ Click() CommonDialog1. FileName = "SaveFile" CommonDialog1. Filter = "All Files ｜*.*｜*.txt｜*.txt｜*.doc｜*.doc" CommonDialog1. Filterlndex = 1 CommonDialog1. DialogTitle = "Save". CommonDialog1. Action = 1 End Sub
在当前文件夹中生成一个名为Filel.txt的文件，在D盘里生成一个名为mydir的文件夹，并在该文件夹中生成一个名为File2.txt的文件，最后输出文件File2.txt的完整路径。修改下列程序中的错误之处，使程序能够正确运行。注意：不改动程序结构，不得增行或删行。import java.io.*;public class FileTest{public static void main(String args[]){File dirObject=new File(d:\\mydir);File fileObjectl=new File(d:\\kmydir","Filel.txt");File fileObject2=new File(d:/mydir","File2.txt");System.out.println(fileObject2);try{Dirobject.mkdir();}catch(SecurityException e){}try{fileObject1.createNewFile();fileObject2.createNewFile();}catch(I0Exception e){}}}
为了从当前文件夹中读人文件Filel．txt，某人编写了下面的程序：Private Sub Commandl_Click()Open“Filel．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
下列程序的功能是把顺序文件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
下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Command 1_Click()Dim x as intege,y as integerFor x=-34 To 34For y=-34 To 34If______ThenDebug．print x，YEnd IfNext yNext xEnd Sub
在当前目录下有—个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。Private Sub Command1_ Click()Dim ch＄, ascii As IntegerOpen "myfile.txt" For【 】 As 1While Not EOF(1)Line Input 1 ,chascii=toascii(【 】)Print asciiWendClose 1End SubPrivate Function toascii(mystr＄)As Integern=0Fork=1 To【 】n=n+ Asc(Mid(mystr,k,1))Next ktoascii=nEnd Function
在窗体上画一个文本框，名称为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”，则不写入文件，直接结束程序。请填空。
在窗体上画一个名称为CommonDialogl的通用对话框，一个名为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗体的标题为“Save”，默认文件名为“SaveFile”，在“文件类型”栏中显示*. txt，则能够满足上述要求的程序是______。A．Private Sub Command1_C1ick() CommonDialogl. FileName="SayeFile" CommonDialogl. Filter="All Files|*. *|(*. txt)|*. txt|(*. doe)|*. doc" CommonDialogl. FilterIndex=2 CommonDialogl. DialogTitle="Save" CommonDialogl. Action=2 End SubB．Private Sub Command1_Click() CommonDialogl. FileName="SaveFile" CqmmonDialogl. Filter="All Files|*. *|*. txt)|*. txt|(*. doe)|*. doff" CommonDialogl. FilterIndex=1 CommonDialegl. DialogTitle="Save" CommonDialogl. Action=2 End SubC．Private Sub Command1_Click() CommonDialogl. FileName="Save" CommonDialogl. Filter="All Files|*. *|(*. txt)|*. txt|(*. doe)|*. doe" CommonDialogl. FilterIndex=2 CommonDialogl. DialogTitle="SaveFile" CommonDia]ogl. Action=2 End SubD．Private Sub Command1_Click() CommonDialogl. FileName="SaveFile" CommenDialogl. Filter="All Files|*. *|(*. txt)|*. txt|(*. doc)|*. doe" CommonDialogl. FilterIndex=1 CommonDialogl. DialogTitle="Save" CommonDialogl. Action=1 End Sub
下面的事件过程执行时，可以把TXET1文本框中的内容写到文件“file1.txt”中去。请填空。Prvate Sub Command1_Click()Open “file1.txt”for【6】as#1Print【7】,text1.txtClose #1End Sub
假定通用对话框的名称为CommonDialogl，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New File”的事件过程是______。A．Private Sub Command1_Click() CommonDialogl. DialoqTitle="New File" CommonDialogl. ShowPrinter End SubB．Private Sub ComJRandl_Click() CommonDialogl. DialogTitle="New File" CommonDialogl. ShowFont End SubC．Private Sub Command1_Click() CommonDialogl. DialogTitle="New File" CommonDialogl. ShowOpen End SubD．Private Sub Command1_Click() CommonDialogl. DialogTitle="New File" CommonDialogl. ShowColor End Sub
在窗体中添加一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“打开”，在文件类型框中显示的是Text Files(*.txt)。则能够满足上述要求的程序是A．Private Sub Command1_Click() CommonDialog1. Flags=cdloFNHideReadonly CommonDialogl. Filter="AllFiles(*.*)|*.*|TextFiles"_ "(*.txt)|*.txt|BatchFiles(*.bat)|*.bat" CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgB．Private Sub Command1_Click() CommonDialog1. Flags=cdloFNHideReadonly CommonDialog1. Filter="AllFiles(*.*)|*.*|TextFiles"_ "(*.txt)|*.txt|BatchFiles(*.bat)|*.bat" CommonDialog1. FilterIndex=2 CommonDialog1. ShowOpen MC．Private Sub Command1_Click() CommonDialog1. Flags=cdloFNHideReadonly CommonDialog1. Filter="AllFiles(*.*)|*.*|TextFdes"_ "(*.txt)|*.txt|BatchFiles(*.bat)|*.bat" CommonDialog1.FilterIndex=1 CommonDialog1.ShowSave MsgD．Private Sub Command1_Click() CommonDialog1. Flags=edloFNHideReadonly CommonDialog1. Filter="AllFiles(*.*)|*.*|TextFiles"_ "(*.txt)|*.txt|BatchFiles(*.bat)|*.bat" CommonDialog1.Filterlndex=2 CommonDialog1.ShowSave Msg
在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save，默认文件名为SaveFile，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是 ______。A．Private Sub Command Click() CommonDialogl.FileName＝"SaveFile" CommonDialogl.Filte＝"All Files|*.*|(*.txt)|*.txt|(*.doC)|*.doc" CommonDialogl.FilterIndex＝2 CommonDialogl.DialogTitle＝"Save" CommonDialogl.Action＝2 End SubB．Private Sub Commandl_Click() CommonDialogl. FileName="SaveFile" CommonDialogl. Filter= "All Files| *. * | (*. txt)[*. txt| *. doc| *. doc" CommonDialogl. FilterIndex= 1 ComonDialogl. DialogTitle = "Save" CommonDialogl. AC．Private Sub Cmmandl_Click() CommonDialogl. FileName= "Save" CommonDialogl. FiLter="All Files | *. * |(*. txt)|*. txt|(*. doC)|*. doc" CommonDialogl. FilterIndex= 2 CommonDialogl. DialogTitle = "SaveFile" CommonDialogl. AD．Private Sub Commandl_Click() CommonDialogl. FileName = "SaveFile" CommonDialogl. Filter= "All Files|*. *|(*. txt)|*. txt| (*. doC)|*. doc" CommonDialogl. FilterIndex=1 CommonDialogl. DialogTitle= "Save" CommonDialogl. Ac
为丫从当前文件夹中读入文件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
为丫从当前文件夹中读入文件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
在窗体上有一名为list1的列表框和名为Command1的命令按钮，要求程序运行后；如果单击命令按钮，则把列表框中所有的列表项目写到顺序文件list.txt 中。下列能完成该操作的程序是______。A． Private Sub Command1_Click() Open “c:\list.txt”For Input As #1 For i=0 To Listl.ListCount-1 Print #1，List1.List(i) Next i Close #1 End SubB．Private Sub Command1_lick() Open “c:\list.txt”For Output As #1 For i=0 To List1.ListCount Print #1，List1.List(i) Next i Close #1 End SubC．Private Sub Command1_Click() Open “c:\list.txt”For Output As #1 For i=0 To List1.ListCount -1 Print #1，List1. List(i) Next i C1ese #1 End SubD．Private Sub Command1_Click() Open “c:\list.txt”For As #1 For i=0 To List1.ListCount Print #1，List1.List(i) Next i Close #1 End Sub
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。[说明]某公司的服务器上为每位员工提供了一定大小的存储空间，用于数据的备份。下面的程序面向公司员工，提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下：(1)连接服务器：员工需要输入用户名和口令才能连接到服务器端，checkUser函数用于检查用户名和口令是否合法，返回真假值。(2)上传文件：从本地计算机上传文件到服务器。员工可以在本地文件列表中选择一个或多个文件，这些文件通过上传操作被复制到服务器端指定的某个文件夹中；(3)下载文件：从服务器端下载文件到本地。在开发过程中，本地驱动器列表框名为Drive1，本地和服务器端目录列表框分别名为Dir1和 Dir2，本地和服务器端文件列表框分别名为File1和File2，界面上有上至下四个按钮分别名为Command1至Command4。[Visual Basic代码]Private Sub Drive1_Change()(1) ’更新目录列表框的路径End SubPrivate Sub Dir1_Change()File1.Path=Dir1.Path ’更新文件列表框file1的路径End SubPrivate Sub Dir2_Change()File2.Path=Dir2.Path ’更新文件列表框file2的路径End Sub’连接服务器Private Sub Command1_Click()Dim user,password As Stringuser=(2) (“请输入用户名：”)password=(2) (“请输入口令：”)If check User(user,password)Then ’若用户名和口令正确Dir2.Path=…… ’打开服务器上某一指定目录Else: MsgBox“口令错误，请重试!”End IfEnd Sub’上传文件Private Sub Command2_Click()Dim fso As new FileSystemObject,f As File,i As IntegerIf File1.FileName=""Then ’判断是否已经选中文件MsgBox“请选择本地的文件!”Exit SubEnd If’创建文件系统对象Set fso=CreateObject(“Scripting.FileSystemObject”)’上传文件For i=0 To (3) ’遍历文件列表框File1中的全体文件If (4) Then’若该文件被选中Set f=fso. (5) (Dir1.Path “\” File1.List(i))f.Copy Dir2.Path “\” File1.List(i),True ’复制文件至服务器端End IfNextFile2.RefreshEnd Sub’下载文件Private Sub Command3_Click()……End Sub’退出程序Private Sub Command4_Click()EndEnd Sub
在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签kabel1中显示当前文件夹中文件的数量，如图所示。能够正确实现上述功能的程序是A．Private Sub Dir1_Change( ) Filc1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End SubB．Private Sub Dir1_Change( ) File1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End SubC．Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End SubD．Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.List End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()End Sub End SubC）Private Sub Commandl_Click() D）Private Sub Command_ Click()End Sub End Sub
单选题在FrontPage 2003的默认情况下，表单结果将保存在当前站点的private文件夹的 （）文件中。AForm_results.csvBFormresults.txtCForm_result.txtDFormresult.txt