Question

vb 缺少数组

Option Explicit
Dim a(1 To 3, 1 To 3) As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 3
For j = 1 To 3
a(i, j) = Int(90 * Rnd) + 10
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Dim min As Integer, a As Integer, b As Integer
min = a(1, 1)
For i = 1 To 3
For j = 1 To 3
If a(i, j) < min Then
min = a(i, j)
a = i
b = j
End If
Next j
Next i
t = a(2, 2)
a(2, 2) = a(a, b)
a(a, b) = t
For i = 1 To 3
For j = 1 To 3
Picture2.Print a(i, j);
Next j
Picture2.Print
Next i
End Sub

Answer 1

Private Sub Command2_Click()
Dim min As Integer, a As Integer, b As Integer
min = a(1, 1)
在这里，a变量你已经定义成整形了。就不是数组，要嘛你dim a 这样就好，要嘛 dim a() as integer
还有，你同样位置for循环也有问题。
min = a(i, j)
a = i
变量交换这里，a不能等于i，a表示的只是数组名而不是一个变量

Answer 2

是哪一个 提示缺少数组？ t没有申明