사립학교의 학생
문자열로 SnO * 7
String * 9 로 sname
정수로 등급 지정
끝 유형
옵션 기반 1
Dim I 는 정수이고 j 는 정수입니다
Dim stu( 10) 는 학생으로, t 는 학생으로
개인 하위 명령 1_Click ()
I = 1 ~ 9 의 경우
J = 1 끝 10-I 의 경우
스튜 (J) 라면. 등급< 스투 (j+1). 그럼 점수를 매기세요
T = stu(j)
Stu(j) = stu(j+1)
Stu (j+1) = T.
만약 ... 끝날거야
다음 J.
다음으로 저는
I = 1 끝 10 의 경우
Stu(i 인쇄 (I). 스노우, 스튜. 스넴, 스투 (나). 등급
다음으로 저는
끝단 접합
개인 하위 양식 _Load ()
Dim a (), b (), c ()
A = Array ("톰", "제리", "리사", "토니", "밥", "잭", "7 월", "로즈", "로버트", "
B = 배열 ("0507030 1", "05070302", "05070303", "05070304", "05070305", ""
C = 배열 (87,53,96,88,70,63,91,72,78,67)
I = 1 끝 10 의 경우
스튜 (나). Sno = a(i)
스튜 (나). 이름 = b (I)
스튜 (나). 등급 = c(i)
Stu(i 인쇄 (I). 스노우, 스튜. 스넴, 스투 (나). 등급
다음으로 저는
끝단 접합
좋아, 벌써 도망쳤어.