vb程式設計

Question

設計一個程式先輸入學生人數n，在輸入每個學生個VB考試成績，計算全班平均分數，並求其中最高分與最低分數

會的請給我程式碼謝謝

Answer 1

　n = Val(InputBox("請輸入人數", "VB考試成績"))

　If n = 0 Then
　　MsgBox "沒人", vbCritical
　　Exit Sub
　End If

　Max = Val(InputBox("請輸入學生1成績", "VB考試成績"))
　Min = Max

　For i = 2 To n
　　tmp = Val(InputBox("請輸入學生" & i & "成績", "VB考試成績"))

　　If tmp > Max Then Max = tmp
　　If tmp < Min Then Min = tmp
　Next

　MsgBox "最高分：" & Max
　MsgBox "最低分：" & Min

無聊騙騙點數

Answer 2

作業自己寫