VB 로 만든 스포츠 복권 36 선 7 을 시뮬레이션하는 작은 프로그램 (가산점)

배정도 함수 JC(n 은 정수)

계승을 찾다

JC = 1

I = 1 끝 n 의 경우

JC = JC * I

그리고 나서

기능을 종료합니다

Sub S36_7 ()

번호를 선택합니다

오류 발생 시 다음 단계로 진행합니다

I = 0 ~ 6 인 경우

회선 1:

A (I) = 수정 (rnd * 36)+1

J = 0 부터 I-1 까지의 경우

A(i) = a(j) 인 경우

1 행으로 이동

만약 ... 끝날거야

그리고 나서

그리고 나서

끝단 접합

Sub PrintNum ()

출력물

I = 0 ~ 6 인 경우

인쇄 a (a);

그리고 나서

인쇄

끝단 접합

개인 하위 명령 1_Click ()

전화하다

S36_7 호출

PrintNum 을 호출합니다

끝단 접합

개인 하위 명령 2_Click ()

출력물

"당첨 확률" 을 인쇄하십시오. JC(36)/JC(7)/JC(36-7)

끝단 접합