用vb怎么做数独程序

你把label控件设为控件数组：碧野Label1()

Private Sub Command1_Click()

    Dim a(9) As Integer, i As Integer

    Do While '这闷慧含里你的条件实在看不懂，如果对a()没有限制，就把Do While 和Loop删掉

        Randomize

  蚂笑      For i = 1 To 9

            a(i)=Int(Rnd*3)+1

        Next i

    Loop

    For i=1 to 9

        Label1(i).Caption=a(i)

    Next i

End Sub

虽然我不会VB，但我用C语言自己编出过一个解数独的程序

你要保证一行的不重复性的话可以这样：一行所有的数字物尘瞎乘起来是362880，加起来是45

你要做一个数独游戏的话，我用的随机出一个每行每列不重复的数独，但解一下看看罩空解是不是唯一

我刚大兄此一，水平有限，只能帮你到这里了，有问题再追问吧

---