中科新闻网宙斯和上帝:编一程序有计算机产生中奖号
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 00:29:28
某一城市举行体育彩票的发行，规定每10万张彩票为一开奖组，共5组，用A－E表示不同的组，奖券号为一个五位数码，前面加组号．如B10345表示B组的奖号，并按组分类打印．
提示：通过随机函数产生中奖号的五位数码，合并后成一个1＋5位的中奖号，同时应避免产生相同的随机数．
Private Sub Command1_Click
Dim RndNum(5), RndNumstr
For i = 1 To 5
Randomize
RndNum(i) = Int(100000 * Rnd)
For j = 1 To i - 1
If RndNum(i) = RndNum(j) Then
RndNum(i) = RndNum(j + 1) + 1
End If
Next
If Len(RndNum(i)) < 5 Then
RndNumstr = ""
For j = 1 To 5 - Len(RndNum(i))
RndNumstr = RndNumstr & "0"
Next
RndNum(i) = RndNumstr & RndNum(i)
Else
RndNum(i) = RndNum(i)
End If
Next
Text1(0).Text = "A" & RndNum(1)
Text1(1).Text = "B" & RndNum(2)
Text1(2).Text = "C" & RndNum(3)
Text1(3).Text = "D" & RndNum(4)
Text1(4).Text = "E" & RndNum(5)
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Text1(0).Text = "A"
Text1(1).Text = "B"
Text1(2).Text = "C"
Text1(3).Text = "D"
Text1(4).Text = "E"
Command2.Enabled = False
End Sub
Private Sub Form_Load()
Text1(0).Text = "A"
Text1(1).Text = "B"
Text1(2).Text = "C"
Text1(3).Text = "D"
Text1(4).Text = "E"
Command2.Enabled = False
End Sub