作业帮 > 综合 > 作业

如何在VB中将1〜9随机排列成3*3的形式?

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/11 05:53:09
如何在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
再问: 能把完整的代码发过来么?我对vb一点都不懂……
再答: 代码就这些了。把界面设计也一并给你发过去吧,亏得我还留着没删掉。不过你如果不是在学VB,要这个做什么?