vb做一个成绩统计程序

要求在第一个窗体中提供录入界面,并对输入的数据用顺序文件记录。在第二个窗体中实现读出文件中的数据,在每个数据行后面添加该学生的总分和平均成绩两个数据项,并用列表框显示,处理后的数据记录到新文本文件中。

1、本题可用3个窗体。

2、在第一个窗体中,建立录入界面,以追加方式建立“D:\Score”文本文件,每行记录一个学生的考试成绩,数据排列形式是:学号,姓名,英语成绩,数学成绩,计算机成绩。在第二个子窗体中,以只读方式打开“D:\Score”文本文件,读出其中数据,计算后将各项数据写入到另一个以覆盖方式建立的文本文件“D:\ScoreCount”中,把各项数据以字符串形式连接起来并显示在列表框中。

能不能说下大概思路,解释下题目意思。。。

第一窗体按钮代码:
dim stunum$,stuName$,stuEn%,stuMath%A,stuComputer%
stuNum = text1.text:stuName=text2.text
stuEn=val(text3.text):stuMath=val(text4.text):stuComputer=val(text5.text)
open "d:\score" for append as #1
write #1,stuNum,stuName,stuEn,stuMath,stuComputer
close #1

第二个窗体按钮代码
dim stunum$,stuName$,stuEn%,stuMath%A,stuComputer%,stuTot%,stuAvg!
open "d:\score for input as #1
open "d:\scorecount" for output as #2
do while not eof(1)
inut #1,stuNum,stuName,stuEn,stuMath,stuComputer
stuTot=stuEn+stuMath+stuComputer
stuAvg=stuTot/3
write #2,stuNum,stuName,stuEn,stuMath,stuComputer,stuTot,stuAvg
listbox1.additem stuNum & " " & stuName & " " & stuEn _
& " " & stuComputer & " " & stuTot & " " & stuAvg
loop
close
温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-05-21
、本题可用3个窗体。

2、在第一个窗体中,建立录入界面,以追加方式建立“D:\Score”文本文件,每行记录一个学生的考试成绩,数据排列形式是:学号,姓名,英语成绩,数学成绩,计算机成绩。在第二个子窗体中,以只读方式打开“D:\Score”文本文件,读出其中数据,计算后将各项数据写入到另一个以覆盖方式建立的文本文件“D:\ScoreCount”中,把各项数据以字符串形式连接起来并显示在列表框中。
相似回答