马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;随机|随机数字|反复
SubCalCaPiao()
DimstrCaiPiaoNoArr()AsString
DimstrSQLAsString
DimstrCaiPiaoNoAsString
strCaiPiaoNo="01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,
17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33"
DimStrTempArr(7)AsString
DimstrZhongJiangArr(7)AsString
strCaiPiaoNoArr=Split(strCaiPiaoNo,",")
DimintRandAsInteger
DimiAsInteger
DimjAsInteger
i=0
DimfindAsBoolean
DoWhileTrue
find=False
Randomize
intRand=Int((33*Rnd)+1)
Forj=0Toi-1
IfStrTempArr(j)=CStr(intRand)Then
find=True
EndIf
Next
IfNotfindThen
StrTempArr(j)=CStr(intRand)
strZhongJiangArr(i)=CStr(intRand)
Text1(i)=strZhongJiangArr(i)
i=i+1
Ifi=7Then
ExitDo
EndIf
EndIf
Loop
EndSub
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |