VB陣列Inputbox幫忙解一下 這程式碼><

Question

請輸入五筆學生姓名和成績


　　 　 姓名 　　 國文 　　 英文 　總分

第一筆 ＿＿　　　＿＿　 　 ＿＿　　＿＿


　　　　　　　　　　 繼續




請問 這個程式碼如何寫出>

第一筆 後面那些線 ＿＿　這個是空格

繼續是個按鈕　　就是輸入姓名國文英文　等資料
然後繼續鍵可以按　　＞＜

懂嗎？　　幫忙一下　謝謝

這個程式是跟我第一個問的那個程式　是　一起的

就是輸入那些資料後　可執行＂繼續＂鍵

五筆資料輸入後　可以用到那個　平均那個畫面
＞＜　幫忙一下　謝謝

Answer 1

' 這個可以同時解決你的兩個問題
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a As Integer, sum As Integer
Dim buf(5, 4) As String, subj(4) As String, tmp As String

subj(1) = "姓名": subj(2) = "國文": subj(3) = "英文": subj(4) = "總分"
sum = 0
For i = 1 To 5
a = 0
For j = 1 To 3
buf(i, j) = InputBox("請輸入第 " & i & " 位的 " & subj(j))
If (j > 1) Then a = a + Val(buf(i, j))
Next j
buf(i, 4) = a
sum = sum + a
Next i

tmp = ""
For j = 1 To 4
tmp = tmp & subj(j) & vbTab
Next j
Print tmp
Print String(40, "=")

For i = 1 To 5
tmp = ""
For j = 1 To 4
tmp = tmp & buf(i, j) & vbTab
Next j
Print tmp
Next i
Print String(40, "=")
Print "平均 = " & sum / 5

Answer 2

你的題意不全喔
不是很清楚你的需求是什麼
能否寫詳細一點