Vb 복권 추첨이 쓴 간단한 30 대 5 복권 추첨 절차.

개인 하위 명령 1_Click ()

I = 1 30 까지의 경우

만약 내가 = 30 이라면

T = t& 나

기타

T = t& 나& ","

만약 ... 끝날거야

그리고 나서

I = 0 ~ 4 의 경우

J = Split(t, ",")

불규칙하게 만들다

Temp = int (rnd * (ubound (j)+1)+0)

텍스트1(I) = j (temp)

온도<& gtUBound(j) Then 인 경우

T = Replace(t, ","& ampj (온도) 및 amp ",",",",",")

기타

T = Replace(t, ","& ampj (온도) 및 amp ",",","")

만약 ... 끝날거야

그리고 나서

끝단 접합

개인 하위 명령 2_Click ()

I = 1 30 까지의 경우

만약 내가 = 30 이라면

T = t& 나

기타

T = t& 나& ","

만약 ... 끝날거야

그리고 나서

I = 0 ~ 4 의 경우

J = Split(t, ",")

불규칙하게 만들다

Temp = int (rnd * (ubound (j)+1)+0)

A(i) = j (온도)

온도<& gtUBound(j) Then 인 경우

T = Replace(t, ","& ampj (온도) 및 amp ",",",",",")

기타

T = Replace(t, ","& ampj (온도) 및 amp ",",","")

만약 ... 끝날거야

그리고 나서

"당첨번호 예"&; A(0) 및 ampvbTab & ampa( 1) 및 ampvbTab & ampa(2) 및 ampvbTab & ampa(3) 및 ampvbtab &

I = 0 ~ 4 의 경우

K = 0 ~ 4 의 경우

A(i) = Text 1(k) 인 경우 n = n+1

그리고 나서

그리고 나서

N<& gt 가 0 이면

MsgBox "당첨 축하"&; 6-n & "등상"

기타

MsgBox "죄송합니다. 당첨되지 않았습니다."

만약 ... 끝날거야

끝단 접합