VB程序设计第三版实验H答案.doc

VB程序设计第三版实验答案（全） 1 Private Sub Command1_Click() Open c:\score For Output As #1 Print #1, 051023, 王海涛, 66 Print #1, 052498, 周文英, 88 Print #1, 050992, 陈建东, 77 Open c:\score1 For Output As #2 Write #2, 051023, 王海涛, 66 Write #2, 052498, 周文英, 88 Write #2, 050992, 陈建东, 77 Close i1 = Shell(NOTEPAD.exe + c:\score, vbNormalNoFocus) i2 = Shell(NOTEPAD.exe + c:\score1, vbNormalNoFocus) End Sub Private Sub Command2_Click() Dim no As String, name As String, s As Integer Open c:\score For Input As #1 Do While Not EOF(1) Line Input #1, linedata List1.AddItem linedata Loop Open c:\score1 For Input As #2 Do While Not EOF(2) Input #2, no, name, s List2.AddItem no name s Loop Close End Sub 2 Private Sub Command1_Click() Dim fib%(0 To 9), i% Open c:\fb.dat For Output As #1 For i = 0 To 9 If i = 0 Or i = 1 Then fib(i) = i Else fib(i) = fib(i - 1) + fib(i - 2) End If Print #1, Fib( i ), fib(i) Next i Close #1 i = Shell(NOTEPAD.exe + c:\fb.dat, vbNormalNoFocus) End Sub Private Sub Command2_Click() Dim st$, n%, sum% Open c:\fb.dat For Input As #1 Do While Not EOF(1) Input #1, st, n sum = sum + n List1.AddItem st = n Loop Close #1 List1.AddItem 合计： sum List1.AddItem 平均： sum / 10 End Sub 3 4 Private Type studtype no As String * 4 name As String * 6 mark As Single End Type Dim student As studtype, stud(1 To 5) As studtype, t As studtype Private Sub Command1_Click() Open d:\score.dat For Random As #1 Len = Len(student) With student .no = 0001 .name = 星期一 .mark = 66 End With Put #1, 1, student With student .no = 0002 .name = 星期二 .mark = 99 End With Put #1, 2, student With student .no = 0003 .name = 星期三 .mark = 88 End With Put #1, 3, student With student .no = 0004 .name = 星期四 .mark = 55 End With Put #1, 4, student With student .no = 0005 .name = 星期五 .mark = 77 End With Put #1, 5, student Close #1 End Sub Private Sub Command2_Click() Open d:\score.dat For Random As #1 Len = Len(stu