코드 지적좀 부탁드립니다.
꽃짱구
2023.04.01
숫자 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
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2655524 | for문 좀 높이 올라가면 프로그램이 멈추네요.. (5) | 가욋길 | 2024-05-20 |
2655492 | 포함된 문자로 파일명 검색하기? (5) | 모아 | 2024-05-20 |
2655472 | winhttp를 이용해 네이버 로그인에 성공했을때... | 개구리 | 2024-05-20 |
2655417 | VB로 프로세스 어떻게잡아요?? settini 나오게 또어떻게하나요? (3) | 모해 | 2024-05-19 |
2655384 | 비베로 클래스파일 실행하기 (5) | 달달한캔디 | 2024-05-19 |
2655362 | 컴파일시 오류 ㅠㅠ | 맨삶이 | 2024-05-19 |
2655329 | 트레이너 질문. 핫키를누르면 적용됫다가풀림 (1) | SweetChoco | 2024-05-18 |
2655300 | 특정 프로그램 루프문으로 팅기게 하고싶은데 (2) | 애교 | 2024-05-18 |
2655272 | 강좌소스확인하는법좀요 | 말달리자 | 2024-05-18 |
2655243 | 파일크기비교 | 혜윤 | 2024-05-18 |
2655211 | 우엉~ Winhttp 겁나 급해요 ㅜㅜ (2) | 정훈 | 2024-05-17 |
2655185 | 화면의 x좌표 가장큰값 구하기 질문 (1) | 해길 | 2024-05-17 |
2655158 | 이거 강좌를 받앗는대 어떻개따라해요? | 하람 | 2024-05-17 |
2655130 | 컴퓨터 사운드 녹음 질문 | 갤쓰리 | 2024-05-17 |
2655073 | 폼끄기 질문 다시합니다 | 해찬솔 | 2024-05-16 |
2654987 | 메세지 박스 질문입니다 ~ (3) | 안다미로 | 2024-05-15 |
2654960 | 블로그 글쓰기 질문 (2) | 힘찬 | 2024-05-15 |
2654931 | 질문 하나 하겠습니다 .!! | 소윤 | 2024-05-15 |
2654904 | 비베 질문요 ㅠㅠ | 미련곰탱이 | 2024-05-15 |
2654851 | 미투데이에 글을 다는 소스를 만들어보려고 하는데 | 횃불 | 2024-05-14 |