VB程式設計：利用數組随機抽取幸運觀衆

程式代碼：

Private Sub Command1_Click()

   Dim myarray() As String

   Dim myrows

   With Text1

       myarray = Split(.Text, vbCrLf)

       myrows = UBound(myarray)

       Randomize

       Text2.Text = Text2.Text & vbCrLf & myarray(Int(Rnd * myrows + 1))

   End With

End Sub

Private Sub Form_Load()

   Text1.Text = "請輸入抽獎名單：" & vbCrLf & _

                "張飛" & vbCrLf & _

                "關與" & vbCrLf & _

                "六倍" & vbCrLf & _

                "諸葛" & vbCrLf & _

                "曹操" & vbCrLf & _

                "孫權"

   Text2.Text = "幸運觀衆："

學習心得：

    1、Rnd 函數傳回小于 1 但大于或等于 0 的值。即Rnd取值 [0,1)。

    2、Randomize 語句初始化随機數生成器，該生成器具有根據系統計時器得到的種子。

    3、為了生成某個範圍内的随機整數，可使用以下公式：

           Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

     這裡，upperbound 是随機數範圍的上限，而 lowerbound 則是随機數範圍的下限。

     取值為：[lowerbound,upperbound]