资源描述：
《VB程序题(8)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、1文件a.txt中每行包括3列内容，分别为姓名，语文成绩，数学成绩。单击Command1按钮，程序计算出每名同学的总成绩，写入b.txt文件中。a.txt文件格式示例------------------"小红",80,90"小明",70,80b.txt文件格式示例------------------"小红",170“小明",150OptionExplicitPrivateSubCommand1_Click()Dimn$,c%,d%,e%Open"a.txt"ForInputAs#1Open"b.txt"ForOutputAs#2DoWhileNotEOF(1)I
2、nput#1,n,c,de=c+dWrite#2,n,eLoopClose#1Close#2EndSub2.文件a.txt中每行包括2列内容，分别为姓名，成绩。单击Command1按钮，程序将a.txt文件中的各行，逆序写入b.txt文件中。a.txt文件格式示例----------------"小红",90"小明",95"小刚",85b.txt文件格式示例--------------"小刚",85"小明",95"小红",90OptionExplicitPrivateSubCommand1_Click()Dima$(1To10),b%(1To10),i%,j%O
3、pen"a.txt"ForInputAs#1Open"b.txt"ForOutputAs#2i=1DoWhileNotEOF(1)Input#1,a(i),b(i)i=i+1LoopForj=UBound(b)ToLBound(b)Step-1Ifb(j)>0ThenWrite#2,a(j),b(j)EndIfNextjClose#2Close#1EndSub3.文件a.txt中每行包括2列内容，分别为姓名，成绩。单击Command1按钮，程序将分数大于等于90分对应的行，写入b.txt文件中。a.txt文件格式示例----------------"小红",90
4、"小明",95"小刚",85b.txt文件格式示例---------------"小红",90"小明",95OptionExplicitPrivateSubCommand1_Click()Dima$,b%Open"a.txt"ForInputAs#1Open"b.txt"ForOutputAs#2DoWhileNotEOF(1)Input#1,a,bIfb>=90ThenWrite#2,a,bEndIfLoopClose#1Close#2EndSub4.文件a.txt中每行包括2列内容，分别为姓名，成绩。单击Command1按钮，程序找出最高分所在行，将姓名和成
5、绩写入b.txt文件中。a.txt文件格式示例----------------"小红",90"小明",95"小刚",85b.txt文件格式示例----------------"小明",95OptionExplicitPrivateSubCommand1_Click()Dima$,b%,c$,d%Open"a.txt"ForInputAs#1Open"b.txt"ForOutputAs#2DoWhileNotEOF(1)Input#1,a,bIfb>dThend=b:c=aLoopWrite#2,c,dClose#1Close#2EndSub5.复制文件。点击Co
6、mmand1按钮，程序将文件a.txt中的内容复制到文件b.txt中OptionExplicitPrivateSubCommand1_Click()Dima$Open"a.txt"ForInputAs#1Open"b.txt"ForOutputAs#2DoWhileNotEOF(1)LineInput#1,aPrint#2,aLoopClose#2EndSub6.文件a.txt中每行包含1个数。单击Command1按钮，程序将所有数排序后写入b.txt文件中.a.txt文件格式示例---------------------1381712b.txt文件格式示例--
7、-------------------8121317OptionExplicitPrivateSubCommand1_Click()Dima%(1To12),i%,j%,k%,t%,h%,g%,sp$h=UBound(a):g=LBound(a):i=LBound(a)sp=App.Path&""Opensp&"a.txt"ForInputAs#1Opensp&"b.txt"ForOutputAs#2Fori=1To12Input#1,a(i)NextiForj=1To11Fork=jTo12Ifa(j)>a(k)Thent=a(j):a(j)=a(k):a(
8、k)=tPrinta(j
