如何在VB中将1〜9随机排列成3*3的形式？
答案:1 悬赏:0
解决时间 2021-02-12 08:07
- 提问者网友：独菊痴梦
- 2021-02-11 21:23
如何在VB中将1〜9随机排列成3*3的形式？
最佳答案
- 二级知识专家网友：瘾与深巷
- 2021-02-11 22:38
在窗体上建一个有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
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| • 手机登qq时，显示手机磁盘不足，清理后重新登 |
| • 刺客的套装怎么选啊？ |