VB编程：利用数组随机抽取幸运观众-32_彭世瑜_新浪博客

运行效果：

程序代码：

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]