​运行效果：​



​程序代码：​

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 = "幸运观众："

End Sub


​学习心得：​

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

     2、Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。

     3、为了生成某个范围内的随机整数，可使用以下公式：

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

      这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

      取值为：[lowerbound,upperbound]