VB随机生成的 方阵(N为输入的行数)并显示出来,计算所有靠边元素的和并输出
如何编程?高手帮下忙~谢谢~
题目打错了。... 随机生成N*N的方阵(N为输入的行数)并显示出来,计算所有靠边元素的和并输出
拜托啦!!!!!!!!!!!!!!
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim N As Integer, Arr() As Integer
Dim i As Integer, j As Integer
N = InputBox("请输入N")
ReDim Arr(N, N) '重新定义数组
Picture1.Cls
For i = 1 To N
For j = 1 To N
Arr(i, j) = Int(Rnd * 10)
Picture1.Print Arr(i, j);
Next j
Picture1.Print
Next i
Dim MarginSum As Long
For i = 1 To N
MarginSum = MarginSum + Arr(1, i) '第一行之和
MarginSum = MarginSum + Arr(i, N) '最后一列之和
MarginSum = MarginSum + Arr(i, 1) '第一列之和
MarginSum = MarginSum + Arr(N, i) '最后一行之和
Next i
'减去重复的数据
MarginSum = MarginSum - Arr(1, 1) - Arr(N, 1) - Arr(N, N) - Arr(1, N)
MsgBox "边缘和为:" & MarginSum
End Sub
Option Base 1
Private Sub Command1_Click()
Dim N As Integer, Arr() As Integer
Dim i As Integer, j As Integer
N = InputBox("请输入N")
ReDim Arr(N, N) '重新定义数组
Picture1.Cls
For i = 1 To N
For j = 1 To N
Arr(i, j) = Int(Rnd * 10)
Picture1.Print Arr(i, j);
Next j
Picture1.Print
Next i
Dim MarginSum As Long
For i = 1 To N
MarginSum = MarginSum + Arr(1, i) '第一行之和
MarginSum = MarginSum + Arr(i, N) '最后一列之和
MarginSum = MarginSum + Arr(i, 1) '第一列之和
MarginSum = MarginSum + Arr(N, i) '最后一行之和
Next i
'减去重复的数据
MarginSum = MarginSum - Arr(1, 1) - Arr(N, 1) - Arr(N, N) - Arr(1, N)
MsgBox "边缘和为:" & MarginSum
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-05-11
Private Sub Form_click()
n = Val(InputBox("N"))
For i = 1 To n
For j = 1 To n
lngnum = Int(Rnd * 10)
Print lngnum & " ";
If i <> 1 And i <> n Then
If j = 1 Or j = n Then Sum = Sum + lngnum
Else
Sum = Sum + lngnum
End If
Next
Print
Next
Debug.Print Sum
End Sub
n = Val(InputBox("N"))
For i = 1 To n
For j = 1 To n
lngnum = Int(Rnd * 10)
Print lngnum & " ";
If i <> 1 And i <> n Then
If j = 1 Or j = n Then Sum = Sum + lngnum
Else
Sum = Sum + lngnum
End If
Next
Next
Debug.Print Sum
End Sub
第2个回答 2010-05-11
这用n*n数组不就结了？？ rnd()生成随机数
