按键精灵随机数补全两位数

更新时间2021-07-04 10:33:59

Dim TmpDat(10) 
 
For i = 0 To 9
 
        Randomize  
 
        TmpRnd = Int(rnd * 99) 
 
        For j = 0 To i - 1   
 
                If TmpDat(j)=TmpRnd Then
 
                        i = i - 1 : TmpBol = TRUE
 
                End If
 
        Next
 
        If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRnd
 
Next

改你的

  If TmpDat(j)=TmpRnd Then

为

If TmpRnd<10 or TmpDat(j)=TmpRnd Then

就可以生成的全为2位数

相关标签:按键精灵