看懂了 自己的就是 自己玩的时候添了字母 怎么玩都玩不转 呵呵 晚上终于看懂了算法 感谢赐教
补充一组 呵呵~
N：Nisy
C：980880955855Nisy
Private Sub Command1_Click()
Do
s1 = Int(Rnd() * 10) ;这里的是什么意思呀？
s2 = Int(Rnd() * 10)
s3 = 8
s4 = Int(Rnd() * 10)
s5 = Int(Rnd() * 10)
s6 =8
s7 = Int(Rnd() * 10)
s8 = Int(Rnd() * 10)
s9 = 8
s10 = Int(Rnd() * 10)
s11 = Int(Rnd() * 10)
s12 = 8
Loop Until (s1 + s2 + s3 = 17) And (s4 + s5 + s6 = 16) And (s7 + s8 + s9 = 19) And (s10 + s11 + s12 = 18)
;这行代码是自定义。
Text2.Text = s1 & s2 & s3 & s4 & s5 & s6 & s7 & s8 & s9 & s10 & s11 & s12
;并排成真码～
End Sub
呵呵～～～这个算出的号想有多靓就有多靓！
看看：
;P818268298198
[ 本帖最后由 野猫III 于 2006-7-19 15:21 编辑 ] 呵呵，随机数开会。。。。。。
页:
1
[2]