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 "순위"
끝단 접합