Vb 로 복권 추첨 번호를 만들다.

보세요. 。 。 。 。 두 개의 레이블, 다섯 개의 텍스트 상자 (배열) 및 네 개의 버튼.

K 를 부울 값으로 표시

개인 하위 양식 _Load ()

텍스트1(0) = ":텍스트1(1) =": 텍스트/kloc-0

명령 2. 활성화 = false

끝단 접합

Private Sub 명령 1_Click ()' Go.

명령 2. 작동 가능 = 참

Label2 = ""

K = 거짓

K = 가짜일 때 해

A = 1+Int(9 * Rnd ())

B = 1+Int(9 * Rnd ())

C = 1+Int(9 * Rnd ())

D = 1+Int(9 * Rnd ())

F = 1+Int(9 * Rnd ())

G = 1+Int(9 * Rnd ())

텍스트1(0) = a

텍스트1(1) = b

텍스트1(2) = C.

텍스트1(3) = D.

텍스트1(4) = F.

텍스트1(5) = g.

여러 활동

고리

Label2 = text1(0) amp; 텍스트1(1) 텍스트1(2) & 텍스트1(3) & 텍스트1(4) & 텍스트1(5)

끝단 접합

Private Sub 명령 2_Click ()' Stop.

K = 참

명령 2. 활성화 = false

끝단 접합

개인 하위 명령 3_Click ()' 지우기

호출 양식 _Load

끝단 접합

개인 하위 명령 4_Click ()' 종료

날 내려놔

끝단 접합