Vb彩票源代碼

dim team(7) as string，i%，iA%，iB%

使不規則化

對於i=0到7

如果int(rnd*2)=0且iA & lt那麽4

團隊(i)="A "

iA=iA+1

elseif iB & lt那麽4

團隊(i)="B "

iB=iB+1

其他

團隊(i)="A "

如果…就會結束

然後

對於i=0到7

如果團隊(i)="A "那麽

打印“第壹個”&；I+1 & amp；“A隊”

其他

打印“第壹個”&；I+1 & amp；“B隊”

endif

然後

上一篇:戰神夜襲升級的橙裝能帶去二周目嗎

下一篇:跪求：編寫c語言程序，求1到20的階乘之和