請高手教我血VB程式題目是成績表詳情看內(20)

Question

題目：成績表
一開始先問班上人數
再來問第一位學生的國文分數
　　　第一位學生的英文分數
　　　第一位學生的數學分數
第一學生總成績　　平均成績
　　　第二位學生的國文分數
　　　第二位學生的英文分數
　　　第二位學生的數學分數
第二學生總成績　　平均成績
假如班上人數ｎ人
最後一個就是會問到ｎ位學生
　　　第ｎ位學生的國文分數
　　　第ｎ位學生的英文分數
　　　第ｎ位學生的數學分數
第ｎ學生總成績　　平均成績

請不要記到我信箱！！
直接發問就好了
謝謝

請問！　要怎麼把打上去的分數都給列印出來
例如：第一位學生的國文分數１００
　　　第一位學生的英文分數１００
　　　第一位學生的數學分數１００
第一學生總成績３００　　平均成績１００

Answer 1

Private Sub Command1_Click()    Dim N As Integer, I As Integer, T As Single, S As String        Cls    Do      S = InputBox("請輸入班上人數")      If S = "" Then Exit Sub    Loop Until Int(Val(S)) > 0 '班上人數須>0    N = Int(Val(S))    For I = 1 To N        T = 0        Do          S = InputBox("第" & I & "位學生的國文分數")          If S = "" Then Exit Sub        Loop Until IsNumeric(S) And Val(S) >= 0 '成績須>=0        T = T + Val(S)        Do          S = InputBox("第" & I & "位學生的英文分數")          If S = "" Then Exit Sub        Loop Until IsNumeric(S) And Val(S) >= 0 '成績須>=0        T = T + Val(S)        Do          S = InputBox("第" & I & "位學生的數學分數")          If S = "" Then Exit Sub        Loop Until IsNumeric(S) And Val(S) >= 0 '成績須>=0        T = T + Val(S)        S = Format(T / 3, "0.##") '取小數點2位做4捨5入        '若為整數則去掉小數點        S = IIf(Right(S, 1) = ".", Left(S, Len(S) - 1), S)        '輸出        Print "第"; I; "位學生總成績 : "; T, "平均成績 : "; S    NextEnd Sub

2006-03-24 01:06:15 補充：
S = InputBox("第" & I & "位學生的國文分數")
If S = "" Then Exit Sub
Loop Until IsNumeric(S) And Val(S) >= 0 '成績須>=0
Print "第" & I & "位學生的國文分數 : "; Val(S)

2006-03-24 01:07:18 補充：
'
'
Do
S = InputBox("第" & I & "位學生的英文分數")
If S = "" Then Exit Sub
Loop Until IsNumeric(S) And Val(S) >= 0 '成績須>=0
Print "第" & I & "位學生的英文分數 : "; Val(S)
'
'

2006-03-24 01:10:14 補充：
'
'
T = T + Val(S)
Do
S = InputBox("第" & I & "位學生的數學分數")
If S = "" Then Exit Sub
Loop Until IsNumeric(S) And Val(S) >= 0 '成績須>=0
Print "第" & I & "位學生的數學分數 : "; Val(S)
'
'
不知道您看懂嗎?yahoo知識真難補充

Answer 2

恩恩謝謝@@那個問題我已經解決了 不過還是謝謝妳