Question

我想用vb做一个随机抽人的程序，希望懂的人能帮忙解答！

Answer 1

Private Sub Form_click()
Dim a(3) As String
a(0) = "小王"
a(1) = "小李"
a(2) = "小谢"
a(3) = "小林"
Randomize
MsgBox a(Int(Rnd * 4))
End Sub
不用添加任何控件 直接将代码复制进去 点击窗体即可得到效果

Answer 2

Dim a(3) As String
a(0) = "小王"
a(1) = "小李"
a(2) = "小谢"
a(3) = "小林"
Randomize
MsgBox a(Int(Rnd * 4))
End Sub
不用添加任何控件 直接将代码复制进去 点击窗体即可得到效果

Answer 3

Dim a(3) As String
a(0) = "小王"
a(1) = "小李"
a(2) = "小谢"
a(3) = "小林"
Randomize
MsgBox a(Int(Rnd * 4))
End Sub
不用添加任何控件 直接将代码复制进去 点击窗体即可得到效果