VB 프로그래밍 연간 추첨 코드?

다음은 VB 프로그래밍 언어의 예입니다.

각 포상에 인원수를 저장할 변수를 정의합니다.

1 등상을 정수 = 3 으로 설정합니다

Dim secondPrize 는 정수 = 5 입니다

Dim third prize as integer =12

Dim souvenirPrize 는 정수 = 10 입니다

변수를 정의하고 복권 결과를 저장합니다.

Dim firstPrizeList 를 새 목록 (정수) 으로 사용

Dim secondPrizeList 를 새 목록 (정수) 으로 사용

세 번째 우선 순위 목록을 새 목록으로 어둡게 합니다 (정수)

Dim souvenirPrizeList 를 새 목록 (정수) 으로 사용

숫자 스크롤의 시작 수를 저장할 변수를 정의합니다.

Dim current num as integer =1

각종 상을 차례로 추첨하다.

I 의 경우 정수 = 1 1 등상

1 등상을 추첨하고 1 등상 목록에 번호를 추가합니다.

일등상. 추가 (현재 값)

현재 num+=1

그리고 나서

I 의 경우 정수 = 1 2 등상

2 등상을 뽑고 번호를 2 등상 명단에 올리다.

SecondPrizeList. 추가 (현재 값)

현재 num+=1

그리고 나서

For I As Integer = 1 세 번째 Prize 수행

3 등상을 뽑고 번호를 3 등상 명단에 올리다.

세 번째 우선 순위 목록. 추가 (현재 값)

현재 num+=1

그리고 나서

For I As Integer = 1 로 표시

기념상을 하나 뽑고 기념상 목록에 번호를 추가합니다.

SouvenirPrizeList 입니다. 추가 (현재 값)

현재 num+=1

그리고 나서

추첨 결과를 수출하다.

콘솔。 WriteLine ("1 등상 목록:"&; 문자열. 조인 (",",",firstPrizeList))

콘솔。 WriteLine ("2 등상 목록:"&; 문자열. 조인 (",",",secondPrizeList))

콘솔。 WriteLine ("3 등상 목록:"&; 문자열. 조인 (",",",thirdPrizeList))

콘솔。 WriteLine ("기념상 목록:"&; 문자열. 조인 (",",",souvenirPrizeList))