복권 티켓 생성기 _ 복권 생성기 PPT

Dim GRedBall(32) 은 정수입니다

빨간색 공 (6) 을 정수로 표시합니다

Rnd (크기 조정)

K = 0 ~ 32 의 경우

GRedBall(k) = k+1

다음 k

J = 0 ~ 5 인 경우

K = Int(Rnd * (33-j))

빨간 공 (j) = GRedBall(k)

L = k ~ 32-j 의 경우

내가<& gt 라면 32

Gredball (l) = gredball (l+1)

만약 ... 끝날거야

다음 l

다음 J.

Red ball (6) = int (rnd *15)+1

빨간 공 (0) & "& 레드볼 (1)"& 레드볼 2 & amp；; "& 레드 볼 (3) & "& 레드 볼 (4) & "& 레드 볼 5 & amp；; "& 레드볼 (6))

VB 로 하나를 써서 처리하다.