投注

Public Class Form1
Dim a1, a2, a3, a4, a5, a6 As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "投注" Then
Do Until a1 <> a2 And a1 <> a3 And a1 <> a4 And a1 <> a5 And a1 <> a6 And a2 <> a3 And a2 <> a4 And a2 <> a5 And a2 <> a6 And a3 <> a4 And a3 <> a5 And a3 <> a6 And a4 <> a5 And a4 <> a6 And a5 <> a6
MsgBox("請在所有數字中選不能重複喔")
a1 = InputBox("請下注第一個號碼")
a2 = InputBox("請下注第2個號碼")
a3 = InputBox("請下注第3個號碼")
a4 = InputBox("請下注第4個號碼")
a5 = InputBox("請下注第5個號碼")
a6 = InputBox("請下注第6個號碼")
Loop
Label2.Text = a1 & "和" & a2 & "和" & a3 & "和" & a4 & "和" & a5 & "和" & a6
Button3.Visible = True
End If

If Button1.Text = "你中大獎了領獎吧" Then
Button2.Visible = True
MsgBox("獎品天線寶寶一組")
End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = a1
TextBox2.Text = a2
TextBox3.Text = a3
TextBox4.Text = a4
TextBox5.Text = a5
TextBox6.Text = a6
Button1.Text = "你中大獎了領獎吧"
Button3.Visible = False
End Sub
End Class