请VB高手看看 这个程序哪里有错（不难）在线等求解

来源：百度知道 编辑：UC知道 时间：2024/06/07 10:17:08
Option Explicit
Option Base 1

Private Sub Form_Click()
Dim a() As Integer, b(2, 3) As Integer, v As Variant
Dim i As Integer, j As Integer
Print "B数组个元素值"
For i = i To 2
For j = 1 To 3
b(i, j) = Int(10 * Rnd)
Print b(i, j);
Next j
Print
Next i
v = b
Print "v个元素值:"
For i = 1 To UBound(a, 1)
For j = q To UBound(v, 2)
Print v(1, j)
Next j
Print
Next i
a = b
Print "a 数组元素值:"
For i = 1 To UBound(a, 1)
For j = 1 To UBound(a, 2)
Print a(i, j);
Next j
Print
Next i
Print "a的伟接;"

End Sub

Dim a() As Integer, b(2, 3) As Integer, v As Variant
Dim i As Integer, j As Integer
i = 1 'b从1开始，而i从0开始 因此下面的语句就会越界，这里手动设置从1开始
Print "B数组个元素值"
For i = i To 2
For j = 1 To 3
b(i, j) = Int(10 * Rnd)
Print b(i, j);
Next j
Print
Next i

v = b
Print "v个元素值:"

ReDim a(1) 'a还没有初始化，不能获取上标；这里手动初始化它
For i = 1 To UBound(a, 1)
For j = 1 To UBound(v, 2)
Print v(1, j)
Next j
Print
Next i

a = b
Print "a 数组元素值:"

For i = 1 To UBound(a, 1)
For j = 1 To UBound(a, 2)
Print a(i, j);
Next j
Print
Next i

Print "a的伟接;"