隨機抽籤--程式示範

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ans As Integer
        Randomize()
        ans = Int(Rnd() * 12) + 1
        Select Case ans
            Case 1
                TextBox1.Text = "第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支"
            Case 2
                TextBox1.Text = "第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支"
            Case 3
                TextBox1.Text = "第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支"
            Case 4
                TextBox1.Text = "第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支"
            Case 5
                TextBox1.Text = "第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支"
            Case 6
                TextBox1.Text = "第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支"
            Case 7
                TextBox1.Text = "第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支"
            Case 8
                TextBox1.Text = "第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支"
            Case 9
                TextBox1.Text = "第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支"
            Case 10
                TextBox1.Text = "第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支"
            Case 11
                TextBox1.Text = "第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支"
            Case 12
                TextBox1.Text = "第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支"
        End Select
    End Sub
End Class