第一窗体按钮代码:
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
温馨提示:答案为网友推荐,仅供参考