vb求一个4乘4矩阵的所有元素之和及所有靠边元素之和?

Answer 1

Option Explicit
Private Sub Command1_Click()
Dim arr(1 To 4, 1 To 4) As Long, i As Integer, j As Integer, sum As Long, sum1 As Long
For i = 1 To 4
For j = 1 To 4
Randomize
arr(i, j) = Int(100 * Rnd) + 1'随机生成1-100的整数
sum = sum + arr(i, j) '所有项之和
Print arr(i, j),
Next
Print
Next
For i = 1 To 4
sum1 = sum1 + arr(i, i) + arr(5 - i, i) '二条对角线之和
Next
Print "平均数：" & sum / 16 & vbNewLine & "对角线和：" & sum1
End Sub

Answer 2

代码：

Private Sub Command1_Click()
    Cls
  Dim a(3, 3) As Integer, S1 As Integer, S2 As Integer
  Randomize
  For i = LBound(a, 1) To UBound(a, 1)
    For j = LBound(a, 2) To UBound(a, 2)
      a(i, j) = Int(Rnd * 9 + 1)
      S1 = S1 + a(i, j)
      Print a(i, j);
    Next j
    Print
  Next i
  Print
  Print "所有元素之和="; S1
  Print
  For i = LBound(a, 1) + 1 To UBound(a, 1) - 1
    For j = LBound(a, 2) + 1 To UBound(a, 2) - 1
      S2 = S2 + a(i, j)
    Next j
  Next i
  Print "所有靠边元素之和="; S1 - S2
  Print
End Sub

运行界面：

Answer 3

Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, m As Integer
Dim a(3, 3) As Integer
For i = 0 To 3
For j = 0 To 3
a(i, j) = Rnd * 100
Print a(i, j),
Next
Print
Next
m = 0
n = 0
For i = 0 To 3
For j = 0 To 3
m = m + a(i, j)
If i = 0 Or i = 3 Or j = 0 Or j = 3 Then
n = n + a(i, j)

End If
Next
Next

Print m, n
End Sub