王耀辉个人资料:VB实现随机选数

来源:百度文库 编辑:高校问答 时间:2024/04/29 12:48:07
VB实现随机选数
我想用VB实现随机选数,从1到18(包括1和18)每次选出2个
最好能不重复
谁行给行代码(最好有详细的注释)

Private Sub Command1_Click()
Randomize
Print Int(Rnd * 17 + 1); Int(Rnd * 17 + 1)
End Sub
'获得从A-B的随机整数:int(Rnd*(b-a)+a)