vb彩票摇奖30选5

Question

编写一个简易的30选5彩票摇奖程序。功能要求：用户可以输入5个不同的整数，或者通过‘机选’按钮，自动生成5个互不相同的随机数；单机‘摇奖’按钮，生成中奖号码并对用户输入或机选的彩票数字进行评奖，如果用户选对1个数字，获5等奖，选对2个数，获4等奖......

Answer 1

很容易啊 生成1到30之间的五个随机数就行了，需要判断是否重复 （机选 摇奖）

评奖

用用户的好码逐一跟中奖号码比较 对的个数来确定将次追问

能把代码给我写出来吗？
非常感谢、、

追答

Private a(5) As Integer, kk As Integer
Private Sub Command1_Click() '机选
Text1.Text = ""
kk = 0
While kk 5 Then Exit Sub
End Sub
Private Sub yaojiang()
Dim tmp As Integer
Randomize
tmp = Int((30) * Rnd + 1)
If kk > 0 Then Call panduan(tmp, kk)
If kk = 0 Then
a(kk) = tmp
kk = kk + 1
End If

End Sub

Private Sub Command2_Click() '摇奖
Label1.Caption = ""
kk = 0

While kk 0 Then
a(i) = Val(Left(str, j - 1))
str = Right(str, Len(str) - j)
Else
a(i) = Val(str)
End If
Next '把摇奖结果放入数组A中
k = 0
str = Text1.Text '购买的号码在text1中
For i = 0 To 4
j = InStr(1, str, ",")
If j > 0 Then
b = Val(Left(str, j - 1))
str = Right(str, Len(str) - j)
Else
b = Val(str)
End If
For j = 0 To 4
If b = a(j) Then
k = k + 1
Exit For
End If
Next
Next '判断中的个数

Select Case k
Case 1
MsgBox "中了五等奖！"
Case 2
MsgBox "中了四等奖！"
Case 3
MsgBox "中了三等奖！"
Case 4
MsgBox "中了二等奖！"
Case 5
MsgBox "中了一等奖！"
Case Else
MsgBox "没有中奖！"
End Select
End Sub

追问

呃、只有两个按钮、没有评奖的按钮、摇奖的同时结果也出来了
代码还能改吗？十分感谢。。。

追答

1、
Private Sub Command3_Click() '评奖
改为
Private Sub pingjiang() '评奖
2、
Private Sub Command2_Click() '摇奖
Label1.Caption = ""
kk = 0

While kk < 5
Call yaojiang
Wend

For i = 0 To 4
Label1.Caption = Label1.Caption & a(i) & ","
Next
Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)
call pingjiang
End Sub

追问

呃、不好意思哈...出来的效果跟老师要求的不一样
评奖不是重新出来的对话框、而是和中奖号码一起出现在Label1里...

追答

你自己稍稍修改下就行了 主要代码都谢了
我怎么知道你的具体要求 你又没说