Question

另一道VB题，请高手帮忙作完

Option Base 1
Option Explicit
'将你认为最合理的语句填入到问号处，使程序完整，以实现如下功能：
'单击窗体，随机生成一个二维数组，计算数组四周元素的和，
'即首行、首列、末行、末列所以元素的和。
'并输出数组和计算结果。
''注意：除带？语句外，不要修改任何其他内容。

Private Sub Form_Click()
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
Dim sum As Integer
'给所有数组元素赋值
'For i = ?
For j = 1 To 5
a(i, j) = Rnd * 100
Print Tab(j * 5); a(i, j);
Next j
Print
Next i
'求和并输出
For i = 1 To 5
' sum = sum + a(1, i) + ? + a(5, i) + ?
Next
'sum = sum - a(1, 1) - ? - a(5, 1) - ?
Print sum
End Sub

Answer 1

Option Base 1
Option Explicit

Private Sub Form_Click()
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
Dim sum As Integer
'给所有数组元素赋值
For i = 1 To 5
For j = 1 To 5
a(i, j) = Rnd * 100
Print Tab(j * 5); a(i, j);
Next j
Print
Next i
'求和并输出
For i = 1 To 5
sum = sum + a(1, i) + a(i, 1) + a(5, i) + a(i, 5)
Next
sum = sum - a(1, 1) - a(1, 5) - a(5, 1) - a(5, 5)
Print sum
End Sub