수다닷컴

숫자 0 ~ 9 를 랜덤으로 3자리 까지 나타내는건데요
중복숫자는 안나오게 한 코드인데 ex) 299x

더 줄일 수 있는부분이나 지적할만한 부분 지적좀 해주세요.
Public Function CreateNumber()
Dim Num As String, r As String, i As Integer, swi As Boolean

Do Until Len(Num) = 3
swi = False
r = Right(Int(Rnd * 10) + 1, 1)
Do Until swi = True
For i = 1 To Len(Num)
If Mid(Num, i, 1) = r Then
r = Right(Int(Rnd * 10) + 1, 1)
Exit For
Else
swi = True
End If
Next i
If Len(Num) = 0 Then Exit Do
Loop
Num = Num & r
Loop

CreateNumber = Num
End Function

신청하기