《vb程序题(8)》由会员分享,可在线阅读,更多相关《vb程序题(8)(7页珍藏版)》请在金锄头文库上搜索。
1、1文件a.txt中每行包括3列内容,分别为姓名,语文成绩,数学成绩。单击Command1按钮,程序计算出每名同学的总成绩,写入b.txt文件中。 a.txt文件格式示例 - 小红,80,90 小明,70,80 b.txt文件格式示例 - 小红,170“小明,150Option ExplicitPrivate Sub Command1_Click()Dim n$, c%, d%, e%Open a.txt For Input As #1Open b.txt For Output As #2Do While Not EOF(1)Input #1, n, c, de = c + dWrite #2,
2、 n, eLoopClose #1Close #2End Sub2.文件a.txt中每行包括2列内容,分别为姓名,成绩。单击Command1按钮,程序将a.txt文件中的各行,逆序写入b.txt文件中。 a.txt文件格式示例 -小红,90 小明,95 小刚,85 b.txt文件格式示例 - 小刚,85 小明,95 小红,90Option ExplicitPrivate Sub Command1_Click()Dim a$(1 To 10), b%(1 To 10), i%, j%Open a.txt For Input As #1Open b.txt For Output As #2i =
3、1Do While Not EOF(1)Input #1, a(i), b(i)i = i + 1LoopFor j = UBound(b) To LBound(b) Step -1If b(j) 0 ThenWrite #2, a(j), b(j)End IfNext jClose #2Close #1End Sub3. 文件a.txt中每行包括2列内容,分别为姓名,成绩。单击Command1按钮,程序将分数大于等于90分对应的行,写入b.txt文件中。 a.txt文件格式示例 -小红,90 小明,95 小刚,85 b.txt文件格式示例 - 小红,90 小明,95Option Explic
4、itPrivate Sub Command1_Click()Dim a$, b%Open a.txt For Input As #1Open b.txt For Output As #2Do While Not EOF(1)Input #1, a, bIf b = 90 ThenWrite #2, a, bEnd IfLoopClose #1Close #2End Sub4. 文件a.txt中每行包括2列内容,分别为姓名,成绩。单击Command1按钮,程序找出最高分所在行,将姓名和成绩写入b.txt文件中。 a.txt文件格式示例 -小红,90 小明,95小刚,85 b.txt文件格式示例
5、-小明,95Option ExplicitPrivate Sub Command1_Click()Dim a$, b%, c$, d%Open a.txt For Input As #1Open b.txt For Output As #2Do While Not EOF(1)Input #1, a, bIf b d Then d = b: c = aLoopWrite #2, c, dClose #1Close #2End Sub5. 复制文件。点击Command1按钮,程序将文件a.txt中的内容复制到文件b.txt中Option ExplicitPrivate Sub Command1_
6、Click()Dim a$Open a.txt For Input As #1Open b.txt For Output As #2Do While Not EOF(1)Line Input #1, aPrint #2, aLoopClose #2End Sub6. 文件a.txt中每行包含1个数。单击Command1按钮,程序将所有数排序后写入b.txt文件中. a.txt文件格式示例 -13 8 17 12 b.txt文件格式示例 -8 121317Option ExplicitPrivate Sub Command1_Click()Dim a%(1 To 12), i%, j%, k%,
7、 t%, h%, g%, sp$h = UBound(a): g = LBound(a): i = LBound(a)sp = App.Path & Open sp & a.txt For Input As #1Open sp & b.txt For Output As #2For i = 1 To 12Input #1, a(i)Next iFor j = 1 To 11For k = j To 12If a(j) a(k) Then t = a(j): a(j) = a(k): a(k) = tPrint a(j)Next kNext jFor j = 1 To 12If a(j) 0 Then Write #2, a(j)Next jClose #1Close #2End Sub