|
分類:[.NET 全般]
授業の課題でvisial basicを使って成績表の合計と平均を出すのですが、矢印のnextのところに「インディテックスが配列の境界外です」とでてうまくいきません
どうすればよいかわかりますか
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const 生徒数 As Integer = 6
Const 科目数 As Integer = 3
Const 行の合計点のインデックス番号 As Integer = 4
Const 行の平均点のインデックス番号 As Integer = 5
Const 列の合計点のインデックス番号 As Integer = 7
Const 列の平均点のインデックス番号 As Integer = 8
Dim 成績(科目数, 生徒数) As Integer
Dim i, j, 行合計, 列合計 As Integer
For i = 1 To 科目数
For j = 1 To 生徒数
成績(i, j) = Val(成績表(i, j - 1).Value)
Next
Next
For i = 1 To 生徒数
行合計 = 0
For j = 1 To 科目数
行合計 = 行合計 + 成績(j, i)
Next
成績表(行の合計点のインデックス番号, i - 1).Value = 行合計
成績表(行の平均点のインデックス番号, i - 1).Value = Format(行合計 / 科目数, "0.0")
Next
For i = 1 To 生徒数
For j = 1 To 科目数
成績(i, j) = Val(成績表(i, j - 1).Value)
Next ←←←←
Next
For i = 1 To 科目数
列合計 = 0
For j = 1 To 生徒数
列合計 = 列合計 + 成績(j, i)
Next
成績表(列の合計点のインデックス番号, i - 1).Value = 列合計
成績表(列の平均点のインデックス番号, i - 1).Value = Format(列合計 / 生徒数, "0.0")
Next
End Sub
End Class
|