郑州轻院VB练习题C及答案.doc

《郑州轻院VB练习题C及答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、33C1.在文本文件testf1.txt中，从第一个数开始，每四个数为一组，第一个数为不同商场的代号，其余三个数代表三类商品的营业额(万元)。编写程序，统计计算并向文件t2.dat输出各商场第一类商品的总营业额S和该类商品在各商场的平均营业额V。Dima,b,c,d,sum,averAsSingleDimnAsIntegern=0:sum=0FileOpen(1,"D:\testf1.txt",OpenMode.Input)FileOpen(2,"D:\t2.dat",OpenMode.output)WhileNotEOF(1)Input(1,a)Input(1,b)Inp

2、ut(1,c)Input(1,d)sum=sum+bn=n+1EndWhileAver=sum/nMsgBox("总营业额为："+Str(sum)+Chr(10)+"平均营业额为："+Str(aver))Write(2,sum,aver)Fileclose(1,2)‘Fileclose(1):Fileclose(2)34C2.已知在正文文件da1.dat中，每个纪录只有两项数据，第一项为一整数表示学生的学号，第二项为形如xx.x的一个实数，试统计计算并向文件t2.dat输出全部学生的平均成绩V与90分以上(含90分)的学生人数N。Dimi,id,nAsIntegerDimcj,

3、total,averAsDoubletotal=0FileOpen(1,"D:\da1.dat",OpenMode.Input)FileOpen(2,"D:\f2.dat",OpenMode.Output)i=0n=0WhileNotEOF(1)Input(1,id)Input(1,cj)If(cj>=90)Thenn=n+1EndIftotal=total+cji=i+1EndWhileIfi<>0Thenaver=total/iEndIfMsgBox("total="+Str(total)+""+"aver="+Str(aver)+""+"i="+Str(i)+""+"

4、n="+Str(n))Write(2,aver,n)FileClose(1)FileClose(2)35C3.已知在正文文件ch1.dat中，每个记录的数据是有一个由字母组成的字符个数不多于10个的字符串，如：″absolute″。试查找文件中从第150个记录到第250个记录间的最大的字符串，并向文件t2.dat输出查找结果和该字符串中的字符个数n。Dimstr1,str2AsStringDimi,nAsintegerstr1=""i=0FileOpen(1,"D:\ch1.dat",OpenMode.Input)FileOpen(2,"D:\f2.dat",OpenMod

5、e.Output)WhileNotEOF(1)Input(1,str2)i=i+1If(i>=150)And(i<=250)ThenIfstr1

6、串的最后一个字符是f的字符串的个数n2，并将统计结果存入文本文件t2.dat中。Dimstr1,str2AsStringDimn1,n2,iAsIntegern1=0n2=0FileOpen(1,"D:\ch1.dat",OpenMode.Input)FileOpen(2,"D:\f2.dat",OpenMode.Output)WhileNotEOF(1)Input(1,str1)i=Len(str1)If(i<>0)ThenIf(i=4)Thenn1=n1+1EndIfstr2=Mid$(str1,i,1)If(str2="f"Orstr2="F")Thenn2=n2+1

7、EndIfEndIfEndWhileFileClose(1)MsgBox("在该文件中只有4个字符的字符串的个数n1="+Str(n1))MsgBox("和字符串的最后一个字符是f的字符串的个数n2="+Str(n2))WriteLine(2,n1)WriteLine(2,n2)FileClose(2)37C5.已知在正文文件t1.dat中，每个纪录只有一个实数，其格式为：x.xxxxx，试把该文件中从第100个数开始（包括第100个数）的225个数依序依序按行读入到一个15*15的二维数组