Question

vb彩票摇奖 编写一个简易的30选五彩票摇奖程序。

功能要求：用户可以输入5个不同的整数，或者通过机选按钮，自动生成5个互不相同的随机数；单击摇奖按钮，生成中奖号码并对用户输入或机选的彩票数字进行评奖，如果用户选对一个数字，获得5等奖，选对2个数字获得4等奖......以此类推

Answer 1

Dim a(0 To 4) As Integer
Private Sub Command1_Click()
For i = 1 To 30
If i = 30 Then
t = t & i
Else
t = t & i & ","
End If
Next
For i = 0 To 4
j = Split(t, ",")
Randomize
temp = Int(Rnd * (UBound(j) + 1) + 0)
Text1(i) = j(temp)
If temp <> UBound(j) Then
t = Replace(t, "," & j(temp) & ",", ",")
Else
t = Replace(t, "," & j(temp) & ",", "")
End If
Next
End Sub

Private Sub Command2_Click()
For i = 1 To 30
If i = 30 Then
t = t & i
Else
t = t & i & ","
End If
Next
For i = 0 To 4
j = Split(t, ",")
Randomize
temp = Int(Rnd * (UBound(j) + 1) + 0)
a(i) = j(temp)
If temp <> UBound(j) Then
t = Replace(t, "," & j(temp) & ",", ",")
Else
t = Replace(t, "," & j(temp) & ",", "")
End If
Next
Print "中奖号码为：" & a(0) & vbTab & a(1) & vbTab & a(2) & vbTab & a(3) & vbTab & a(4)
For i = 0 To 4
For k = 0 To 4
If a(i) = Text1(k) Then n = n + 1
Next
Next
If n <> 0 Then
MsgBox "恭喜你中了" & 6 - n & "等奖"
Else
MsgBox "很遗憾，您没中奖"
End If
End Sub

Answer 2

const hao = 本期中奖号
private sub form_click()
if val(trim(inputbox("请输入你的号码")))=hao then msgbox "中奖" else msgbox "未中奖"

追答

Answer 3

可以去买个现成呢彩票软件就可以拉

Answer 4

xfgdn