현재 위치 - 주공해몽공식사이트 - 관음보살의 랜덤 번호 뽑기 - Vb6.0 복권 프로그램

Vb6.0 복권 프로그램

암담한가? Xm,? N? 로? 정수

개인? Sub? Command 1_Click ()

정전기? K

K? =? K? +? 1

만약? K? 모드? 2? =? 1? 그리고 나서

타이머 1. 구간? =? 20

명령 1. 제목? =? "중지"

기타

타이머 1. 구간? =? 0

명령 1. 제목? =? "가"

끝? 만약

끝? 잠수함

개인? Sub? Form_Load ()

Xm? =? 배열 ("장삼",? 이사'? 왕오'? 유추'? "돈"? 손패'? 9 주'? 무씨'? 정화')

N? =? UBound(xm)? +? 1

텍스트1입니다. FontSize? =? 16

텍스트1? =? ""

명령 1. 제목? =? "가"

끝? 잠수함

개인? Sub? 타이머 1 _ 타이머 ()

X? =? Int(Rnd? *? N)

텍스트1? =? Xm(x)

끝? 잠수함