中核苏阀招工吗:VB实现随机选数

来源:百度文库 编辑:中科新闻网 时间:2024/05/12 05:00:28
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)