如何在VB中将1〜9随机排列成3*3的形式?
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/18 23:08:54
如何在VB中将1〜9随机排列成3*3的形式?
RT,类似于将1〜9随机填写在一个3*3的表格中,不能重复
RT,类似于将1〜9随机填写在一个3*3的表格中,不能重复
![如何在VB中将1〜9随机排列成3*3的形式?](/uploads/image/z/20158308-36-8.jpg?t=%E5%A6%82%E4%BD%95%E5%9C%A8VB%E4%B8%AD%E5%B0%861%26%2312316%3B9%E9%9A%8F%E6%9C%BA%E6%8E%92%E5%88%97%E6%88%903%2A3%E7%9A%84%E5%BD%A2%E5%BC%8F%3F)
在窗体上建一个有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,要这个做什么?
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,要这个做什么?
怎样样用VB编一个小顺序 在一个3*3 的九宫格里 按一个按键 可以随机发生1-99的随机数字
VB语言中,在固定的10个数中随机产生3个数,怎么编
如何在VB中比较两个随机出现的变量的大小
VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序?
VB中如何设置随机数的随机率
VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且
关于VB的编程题.如何在Text1随机产生"+"、"-"、"*"、"/"四种符号,用什么函数? 谢谢啦
随机3个数字排列1,2,3
用VB从1-12这12个数中随机生成3个互不重复的数
在9*3的方格图中将每一个小方格涂上红色或黄色不论如何涂色其中至少有两列的涂色
如何在EXCEL中将A,B,C,D,形式的列数据转换成A,A,A,B,B,B,C,C,C,D,D,D的形式的列啊
vb中如何随机产生任意字母?