Visual Basic 6.0程序设计教程 第3版 普通高等教育十一五 国家级规划教材 教学课件 作者 罗朝盛习题答案 第8章 习题参考答案.doc

《Visual Basic 6.0程序设计教程 第3版 普通高等教育十一五 国家级规划教材 教学课件 作者 罗朝盛习题答案 第8章 习题参考答案.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、202第九章文件第8章习题参考答案一、判断题题号123456答案×√×√××二、选择题题号1234567答案CBABCAA三、程序填空1．Open“c:stud1.txt”ForOutputAs#1UCase(Text1)=”END”Print#1,Text12．ForInputForOutputAs#2NotEof(1)LineInput#1,str1Close#1,#2KILL"c:old.dat"3．ForAppendAs#1ForInputAs#2四、程序设计1．PrivateSubForm_Click()DimstrInAsString*1,CountAsInteger'打

2、开文件进行统计Open"D:data.txt"ForInputAs#1Count=0'计数器清零DoWhileNotEOF(1)strIn=Input(1,#1)'一次读出一个字符IfstrIn="$"ThenCount=Count+1LoopClose#1'将结果写入到文本文件C：Mydirres.txt中202第九章文件Open"D:Mydirres.txt"ForOutputAs#1Print#1,CountClose#1EndSub2.PrivateSubForm_Click()Dimk%,n%Dimnum()AsSingle,sumAsSingle,aveAsSing

3、le'打开文件进行统计Open"D:abc.txt"ForInputAs#1DoWhileNotEOF(1)n=n+1ReDimPreservenum(n)Input#1,num(n)sum=sum+num(n)Loopave=sum/nFork=1TonIfnum(k)>aveThenPrintnum(k);NextkClose#1EndSub3．PrivateSubForm_Click()DimstrInAsString*1,k%,n%DimNm(1To26)AsInteger'打开文件进行统计Open"D:Lcs.txt"ForInputAs#1Open"D:Res.dat"

4、ForOutputAs#2DoWhileNotEOF(1)strIn=Input(1,#1)'一次读出一个字符strIn=UCase(strIn)'转换为大写字母IfstrIn>="A"AndstrIn<="Z"Thenn=Asc(strIn)-Asc("A")+1Nm(n)=Nm(n)+1EndIfLoop202第九章文件Close#1Print"文件中各字符出现的次数是："Fork=1To26Print#2,"字符"&Chr(64+k)&"的个数是："&Nm(k)NextkClose#2EndSub4.PrivateSubForm_Click()DimstrInAsByte,k%,n

5、%'打开文件进行统计Open"D:A.txt"ForBinaryAs#1Open"D:a1.txt"ForBinaryAs#2Open"D:a2.txt"ForBinaryAs#3n=LOF(1)'求文件A.txt的长度Fork=1Ton/2'前一半写入到文件a1.txtGet#1,,strIn'一次读出一个字节Put#2,,strInNextkFork=n/2+1Ton'后一半写入到文件a2.txtGet#1,,strIn'一次读出一个字节Put#3,,strInNextkCloseEndSub