Question

用VB把随机生成的数（0到9的正整数）排列成5行，每一行7个数，具体的代码怎么写

我想在PICTURE里面打印出来，每行7个数，共5行，这7个数是随机生成的
Private Sub Command1_Click()
Dim I As Integer, J As Integer, A() As Integer
For I = 1 To 5
For J = 1 To 7
Picture1.Print A(I, J) = Int(10 * Rnd)
Next J
Next I
End Sub
哪需要改啊？ 用不用IF语句啊？

Answer 1

最完整的,也是最快的算法!
Sub form_load()
Randomize
End Sub

Private Sub Command1_Click()
For i = 1 To 5
j = 1
Do While j = 1
a = Int(Rnd * 10 ^ 7)
If Len(a) = 7 Then Picture1.Print a
j = 0
Loop
Next

End Sub

Answer 2

randomize
for i = 1 to 35
print rnd*9;
if i mod 7=0 then print
next