兄弟们，请帮一把！

Int((100 * Rnd) + 1)

解决方案 »

  1.   

    随机数范围是在0到1之间的，所以把用Rnd得到的随机数乘以100就可以了。
      

  2.   

    同意：　Amoon(阿木)　
    好久不见了：　Amoon(阿木)　
      

  3.   

    按大侠方法，每一回都是71、54、58、29、31
    这随机数怎么也有规律呢？？？
    Private Sub Command1_Click()
    Dim aa As Integer
    aa = Int(Rnd() * 100) + 1
    Label1.Caption = aa
    End Sub
      

  4.   

    Rnd() 可以加“种子”，如 Rnd(12) 
      

  5.   

    dbcontrols(泰山)　说得对,一定要加“种子”不过是用Randomize(),不然就不叫随机数!