배열 과 등수구하기

<%
Dim name,kor,eng,mat,aver
name=Array("홍길동","민들레","라일락","봉선화","진달래")
kor=Array(55,60,70,40,90)
eng=Array(60,40,70,50,100)
mat=Array(30,80,70,50,90)
aver=Array(0,0,0,0,0)
Dim i,j,cnt
cnt=UBound(name)
For i=0 To cnt
 aver(i)=CInt((kor(i)+eng(i)+mat(i))/3)
Next
Dim rank
rank=Array(1,1,1,1,1)
For i=0 To cnt
 For j=0 To cnt
  If aver(i)<aver(j) Then
   rank(i)=rank(i)+1 
  End If
 Next
Next

For i=0 To cnt
 response.write name(i) & " " & kor(i) & " " & eng(i) & " " & mat(i) & " " & aver(i) & " " & rank(i)
 response.write "<br>"
Next
'Dim kk
'kk=Array(10,20,30)

'Dim kk(2)
'kk(0)=10
'kk(1)=20
'kk(2)=30
'response.write UBound(kk) & "<BR>"
'For n=0 To UBound(kk)
'  response.write kk(n) & "<BR>"
'next

'UBound() 배열의 마지막 인덱스 번호 
  %>