求教~数独问题

顺便说声~
我初学VB，有些问题想请教各位。
有时间的可以加我关注或者Q，我们可以互相学习讨论~~
我Q 249345181
谢~

....
还没人来么……
就是要取1~9中9个不同的整数分别放到9个不同的Label里面
Option Explicit
Private Sub Form_Load()
    Dim intNumber As Integer, Index As Integer
   
        For Index = 0 To 8
            Randomize
            intNumber = Int(Rnd * 8 + 1)
            Label1(Index).Caption = intNumber
        Next Index
   
End Sub
求高手告诉我还需要加什么..


都没人么...
这次弄得进入了死循环....
Private Sub Command1_Click()
    Dim intNumber(0 To 8) As Integer, Index As Integer
    Dim SameNum As Boolean
    Dim i As Integer
   
    Randomize
    For Index = 0 To 8
        Do
            intNumber(Index) = Int(Rnd * 8 + 1)
            SameNum = False
            For i = 0 To Index - 1
                If intNumber(i) = intNumber(Index) Then SameNum = True
            Next i
        Loop While SameNum = True
        Label1(Index).Caption = intNumber(Index)
    Next Index
   
End Sub
看到了请留言啊`~~~~~


index=0，index-1=-1，for不执行，samenumber恒为false，死循环

int是取整，int(random()*9+1)

试试看这个哈
Private Sub Command1_Click()
Dim number(9) As Integer, box(1) As Integer, i As Integer, j As Integer
Label1.Caption = ""
For i = 1 To 9
     number(i) = i
Next i
j = 0
Randomize
Do Until j > 8
box(1) = Int(Rnd * (8 - j)) + 1
Label1.Caption = Label1.Caption & Str(number(box(1)))
box(0) = number(box(1))
number(box(1)) = number(9 - j)
number(9 - j) = box(0)
j = j + 1
Loop
End Sub

   Dim A(8) As Integer, i As Integer, j As Integer
Randomize
For i = 0 To 8
     Do
   A(i) =1+ Int(9 * Rnd)
       For j = 0 To i - 1
         If A(j) = A(i) Then Exit For
       Next j
       If j = i Then Exit Do
     Loop
Next i


谢谢楼上几位，我弄明白了.