UC知道怎么提示下标越界?
来源：百度知道 编辑：UC知道 时间：2024/05/27 15:20:50
Private Sub Command1_Click()
Dim a&(), b&(), i&, n&, m&, k&
m = 15: k = 0: n = 0
For i = 1 To m
a(i) = Val(Int(Rnd * 26) + 65)
b(i) = Str(a(i))
k = k + 1
Print a(i);
Print b(i);
Next i
Print
End Sub
Dim a&(), b&(), i&, n&, m&, k&
m = 15: k = 0: n = 0
For i = 1 To m
a(i) = Val(Int(Rnd * 26) + 65)
b(i) = Str(a(i))
k = k + 1
Print a(i);
Print b(i);
Next i
End Sub
用dim a()定义的可变数组,在使用前要指定大小,用redim a(m)确定元素的个数
Private Sub Command1_Click()
Dim a&(), b&(), i&, n&, m&, k&
m = 15: k = 0: n = 0
redim a(m)
redim b(m)
For i = 1 To m
a(i) = Val(Int(Rnd * 26) + 65)
b(i) = Str(a(i))
k = k + 1
Print a(i);
Print b(i);
Next i
Print
End Sub