题目
关于VB中从 1到35随即产生5个数,要求有些数不能同同时出现的问题,写完后每次都是运算卡死,
如1 不与3,4,5,6,7,8,16,18,19,21,23,25,26,27,31,32,33,35 同时间出现
2 不与3,4,5,6,7,9,11,12,14,15,16,18,19,20,21,22,24,25,26,27,29,30,31,32,34同时出现
3不与5、8、10、11、12、14、16、21、22、23、、25、26、31、34、35 同时出现
kaishi:
Randomize
t35(0) = Int(Rnd() * 35 + 1)
t35(1) = Int(Rnd() * 35 + 1)
t35(2) = Int(Rnd() * 35 + 1)
t35(3) = Int(Rnd() * 35 + 1)
t35(4) = Int(Rnd() * 35 + 1)
haoma = t35(0) & "," & t35(1) & "," & t35(2) & "," & t35(3) & "," & t35(4)
Do While InStr(haoma,1) > 0
If InStr(haoma,3) > 0 Or InStr(haoma,4) > 0 Or InStr(haoma,5) > 0 Or InStr(haoma,6) > 0 Or InStr(haoma,7) > 0 Or InStr(haoma,8) > 0 Or InStr(haoma,16) > 0 Or InStr(haoma,18) > 0 Or InStr(haoma,19) > 0 Or InStr(haoma,21) > 0 Or InStr(haoma,23) > 0 Or InStr(haoma,25) > 0 Or InStr(haoma,26) > 0 Or InStr(haoma,27) > 0 Or InStr(haoma,31) > 0 Or InStr(haoma,33) > 0 Or InStr(haoma,35) > 0 Then
GoTo kaishi
End If
Loop
'1 不与3,4,5,6,7,8,16,18,19,21,23,25,26,27,31,32,33,35 同时间出现
Text2.Text = Text2.Text & haoma
Text2.Text = Text2.Text & vbCrLf
End Sub
如1 不与3,4,5,6,7,8,16,18,19,21,23,25,26,27,31,32,33,35 同时间出现
2 不与3,4,5,6,7,9,11,12,14,15,16,18,19,20,21,22,24,25,26,27,29,30,31,32,34同时出现
3不与5、8、10、11、12、14、16、21、22、23、、25、26、31、34、35 同时出现
kaishi:
Randomize
t35(0) = Int(Rnd() * 35 + 1)
t35(1) = Int(Rnd() * 35 + 1)
t35(2) = Int(Rnd() * 35 + 1)
t35(3) = Int(Rnd() * 35 + 1)
t35(4) = Int(Rnd() * 35 + 1)
haoma = t35(0) & "," & t35(1) & "," & t35(2) & "," & t35(3) & "," & t35(4)
Do While InStr(haoma,1) > 0
If InStr(haoma,3) > 0 Or InStr(haoma,4) > 0 Or InStr(haoma,5) > 0 Or InStr(haoma,6) > 0 Or InStr(haoma,7) > 0 Or InStr(haoma,8) > 0 Or InStr(haoma,16) > 0 Or InStr(haoma,18) > 0 Or InStr(haoma,19) > 0 Or InStr(haoma,21) > 0 Or InStr(haoma,23) > 0 Or InStr(haoma,25) > 0 Or InStr(haoma,26) > 0 Or InStr(haoma,27) > 0 Or InStr(haoma,31) > 0 Or InStr(haoma,33) > 0 Or InStr(haoma,35) > 0 Then
GoTo kaishi
End If
Loop
'1 不与3,4,5,6,7,8,16,18,19,21,23,25,26,27,31,32,33,35 同时间出现
Text2.Text = Text2.Text & haoma
Text2.Text = Text2.Text & vbCrLf
End Sub
提问时间:2021-03-01
答案
运行起来是个就卡死了,求解答
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1干冰由什么构成?(分子或原子) 氯化钠有什么构成?(分子或原子,离子)
- 2take steps take actions take measures 这三个词组的意思
- 3父母在,不远游,游必有方的方何解
- 4什么是人生课题?大家对‘人生课题’是怎么理解的?
- 5塑料的硬度H表示什么?塑料的硬度标准是什么?
- 6如图,Rt△ABC中,∠ACB=90°,CD⊥AB,E为AB的中点,BC=8,AC=6,求CD和CE的长.
- 7PA,PB是圆O的切线,CD切圆O于E,若PA=4,求△PCD的周长.
- 8赞美家乡的广告词
- 9I listen to the news for [ ] hour every morning.
- 10140厘米等于多少米
热门考点
- 1I majored in English when I was in college.的同义句是什么
- 2空山新雨后 天气晚来秋全诗
- 3偶函数f(x)的定义域是R,且在(-∞,0)上为增函数,则f(-3/4)与f(a2-a+1)的大小关系是_.
- 4表示:目的,目标,方向的英语单词有哪些?
- 5“鲸鱼,哺乳动物,生活在海洋中,胎生,用肺呼吸,外形如大鱼,体长可达到30米,是现在一直的世界上最大
- 6一个长方体,它的底面积是10平方分米,高是2分米,它的体积是多少立方分米
- 7长江长度
- 8一台三相水泵,电机铭牌功率为7.5KW,功率因数=0.85,转数1440转/分,星形接法.计算电机的额定电流.
- 9阅读下列材料:试比较a^2-b^2+2/2与a^2-2b^2+1/3的大小
- 10x+y=100 0.7x+0.8y=74