Randomize
    MsgBox Format(Rnd(1) * 10, "00")

解决方案 »

  1.   


      Randomize
      
      b = Format(Int(Rnd *45) + 1, "00")
      txtNo.Text =b
    这样吗?好像没有变喔,个位数还是1
      

  2.   

    mmxqf() :)
    怎么在你机器上会米有变哩?
    我试过可以实现你要的效果的^_^
      

  3.   

    dim str as string
    str = Format(Int(Rnd *45) + 1, "00")现在看看是多少?? 是不是01了??
      

  4.   

    AnnaBear(淡淡) 
      人家的B是一个整数类型的,用鼠标一看就是1 ,没有前面的0啦
      

  5.   

    Dim A as Long
    Dim sHm(1 to 6) as StringA=1sHm(1)=Format(A,"00")