长江大学
Private Sub jsmmkcpjf_Click() Form1.Cls
Form1.BackColor = RGB(2, 180, 214) Dim a, b, c, d, e, f
a = 0: b = 0: c = 0: d = 0: e = 0: f = 0 For i = 1 To N
a = a + stu(i).cj(1) b = b + stu(i).cj(2) c = c + stu(i).cj(3) d = d + stu(i).cj(4) e = e + stu(i).cj(5) f = f + stu(i).cj(6) Next i
a = Format(a / N, \ b = Format(b / N, \ c = Format(c / N, \ d = Format(d / N, \ e = Format(e / N, \ f = Format(f / N, \ Form1.FontSize = 22
计算每门课程平均分 - 16 -
长江大学
Form1.FontSize = 22
Form1.ForeColor = &HFFFF&
Form1.Print Tab(7); \课程 平均分 \ Form1.Print
Form1.FontSize = 16
Form1.ForeColor = &HC0&
Form1.Print Tab(10); \英语\ Form1.ForeColor = &HC0& Form1.Print
Form1.Print Tab(10); \ Form1.Print
Form1.Print Tab(10); \数学\ Form1.Print
Form1.Print Tab(10); \物理\ Form1.Print
Form1.Print Tab(10); \化学\ Form1.Print
Form1.Print Tab(10); \体育\ End Sub
Private Sub jsgkfsdrs_Click() Form2.Show End Sub
Form2: Dim s(5 To 10), i!, k!, j!
Private Sub Command7_Click() Form2.Hide Form1.Show End Sub
Private Sub Command1_Click() Form2.Cls Form2.Print
Form2.FontSize = 24
Form2.Print Tab(30); \范围\课程\人数\Form2.FontSize = 24
Form2.ForeColor = &HFF& Form2.Print For k = 5 To 10
计算每门课程分数段人数 - 17 -
长江大学
s(k) = 0 Next k i = 1
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
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 Command2_Click() Form2.Cls Form2.Print
Form2.FontSize = 24
Form2.ForeColor = &HFF&
Form2.Print Tab(30); \范围\课程\人数\Form2.FontSize = 24
Form2.ForeColor = RGB(221, 180, 114) Form2.Print
- 18 -
长江大学
i = 2
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
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 + \ 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 Command3_Click() Form2.Cls Form2.Print
Form2.FontSize = 24
Form2.ForeColor = &HFF&
Form2.Print Tab(30); \范围\课程\人数\Form2.FontSize = 24
Form2.ForeColor = RGB(52, 0, 14) Form2.Print i = 3
For j = 1 To N
- 19 -
长江大学
g = stu(j).cj(i) \\ 10 Select Case g 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.Print
Write #1, \ Close #1
For k = 5 To 10 s(k) = 0 Next k End Sub
Private Sub Command4_Click() Form2.Cls Form2.Print
Form2.FontSize = 24
Form2.ForeColor = &HFF&
Form2.Print Tab(30); \范围\课程\人数\Form2.FontSize = 24
Form2.ForeColor = RGB(52, 10, 14) Form2.Print i = 4
For j = 1 To N
g = stu(j).cj(i) \\ 10 Select Case g
- 20 -
