我有一題vb功課要交

Question

他是說，有一「數學」陣列如以下程式，為了獎勵滿分的同學，老師決定為所有　　　100分的同學再加5分，請完成此一程式：
Dim 數學() = {90,58,41,100,59,28,100,0,100,41,91,0}謝謝囉！！

怎麼沒辦法去執行

Answer 1

'Dim 數學() = {90,58,41,100,59,28,100,0,100,41,91,0}
'上面這個方式在vb陣列裡會發生錯誤 "陳述結尾"
Private Sub Form_Activate()
Dim math(12) As Integer
math(1) = 90: math(2) = 58: math(3) = 41: math(4) = 100
math(5) = 59: math(6) = 28: math(7) = 100: math(8) = 0: math(9) = 100
math(10) = 41: math(11) = 91: math(12) = 0
For i = 1 To 12
　　If math(i) = 100 Then '如果是滿分的
　　　　math(i) = math(i) + 5 '就讓他加5分
　　End If
Next
Print "加分之後的分數"
For i = 1 To 12 '輸出加分後的結果
　　Print math(i)
Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim 數學
數學 = Array(90, 58, 41, 100, 59, 28, 100, 0, 100, 41, 91, 0)
數學 = Split(Replace(Join(數學), 100, 105))
End Sub

Answer 3

改成此即可：
Dim 數學()
數學() = Array(90, 58, 41, 100, 59, 28, 100, 0, 100, 41, 91, 0)

Answer 4

Dim 數學() = {90,58,41,100,59,28,100,0,100,41,91,0}
Dim i = 0
For i = 0 to 數學.ubound
　if 數學(i) = 100 then
　　數學(i) = 數學(i) + 5
　end if
Next