vb如何在通用声明里定义一个二维数组，或者一个用随机函数生成的二维数组，如何能使两个按钮共用这个数组

Question

如何在通用声明里定义一个二维数组，或者一个用随机函数生成的二维数组，如何能使两个command按钮共用这个数组

Answer 1

Private Sub Command1_Click()
Dim abc(3, 3) As Integer
Dim abcMax As Integer
Dim abcMin As Integer
Dim i As Integer
Dim j As Integer
Dim iMax As Integer
Dim jMax As Integer
Dim iMin As Integer
Dim jMin As Integer
Dim abcSum As Integer
Dim abcAve As Single
For i = 0 To 3
For j = 0 To 3
abc(i, j) = 50 + Int(Rnd(1) * 50)
Next j
Next i
abcMax = 0
abcMin = 100
For i = 0 To 3
For j = 0 To 3
If abc(i, j) > abcMax Then
abcMax = abc(i, j)
iMax = i
jMax = j
End If

If abc(i, j) < abcMin Then
abcMin = abc(i, j)
iMin = i
jMin = j
End If
Next j
Next i
abcSum = 0
For i = 0 To 3
For j = 0 To 3
abcSum = abcSum + abc(i, j)
Next j
Next i
abcAve = abcSum / 16
Me.FontSize = 20
For i = 0 To 3
For j = 0 To 3
Me.Print abc(i, j),
Next j
Me.Print
Next i
Me.Print "Max", iMax, jMax, abcMax
Me.Print "Min", iMin, jMin, abcMin
Me.Print "Sum", abcSum
Me.Print "Ave", abcAve
End Sub
PCASTL本回答被网友采纳