第六讲 文件.doc

第六讲 文件1.在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFor i=1 To 10 a(i)=iNextCall swap ( 【11】 )For i=1 To 10Print a(i);NextEnd SubSub swap(b() As Integer)n=Ubound(b)For i=1 To n / 2t=b(i)b(i)=b(n)b(n)=t【12】NextEnd Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，。请填空。2. 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click()Open d:testsmtext1.Txt For Input As #1Do While Not 【13】Line Input #1, aspect$Whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$【14】Open d:testsmtext2.Txt For Output As #1Print #1, 【15】Close #1End Sub运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。3.设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框Private Sub Comand1_Click()CD1.DialogTitle=打开文件CD1.InitDir=C:CD1.Filter=所有文件|*.*|Word文档|*.doc|文本文件|*.TxtCD1.FileName=CD1.Action=1If CD1.FileName=ThenPrint未打开文件ElsePrint要打开文件& CD1.FileNameEnd IfEnd Sub但实际显示的对话框中列出了C:下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是A)把CD1.Action=1改为CD1.Action=2B)把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”C)在语句CD1.Action=1的前面添加：CD1.FilterIndex=3D)把CD1.FileName=改为CD1.FileName=文本文件4.某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中Private Sub Comand1_Click()Open out.txt For Output As #2Print Text1Close #2End Sub调试时发现没有达到目的，为实现上述目的，应做的修改是A)把Print Text1改为Print #2,Text1B)把Print Text1改为Print Text1C)把Print Text1改为Write Text1D)把所有#2改为#15.下面程序的功能是把文件file11.txt中重复字符去掉后（即若有多个字符相同，则只保留1个）写入文件file2.txt。请填空。PrivateSubCommand1_Click()DimincharASString,tempASString,outcharASStringOutchar=”Open=”file1.txt”ForInputAS#1Open=”file2.txt”ForOutputAS_n=LOF(_)inchar=Input$(n,1)Fork=1Tontemp=Mid(inchar,k,1)IfInStr(outchar,temp)=_Thenoutchar=outchar&tempEndIfNextkprint#2,_close#2close#1EndSub6.在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法算法1：PrivateSubCommand1_Click()CommonDialog1.ShowOpenOpenCommonDialog1.FileNameForInputAs#1EndSub算法2：PrivateSubCommand1_Click()CommonDialog1.ShowOpenIfCommonDialog1.FileName”ThenOpenCommonDialog1.FileNameForInputAs#1EndIfEndSub下面关于这两种算法的叙述中正确的是A)显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会B)显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会C)两种算法的执行结果完全一样D)算法1允许输入的文件名中含有空格，而算法2不允许7.窗体上有个名称为Text1的文本框和个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是A)PrivateSubCommand1_Click() B)PrivateSubCommand1_Click() Open“out.txt”ForInputAs#1 Open“out.txt”ForOutputAs#1 Print#1,Text1.Text Print#1,Text1.Text Close#1 Close#1 EndSub EndSubC)PrivateSubCommand1_Click() D)PrivateSubCommand1_Click()Open“out.txt”ForAppendAs#1 Open“out.txt”ForRandomAs#1Print#1,Text1.Text Print#1,Text1.TextClose#1 Close#1EndSub EndSub8. 已知有下面的过程PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean)EndSub正确调用此过程的语句是A)Callprocl(5) B)Callproc15,”abc”,FalseC)proc1(12,”abc”,True)D)proc15,“abc”9.若在某窗体模块中有如下事件过程PrivateSubCommand1_Click(IndexASInteger)EndSub则以下叙述中正确的是A)此事件过程与不带参数的事件过程没有区别B)有1个名称为Command1的窗体,单击此窗体则执行此事件过程C)有1个名称为Command1的控件数组,数组中有多个不同类型控件D)有1个名称为Command1的控件数组,数组中有多个相同类型控件10.在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是A)Cd1.Action=2 B)Cd1.Action=1C)Cd1.ShowSave=Ture D)Cd1.ShowSave=011.以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text = Open .smtext1.txt14 As #1Do While 15Input #1, inDataText1.Text = Text1.Text & inDataLoopClose #1End Sub12. 下列可以打开随机文件的语句是A）Open file l .dat For lnput As1B）Open”file l .dat For Append As1C）Open”file1.dat For Output As1D）Open”file1.dat For Random As1 Len=2012.在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1.【12】=打开文件CommonDialog1.Filter=All Files(*.*)|*.*CommonDialog1.InitDir=C：CommonDialog1.ShowOpenEnd Sub该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files(*.*)”，并显示C盘根目录下的所有文件，请填空。13.在窗体上画1个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load()Opend：tempdat.txtFor Output As#1Text1.Text=End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)lf【13】=13