Question

求高手速度给我弄一个VB编的随机选号器要求65选1的。想附加点别的也OK。主要要这个功能就好。

在线等啊！！！！！求助！！！！！！！

Answer 1

VB代码：

lowerbound = 1
upperbound = 65
Randomize
msgbox Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

'这里， upperbound 是此范围的上界，而 lowerbound 是此范围内的下界。

Answer 2

Private Sub Command1_Click()
Randomize
MsgBox Int(Rnd()*65)+1 & "号被选中"
End Sub