请帮助设计这一个查询网页某班有10位学生，老师将ASP考试后的成绩公布于SCORE.ASP网页上面，让自己查询.2、某班有10位学生，老师将ASP考试后的成绩公布于SCORE.ASP网页上面，让同学们自己查

Question

请帮助设计这一个查询网页某班有10位学生，老师将ASP考试后的成绩公布于SCORE.ASP网页上面，让自己查询.
2、 某班有10位学生，老师将ASP考试后的成绩公布于SCORE.ASP网页上面，让同学们自己查询，查询的方法为登陆SCORE.ASP，同学需要提交学号，提交完毕后显示出该学生的成绩。请帮助设计这一个查询网页。（学号从3101－3110，成绩自定）
提示：
（1）、需使用IF-ENDIF、FOR-NEXT。
（2） 两个数组，一个用来存放学号，一个用来存放成绩，当用户输入的学号在学号数组时，读出并显示对应的成绩数组的内容，例如：
a(3101,3102,3103,3104,3105,3106)
b(96,80,77,98,67,71)
（3） 当用户输入3102时，输出：您的得分为80。如果用户输入3223，输出“对不起，您的学号输入有错误！”

Answer 1

根据上述问题，代码如下：
Dim A:A=Array(3101,3102,3103,3104,3105,3106)'学号数组
Dim B:B=Array(96,80,77,98,67,71)'对应学号得分数组
Dim I,StudentID,Score:Score=0
StudentID = 3102
'StudentID = Request("StudentID")'获取学生输入的学号,不区分Form或GET,需要控制为数字类型。
'If StudentID="" Then Response.Write "请先输入你的学号":Response.End()
Dim IsStudent:IsStudent = False
For I=0 To UBound(A)
If Clng(A(I))=Clng(StudentID) Then Score = B(I):IsStudent = True:Exit For
Next
If IsStudent Then
Response.Write "您的得分为" &Score
Else
Response.Write "对不起，您的学号输入有错误！"
End If
%>