array.asp
=====================================================
<%
'array.asp저장하시오
Option Explicit
'등수 구하기
Dim nm,kor,eng,mat
nm=Array("홍길동","민들레","라일락","봉선화","진달래")
kor=Array(90,50,60,75,80)
eng=Array(60,90,20,85,95)
mat=Array(70,30,40,50,70)
Dim aver(4)
'aver변수에 각각의 평균값을 구하시오(소수점은 반올림할것)
Dim n,cnt
cnt=UBound(nm) '4
For n=0 To cnt
aver(n)=CInt((kor(n)+eng(n)+mat(n))/3)
Next
For n=0 To cnt
Response.write nm(n) & " "
Response.write kor(n) & " "
Response.write eng(n) & " "
Response.write mat(n) & " "
Response.write aver(n) & " "
Response.write "<br>"
Next
'문) aver(2)가 몇등인지 구하시오
Dim r : r=1
For n=0 To cnt
If aver(2) < aver(n) Then r=r+1
next
response.write "aver(2)=" & r & "등 입니다<br>"
'문)전체 등수를 구하시오
Dim rank
rank=Array(1,1,1,1,1)
dim i,j
For i=0 To cnt
For j=0 To cnt
If aver(i) < aver(j) Then rank(i)=rank(i)+1
Next
Next
'입력->가공,편집->출력
For n=0 To cnt
Response.write nm(n) & " "
Response.write kor(n) & " "
Response.write eng(n) & " "
Response.write mat(n) & " "
Response.write aver(n) & " "
Response.write rank(n) & " "
Response.write "<br>"
Next
'배열 int[3] a / var a=new Array(3)
'a[0] a[1] a[2]
Dim a(2) '배열의 마지막 인덱스 번호
a(0)=10
a(1)=20
a(2)=30
Response.write UBound(a) '배열의 마지막 인덱스 번호
'Dim n
For n=0 To UBound(a)
Response.write a(n)
Response.write "<br>"
Next
Dim b
b=Array(40,50,60)
For n=0 To UBound(b)
Response.write b(n)
Response.write "<br>"
Next
%>