K 를 정수로 치수기입합니다
개인 하위 양식 _Load ()
K = 0
끝단 접합
개인 하위 명령 5_Click ()
Dim s 1 은 문자열이고 s 는 정수입니다
무작위화 시간 ()
Stmp = ""그렇다면 stmp = ","
Do While k< 12
S = int (rnd * (12-1+1)+1)
If InStr( 1, stmp, ","& 표준 풀. ","= 0
K = k+1
수출 Do
만약 ... 끝날거야
고리
S<& gt 가 0 이면
Stmp = stmp & amp 표준 풀. ","
인쇄 s
기타
MsgBox "완료"
만약 ... 끝날거야
끝단 접합