可以用二维数组将填入后的九宫格数子储存，然后在判断行是否满足要求，列是否满足要求，每个格是否满足要求。
青海网站建设公司成都创新互联,青海网站设计制作，有大型网站制作公司丰富经验。已为青海千余家提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱，请找那个售后服务好的青海做网站的公司定做！
你把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
你要做一个数独游戏的话，我用的随机出一个每行每列不重复的数独，但解一下看看解是不是唯一
我刚大一，水平有限，只能帮你到这里了，有问题再追问吧