急！！！用VB生成n阶矩阵，显示下标越界，求解答~~
Option Base 1
Dim a() As Integer, i As Integer, j As Integer, n As Integer
Private Sub Command1_Click()
n = Val(Text.Text)
Randomize
For i = 1 To n
For j = 1 To n
a(i, j) = Int(Rnd * (90) + 10)
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub
最新回答
云纹梦纷蝶
2024-10-17 06:13:21
Option Explicit
Option Base 1
Dim a() As Integer, i As Integer, j As Integer, n As Integer
Private Sub Command1_Click()
n = Val(Text.Text)
Randomize
For i = 1 To n
For j = 1 To n
ReDim a(i, j)'==============这里定义下
a(i, j) = Int(Rnd * (90) + 10)
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub
追问
还是不对
已经好了，谢谢~~
风花雪月夜
2024-10-17 01:38:30
追问
。。。。懂了，谢谢(╯3╰)
怎么修改？
热门标签
