Dim s(5, 10) is a single
Dim str 1 as a string
Private subcommand1_ click ()' Enter the player's score.
I = Val(InputBox ("Please enter the first lottery number (1-5)"))
If I< 1 or i>5 then quit the nipple.
s(i，0) = i
For j = 1 to 6
S(i，j)= Val(InputBox(" Please enter " &； Johnson & Johnson company "decision no 10").
If s(i, j)> 10 or s(i, j) <; 0, then j = j-1
Next J.
smin = 10
smax = 0
ss = 0
Str2 = s(i, 0) and amp Human Rights Committee (9)
For j = 1 to 6
str2 = str2 & ampCStr(s(i，j))& amp； Commission on Human Rights (9)
ss = ss + s(i，j)
Smax = s(i, j) if s (I, j)>smax.
If s(i, j) <; Smin then smin = s(i, j)
Next J.
s(i，7) = smin
s(i，8) = smax
s(i，9) = (ss - smin - smax) / 4
Print str 1
Print str2 & amps(i, 7) and ampChr(9) and amps(i, 8) and ampChr(9) and amps(i, 9) and amp Human Rights Committee (9).
End joint
Private subcommand 2_Click ()
Print Player Ranking
N = Val(InputBox ("list the top few",, 5))
Dim temp( 1 to 5) is Single.
For i = 1 to 5
temp(i) = s(i，9)
Next, I
For i = 1 to 4
For j = 1 to 5
if temp(I)& lt； Temperature (j)
T = temperature (i)
Temperature (i) = temperature (j)
Temperature (j) = t
If ... it will be over.
Next J.
Next, I
For i = 1 to 5
For j = 1 to 5
If temp(i) = s(j, 9), then s(j,10) = i.
Next J.
Next, I
Print str 1
For i = 1 to n
For j = 1 to 5
If s(j, 10) = i, then
For k = 0 to 10
STR 3 = STR 3 & Standard & Poor's (J, K) Commission on Human Rights (9)
Next k
If ... it will be over.
Next J.
Print Str3
Str3 = " "
Next, I
End joint
Private Sub-Form _Load ()
Str 1 = "lottery number"&; Commission on Human Rights (9)
For i = 1 to 6
0 = str 1 & amp； "referee"&; I & Human Rights Committee (9)
Next, I
0 = str 1 & amp； "The lowest score"&; Chr(9) and "the highest score"&; Chr(9) and amp "average score"&; Chr(9) and amp "ranking"
End joint