在电脑上抽签

选项显式

私有子命令1_Click()

定义一个数组来存储名称。

Dim RStr(0到9)作为字符串

Dim i,j,k

为要滚动的数字赋值。

实际使用应该是RStr(0)= 1