Question

Private Sub Command1_Click() Dim a() As Integer, i As Integer, j As Integer ReDim a(1 To 3, 1 To 3)

vb的，为什么出来只有一列。我想要用随机数生成一个3*3的矩阵。元素值在0~100之间

Answer 1

Private Sub Command1_Click()
Dim a() As Integer, i As Integer, j As Integer
ReDim a(1 To 3, 1 To 3)
For i = 1 To 3
For j = 1 To 3
a(i, j) = Int(Rnd * 100 + 1)
Picture1.Print Right(" " & a(i, j), 4);
Next
Picture1.Print
Next
End Sub

Answer 2

代码不全啊

追问

Private Sub Command1_Click()
Dim a() As Integer, i As Integer, j As Integer
ReDim a(1 To 3, 1 To 3)
For i = 1 To 3
For j = 1 To 3
a(i, j) = Int(Rnd * 100 + 1)
Picture1.Print a(i, j)
Next
Picture1.Print
Next
End Sub
恩哪里有错误啊

追答

是打印的问题，不是赋值的问题，这样试试
Private Sub Command1_Click()
Randomize
Picture1.Cls
Picture1.CurrentY = 200
x = ""
Dim a() As Integer, i As Integer, j As Integer
ReDim a(1 To 3, 1 To 3)
For i = 1 To 3
For j = 1 To 3
a(i, j) = Int(Rnd * 100 + 1)
x = x & " " & a(i, j)
Next
Picture1.Print x
x = ""
Next
End Sub