N=10 '要产生的个数RandomizeFor i=1 to NPrint Format(Int(Rnd * 10000000), "0000000") Next
Private Sub Command1_Click()Print Format(Int(Rnd * 10000000), "0000000")End Sub
