占卜

Public Class 抽籤
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a As String
        a = Int(Rnd() * 6) + 1
        Select Case a
            Case 1
                Label1.Text = "１：下下籤：諸事不宜"
            Case 2
                Label1.Text = "２：中上籤：貴人相助"
            Case 3
                Label1.Text = "３：中下籤：口舌之爭"
            Case 4
                Label1.Text = "４：平籤：保持平常心"
            Case 5
                Label1.Text = "５：平籤：僅心慎行"
            Case 6
                Label1.Text = "６：上上籤：有意外之財"
        End Select
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class