关于VB中从 1到35随即产生5个数,要求有些数不能同同时出现的问题,写完后每次都是运算卡死,
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/07/08 02:08:58
关于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
![关于VB中从 1到35随即产生5个数,要求有些数不能同同时出现的问题,写完后每次都是运算卡死,](/uploads/image/z/10016551-55-1.jpg?t=%E5%85%B3%E4%BA%8EVB%E4%B8%AD%E4%BB%8E+1%E5%88%B035%E9%9A%8F%E5%8D%B3%E4%BA%A7%E7%94%9F5%E4%B8%AA%E6%95%B0%2C%E8%A6%81%E6%B1%82%E6%9C%89%E4%BA%9B%E6%95%B0%E4%B8%8D%E8%83%BD%E5%90%8C%E5%90%8C%E6%97%B6%E5%87%BA%E7%8E%B0%E7%9A%84%E9%97%AE%E9%A2%98%2C%E5%86%99%E5%AE%8C%E5%90%8E%E6%AF%8F%E6%AC%A1%E9%83%BD%E6%98%AF%E8%BF%90%E7%AE%97%E5%8D%A1%E6%AD%BB%2C)
把你的代码放出来看看
再问: 运行起来是个就卡死了,求解答
再答: Private Sub form_load() Dim t35(4) As Integer Dim i, j, k, r As Integer X1 = Array(3, 4, 5, 6, 7, 8, 16, 18, 19, 21, 23, 25, 26, 27, 31, 32, 33, 35) X2 = Array(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) X3 = Array(5, 8, 10, 11, 12, 14, 16, 21, 22, 23, 25, 26, 31, 34, 35) Do 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) r = 0 For i = 0 To 4 If t35(i) = 1 Then For k = 0 To 4 For j = 0 To UBound(X1) If t35(k) = X1(j) Then r = 1: Exit For '1 不与3,4,5,6,7,8,16,18,19,21,23,25,26,27,31,32,33,35 同时间出现 Next j Next k ElseIf t35(i) = 2 Then For k = 0 To 4 For j = 0 To UBound(X2) If t35(k) = X2(j) Then r = 1: Exit For '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同时出现 Next j Next k ElseIf t35(i) = 3 Then For k = 0 To 4 For j = 0 To UBound(X3) If t35(k) = X3(j) Then r = 1: Exit For '3不与5, 8, 10, 11, 12, 14, 16, 21, 22, 23, 25, 26, 31, 34, 35同时出现 Next j Next k End If Next i Loop While r = 1 haoma = t35(0) & "," & t35(1) & "," & t35(2) & "," & t35(3) & "," & t35(4) Text2.Text = Text2.Text & haoma Text2.Text = Text2.Text & vbCrLf End Sub
再问: 运行起来是个就卡死了,求解答
再答: Private Sub form_load() Dim t35(4) As Integer Dim i, j, k, r As Integer X1 = Array(3, 4, 5, 6, 7, 8, 16, 18, 19, 21, 23, 25, 26, 27, 31, 32, 33, 35) X2 = Array(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) X3 = Array(5, 8, 10, 11, 12, 14, 16, 21, 22, 23, 25, 26, 31, 34, 35) Do 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) r = 0 For i = 0 To 4 If t35(i) = 1 Then For k = 0 To 4 For j = 0 To UBound(X1) If t35(k) = X1(j) Then r = 1: Exit For '1 不与3,4,5,6,7,8,16,18,19,21,23,25,26,27,31,32,33,35 同时间出现 Next j Next k ElseIf t35(i) = 2 Then For k = 0 To 4 For j = 0 To UBound(X2) If t35(k) = X2(j) Then r = 1: Exit For '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同时出现 Next j Next k ElseIf t35(i) = 3 Then For k = 0 To 4 For j = 0 To UBound(X3) If t35(k) = X3(j) Then r = 1: Exit For '3不与5, 8, 10, 11, 12, 14, 16, 21, 22, 23, 25, 26, 31, 34, 35同时出现 Next j Next k End If Next i Loop While r = 1 haoma = t35(0) & "," & t35(1) & "," & t35(2) & "," & t35(3) & "," & t35(4) Text2.Text = Text2.Text & haoma Text2.Text = Text2.Text & vbCrLf End Sub
关于VB中从 1到35随即产生5个数,要求有些数不能同同时出现的问题,写完后每次都是运算卡死,
想问下 vb中 rnd产生随即数的问题
vb中计算随即数产生的次数?
数学概率计算的问题!以下两种情况:1、从1到49个数中随机依次产生6个数;2、每次都从1到49个数中随机产生1个数,共6
vb编程 输入一个数,随即产生一些随机数,要求产生的随机数的平均值等于输入的数
从1到9个数字中随即抽取不重复3个数,3数之合为偶数的概率
离散数学问题在1到300的整数中,有多少个数同时不能被3,5和7整除?
VB 程序 计算从1到12260之间所有的能同时整除3,7,9的整数的个数
从1到1998的自然数中,有多少个数乘以72后是平方数?
从(0,1)中随即取出俩个数,求(1)两数之和大于1.2和(2)两数平方和小于0.25的概率.
matlab中怎样产生真正的随即数
vb随机数 1000 没次随机出现1个数,1000次内不出现重复的数