현재 위치 - 주공해몽공식사이트 - 관음보살의 랜덤 번호 뽑기 - Vb 로 복권 소프트웨어를 제작하다

Vb 로 복권 소프트웨어를 제작하다

개인? Sub? Command 1_Click ()

암담한가? 팀 (8),? 티아마 (4),? 팀 (4)? 로? 문자열,? 나%,? J%

팀 (1)? =? "중국"

팀 (2)? =? "미국"

팀 (3)? =? "브라질"

팀 (4)? =? "쿠바"

팀 (5)? =? "러시아"

팀 (6)? =? "네덜란드"

팀 (7)? =? "독일"

팀 (8)? =? "스페인"

뭐 때문에? 나? =? 1? 어디 가? 여덟;팔

X? =? Int((9? -응? 나)? *? Rnd? +? 1)' 나머지 무작위 선택

만약? 나? & gt? 4? 그리고 나서

티아마 (나? -응? 4)? =? 팀 (x)

기타

팀 (a)? =? 팀 (x)

끝? 만약

뭐 때문에? J? =? X? 어디 가? 여덟;팔

만약? J? & lt? 8? 그리고는요? 팀 (j)? =? 팀 (j? +? 1)

그리고 나서

그리고 나서

텍스트1입니다. 문자? =? 팀 (1)? & amp? 공간 (2)? & amp? 팀 (2)? & amp? 공간 (2)? & amp? TeamA(3)? & amp? 공간 (2)? & amp? TeamA(4)

텍스트 2. 문자? =? 팀 (1)? & amp? 공간 (2)? & amp? 팀 (2)? & amp? 공간 (2)? & amp? 팀 (3)? & amp? 공간 (2)? & amp? 팀 B(4)

끝? 잠수함