level 2
大神们为什么我这个command1(1)总是1啊
我做的是一个抽签程序 抽签个数由文本框输入 比如我输入10就只能用10个命令按钮组 然后在改变命令按钮的caption属性实现抽签1-10打乱顺序随机改变命令按钮组的caption属性
2020年12月10日 11点12分
1
level 15
我记得你上次问过一个这个问题的简化版(只有3个按钮),并且当时没有“可用按钮随机排序”的要求,现在加上了
我没仔细看你写的随机排序代码,不过我感觉你写复杂了,其实可以这样:
For i = 1 To n
Num(i) = i
Next i
For i = 1 To n
k = Int(Rnd * n) + 1
Temp = Num(i)
Num(i) = Num(k)
Num(k) = Temp
Next i
2020年12月10日 13点12分
7
好的 谢谢了 我问的这个问题已经解决了 在do while循环之前变成true就行了
2020年12月10日 14点12分
我刚刚试了一下你的代码 我的意思是比如我只要五个数这五个数是从一到五的 然后点击那五个命令按钮的时候这五个数是随机分配到命令按钮的 你的这个代码我试了一下有重复的值啊
2020年12月10日 14点12分
@JovnSL 我写的是前后两个循环,你怕不是合起来写成一个了吧
2020年12月10日 14点12分