개인 하위 명령 1_Click ()
응용 프로그램을 엽니다. 경로 및 경로. # 1. txt' 를 #1입력으로 사용합니다
Do While Not EOF( 1)
# 1, SJ 를 입력합니다
콤보1입니다. AddItem SJ
고리
콤보1입니다. 텍스트 = 콤보1. 목록 (0)
닫기 # 1
끝단 접합
개인 하위 명령 2_Click ()
무작위화 (타이머)
K = int (rnd * 콤보1. 목록 개수)
I = 1 끝 1000 의 경우
J = 0 부터 콤보1까지의 경우. 목록 개수
여러 활동
콤보1입니다. 텍스트 = 콤보1. 목록 (j)
I = 1000 이고 j = k 인 경우 KK 로 이동합니다
다음 J.
다음으로 저는
KK:
MsgBox "축하합니다"&; 콤보1입니다. 명단 (K) 과 "당첨!"
콤보1입니다. 항목 k 제거
끝단 접합