Vb在特定的数字中抽签。

命令按钮

文本框

私有子click_Click()

R=int((上限-下限+1)*rnd+下限)

将r标注为整数

r = Int((53-1+1)* Rnd+1)

Text1。Text = r

末端接头