长江大学
Case 0 To 5 s(5) = s(5) + 1 Case 6
s(6) = s(6) + 1 Case 7
s(7) = s(7) + 1 Case 8
s(8) = s(8) + 1 Case 9
s(9) = s(9) + 1 Case 10
s(10) = s(10) + 1 End Select Next j
Form2.Print Tab(30); \分以下\课程名; Tab(51); s(5) Open App.Path + \物理.Txt\ Write #1, \分以下\ For k = 6 To 8
Form2.Print Tab(29); k * 10; \课程名; Tab(51); s(k) Write #1, k * 10 & \ Next k
Form2.Print Tab(30); \课程名; Tab(51); s(9) + s(10) Form2.Prin
Write #1, \ Close #1
For k = 5 To 10 s(k) = 0 Next k End Sub
Private Sub Command5_Click() Form2.Cls Form2.Print
Form2.FontSize = 24
Form2.ForeColor = &HFF&
Form2.Print Tab(30); \范围\课程\人数\Form2.FontSize = 24
Form2.ForeColor = RGB(125, 18, 114) Form2.Print i = 5
For j = 1 To N
g = stu(j).cj(i) \\ 10 Select Case g Case 0 To 5 s(5) = s(5) + 1
- 21 -
长江大学
Case 6
s(6) = s(6) + 1 Case 7
s(7) = s(7) + 1 Case 8
s(8) = s(8) + 1 Case 9
s(9) = s(9) + 1 Case 10
s(10) = s(10) + 1
End Select Next j
Form2.Print Tab(30); \分以下\课程名; Tab(51); s(5) Open App.Path + \化学.Txt\ Write #1, \分以下\ For k = 6 To 8
Form2.Print Tab(29); k * 10; \课程名; Tab(51); s(k) Write #1, k * 10 & \ Next k
Form2.Print Tab(30); \课程名; Tab(51); s(9) + s(10) Form2.Print
Write #1, \ Close #1
For k = 5 To 10 s(k) = 0 Next k End Sub
Private Sub Command6_Click() Form2.Cls Form2.Print
Form2.FontSize = 24
Form2.ForeColor = RGB(2, 1, 14)
Form2.Print Tab(30); \范围\课程\人数\Form2.FontSize = 24
Form2.ForeColor = RGB(152, 80, 74) Form2.Print i = 6
For j = 1 To N
g = stu(j).cj(i) \\ 10 Select Case g Case 0 To 5 s(5) = s(5) + 1 Case 6
- 22 -
长江大学
s(6) = s(6) + 1 Case 7
s(7) = s(7) + 1 Case 8
s(8) = s(8) + 1 Case 9
s(9) = s(9) + 1 Case 10
s(10) = s(10) + 1 End Select Next j
Form2.Print Tab(30); \分以下\课程名; Tab(51); s(5) Open App.Path + \体育.Txt\ Write #1, \分以下\ For k = 6 To 8
Form2.Print Tab(29); k * 10; \课程名; Tab(51); s(k) Write #1, k * 10 & \ Next k
Form2.Print Tab(30); \课程名; Tab(51); s(9) + s(10) Form2.Print
Write #1, \ Close #1
For k = 5 To 10 s(k) = 0 Next k End Sub
Form3： Private Sub Command1_Click() Cls
Dim a$(), b%(), N, max N = 0 max = 0
Open App.Path + \英语.txt\ Do While Not EOF(1) N = N + 1
ReDim Preserve a(N) ReDim Preserve b(N) Input #1, a(N), b(N)
If b(N) > max Then max = b(N)
每门课程的成绩分布 - 23 -
长江大学
Loop Close #1
Scale (0, max * 1.5)-(max * 1.5, -max * 0.1)
Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0) CurrentX = -3: CurrentY = -0.5 Print Tab(1); \人数：\ X1 = max / 2 / N w = X1
For i = 1 To N X2 = X1 + w Y2 = b(i)
Line (X1, 0)-(X2, Y2), QBColor(9), BF CurrentX = X1
CurrentY = Y2 + max * 0.1 Print a(i) X1 = X2 + w Next i End Sub
Private Sub Command2_Click() Cls
Dim a$(), b%(), N, max N = 0 max = 0
Open App.Path + \ Do While Not EOF(1) N = N + 1
ReDim Preserve a(N) ReDim Preserve b(N) Input #1, a(N), b(N)
If b(N) > max Then max = b(N) Loop Close #1
Scale (0, max * 1.5)-(max * 1.5, -max * 0.1)
Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0) CurrentX = -3: CurrentY = -0.5
Print Tab(1); \人数：\b(5)
X1 = max / 2 / N w = X1
For i = 1 To N X2 = X1 + w Y2 = b(i)
Line (X1, 0)-(X2, Y2), QBColor(9), BF
- 24 -
长江大学
CurrentX = X1
CurrentY = Y2 + max * 0.1 Print a(i) X1 = X2 + w Next i End Sub
Private Sub Command3_Click() Cls
Dim a$(), b%(), N, max N = 0 max = 0
Open App.Path + \数学.txt\ Do While Not EOF(1) N = N + 1
ReDim Preserve a(N) ReDim Preserve b(N) Input #1, a(N), b(N)
If b(N) > max Then max = b(N) Loop Close #1
Scale (0, max * 1.5)-(max * 1.5, -max * 0.1)
Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0) CurrentX = -3: CurrentY = -0.5 Print Tab(1); \人数：\ X1 = max / 2 / N w = X1
For i = 1 To N X2 = X1 + w Y2 = b(i)
Line (X1, 0)-(X2, Y2), QBColor(13), BF CurrentX = X1
CurrentY = Y2 + max * 0.1 Print a(i) X1 = X2 + w Next i End Sub
Private Sub Command4_Click() Cls
Dim a$(), b%(), N, max N = 0 max = 0
Open App.Path + \物理.txt\ Do While Not EOF(1) N = N + 1
- 25 -
