为什么我生成的二维数组排列在一列
PrivateSubCommand1_Click()Dima(4,5)AsIntegerDimiAsInteger,jAsIntegerFori=1To4Forj=1To...
Private Sub Command1_Click()
Dim a(4, 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(10 * Rnd) + 1
Picture1.Print a(i, j)
Next j
Picture1.Print
Next i
Print
End Sub
有问题么?为什么不是按行输出? 展开
Dim a(4, 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(10 * Rnd) + 1
Picture1.Print a(i, j)
Next j
Picture1.Print
Next i
End Sub
有问题么?为什么不是按行输出? 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询