用VB输出一组数

来源：百度知道 编辑：UC知道 时间：2024/05/17 21:17:13
要用VB编程序，随机输出一组双色球号码，从33个红色球任选6个，在从16个蓝色球任选1个组成一组号码，请高手帮忙，说出详细过程，在线等啊~~~~

Private Sub Command1_Click()
Dim i%, j%, m%, t$, s$(1 To 33)

For i = 1 To 33 '放33个号码在s数组中
s(i) = Format(i, "00")
Next

Randomize

Me.ForeColor = vbRed '打印红球
For i = 1 To 6 '得到6个红球
j = Int(Rnd * (33 - i + 1) + i) '从i到33之间抽取
t = s(i): s(i) = s(j): s(j) = t '将已抽出到挪到i,以便让后来抽到没有这个球了
Print s(i) & " "; '打印抽到的第i的红球
Next
Me.ForeColor = vbBlue '打印蓝球
Print Format(Int(Rnd * 16 + 1), "00") '随机1-16之间的蓝球
End Sub

Dim i, a(33), b(6), c
Randomize: Cls
For i = 1 To 6
b(i) = Int(Rnd * 33 + 1)
If a(b(i)) Then i = i - 1 Else a(b(i)) = 1
Next
Print "红球中奖号码:"
For i = 1 To 6
Print b(i)
Next

c = Int(Rnd * 16 + 1)
Print "蓝球中奖号码:"
Print c