着急...两道关于数组的问题~!一共100分,最最简单的问题.大家帮忙啊谢谢,请大家帮忙,最好在在17.00之前给我谢谢

Question

Dim num(9) As Integer
Private Sub Form_Load()
Dim temp As Integer
For i = 0 To 9
    num(i) = InputBox("请输入")
    Debug.Print num(i)
Next i
For j = 0 To 4
    temp = num(j)
    num(j) = num(9 - j)
    num(9 - j) = temp
    
Next j
For i = 0 To 9
    MsgBox "结果" & num(i)
Next i
End Sub
给你点启发,第二题自己会写了吧.

Answer 1

我是姐姐,不是哥哥.
以后可得自己写
Dim num(3, 3) As Integer
Private Sub Form_Load()
Dim sum As Integer
Dim temp(3) As Integer
For i = 0 To 3
    For j = 0 To 3
        num(i, j) = Val(InputBox("please input"))
    Next j
Next i
For i = 0 To 3
    sum = sum + num(i, i)
Next iMsgBox "对角线和=" & sum
For i = 0 To 3
    sum1 = sum1 + num(0, i)
    sum2 = sum2 + num(1, i)
    sum3 = sum3 + num(2, i)
    sum4 = sum4 + num(3, i)
    sum5 = sum5 + num(i, 0)
    sum6 = sum6 + num(i, 1)
    sum7 = sum7 + num(i, 2)
    sum8 = sum8 + num(i, 3)
Next i
MsgBox "each row:" & Str(sum1) & Str(sum2) & Str(sum3) & Str(sum4)
MsgBox "each colum:" & Str(sum5) & Str(sum6) & Str(sum7) & Str(sum8)
For i = 0 To 3
    temp(i) = num(0, i)
    num(0, i) = num(2, i)
    num(2, i) = temp(i)
Next i
For i = 0 To 3
    temp(i) = num(1, i)
    num(1, i) = num(3, i)
    num(3, i) = temp(i)
Next i
For i = 0 To 3
    For j = 0 To 3
        msg = msg + Str(num(i, j))
    Next j
Next i
MsgBox "output:" & msg
End Sub