如何在VB中将1〜9随机排列成3*3的形式?RT,类似于将1〜9随机填写在一个3*3的表格中,不能重复

如何在VB中将1〜9随机排列成3*3的形式?RT,类似于将1〜9随机填写在一个3*3的表格中,不能重复
如何在VB中将1〜9随机排列成3*3的形式?
RT,类似于将1〜9随机填写在一个3*3的表格中,不能重复

如何在VB中将1〜9随机排列成3*3的形式?RT,类似于将1〜9随机填写在一个3*3的表格中,不能重复
在窗体上建一个有Lable1控件数组(0~8),排成3*3的形式,建一个Comand1,输入如下代码：
Private Sub Command1_Click()
Dim strN$,nL%,cNo$
strN = "123456789"
For i = 0 To 8
nL = Len(strN)
Randomize
cNo = Mid(strN,Int(Rnd * nL) + 1,1)
strN = Replace(strN,cNo,"")
Label1(i) = cNo
Next
End Sub