VB上机实习报告(4)

长江大学

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 -

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库VB上机实习报告(4)在线全文阅读。