VB 定义5*5的二维数组,随机产生25个两位数存于二维数组中,计算对角线的平均值

Question

如题所述

Answer 1

VB6新建一工程‍，在窗体上拖入一个命令按钮。然后进入代码区，删除所有代码后，粘贴以下代码即可：

Option Explicit

Private Sub Command1_Click()
Dim a(4, 4) As Long
Dim I As Long, J As Long
Dim K As Long, S1 As Long, S2 As Long
Randomize
Me.AutoRedraw = True
For I = 0 To 4
For J = 0 To 4
    a(I, J) = Rnd() * 89 + 10
    Print a(I, J),
    If I = J Then S1 = S1 + a(I, J)
    If I + J = 4 Then S2 = S2 + a(I, J)
Next J
    Print
Next I
   Print "对角线的值的平均值有两个。"
   Print "从左上角到右下角："; S1 / 5, "从右上角到左下角："; S2 / 5
End Sub

 运行效果图如下：

追问

厉害！大神！

大神，为什么我弄出来是4*5,不是5*5