현재 위치 - 주공해몽공식사이트 - 랜덤 번호 뽑기 점술 - VB 를 사용하여 노래 경연 대회 결과 통계 프로그램 작성

VB 를 사용하여 노래 경연 대회 결과 통계 프로그램 작성

옵션 기수 0

Dim s(5, 10) 는 단일입니다

Dim str 1 문자열로

Private subcommand1_ click ()' 플레이어의 점수를 입력합니다.

I = Val(InputBox ("첫 번째 복권 번호 입력 (1-5)"))

내가< 1 또는 I>5 를 하고 짧은 섹션을 나가면

S(i, 0) = i.

J = 1 ~ 6 의 경우

S(i, j) = val (inputbox ("please enter"&; 존슨 회사. "10 심판"))

S(i, j)> 10 또는 s(i, j) < 0 이면 j = j-1

다음 J.

Smin = 10

Smax = 0

Ss = 0

Str2 = s(i, 0) 및 amp 인권위원회 (9)

J = 1 ~ 6 의 경우

Str2 = str2 & ampCStr(s(i, j) j))& amp;; 인권위원회 (9)

Ss = ss+s(i, j)

S(i, j)>smax 인 경우 smax = s(i, j)

S(i, j) < Smin 그럼 smin = s(i, j)

다음 J.

S(i, 7) = smin

S(i, 8) = smax

S(i, 9) = (ss-smin-smax)/4

인쇄 str 1

Str2 & amps(i, 7) 및 ampChr(9) 및 amps(i, 8) 및 ampChr(9) 및 amps(i, 9) 및 amp 인권위원회 (9) 를 인쇄합니다

끝단 접합

개인 하위 명령 2_Click ()

"플레이어 순위" 인쇄

N = Val(InputBox ("최상위",, 5))

Dim temp( 1 ~ 5) 는 Single 입니다

I = 1 ~ 5 의 경우

Temp(i) = s(i, 9)

다음으로 저는

I = 1 4 의 경우

J = 1 ~ 5 의 경우

If temp (I) < 온도 (j)

T = 온도 (I)

온도 (i) = 온도 (j)

온도 (j) = T.

만약 ... 끝날거야

다음 J.

다음으로 저는

I = 1 ~ 5 의 경우

J = 1 ~ 5 의 경우

Temp(i) = s(j, 9) 인 경우 s(j, 10) = I

다음 J.

다음으로 저는

인쇄 str 1

I = 1 끝 n 의 경우

J = 1 ~ 5 의 경우

S(j, 10) = I 인 경우

K = 0 부터 10 까지의 경우

Str3 = Str3 & amp 표준푸르 (j, k) 인권위원회 (9)

다음 k

만약 ... 끝날거야

다음 J.

Str3 인쇄

Str3 = ""

다음으로 저는

끝단 접합

개인 하위 양식 _Load ()

Str 1 = "복권 번호"&; 인권위원회 (9)

I = 1 6 까지의 경우

0 = str1& "심판"&; 나& 인권위원회 (9)

다음으로 저는

0 = str1& "최저 점수"&; Chr(9) 및 amp "최고 점수"&; Chr(9) 및 amp "평균 점수"&; Chr(9) 및 amp "순위"

끝단 접합