vb程序：随机生成一个4X4矩阵，求出对角线元素之和，并求出所有元素的平均值？

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

dim k（4,5） as integer'定义全局变量数组

dim n as integer‘生成的数的范围

private sub command1_click()

for i = 1 to 4

for j=1 to 5

k(i,j)=fix(rnd(1)*n)'随机生成0到200的数

text1.text=text1.text &k(i,j) &" "

next

text1.text=text1.text &vbcrlf

next

end sub

private sub command2_click()’查找

dim min as integer

min=n

for i = 1 to 4

for j=1 to 5

if k(i,j)<=min then

min=k(i,j)

end if

next

next

end sub

手打，有错误的地方请提出来。。

Private Sub Command1_Click()

Randomize (Timer)

Dim i As Integer, j As Integer, intArray(5, 5) As Integer, intCount As Integer

For i = 1 To 5

  For j = 1 To 5

    intArray(i, j) = Int(Rnd(i * j) * 90 + 10)

    If intArray(i, j) = 25 Then intCount = intCount + 1

    Print intArray(i, j)

  Next j

  Print

Next i

  Print "25出现了" &intCount &"次."

  Print

End Sub

---