另一道VB题,请高手帮忙作完
OptionBase1OptionExplicit'将你认为最合理的语句填入到问号处,使程序完整,以实现如下功能:'单击窗体,随机生成一个二维数组,计算数组四周元素的和,...
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 展开
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
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 展开
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
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询