📄 subtab01.asp
字号:
<HTML><BODY BgColor="#FFFFFF">
<%
NameList = Array("陈桶一", "黄光权", "胡生妙", "王为全", "李日正", "刘德菖", "方正一", "刘康宝", "谢掬花", "王美兰", "徐小当", "叶小毛")
BCCList = Array(90, 58, 41, 95, 59, 28, 98, 0, 95, 41, 91, 0)
ASPList = Array(76, 77, 14, 97, 66, 11, 100, 0, 74, 46, 99, 10)
VBList = Array(98, 75, 33, 87, 57, 33, 100, 10, 89, 49, 84, 0)
Response.Write "<TABLE Border=1>"
' 输出第一列的标题
Response.Write "<TR BgColor=Cyan><TD>姓名</TD>"
Response.Write "<TD>BCC</TD><TD>ASP</TD><TD>VB</TD>"
Response.Write "<TD>总分</TD><TD>平均</TD></TR>"
' 输出数组中的数据
For I = 0 To UBound(NameList)
CalcScore NameList(I), BCCList(I), ASPList(I), VBList(I)
Next
Response.Write "</TABLE>"
%>
</BODY>
</HTML>
<%
Sub CalcScore( Name, BCC, ASP, VB )
Response.Write "<TR>"
Response.Write "<TD>" & Name & "</TD>"
Response.Write "<TD Align=Right>" & BCC & "</TD>"
Response.Write "<TD Align=Right>" & ASP & "</TD>"
Response.Write "<TD Align=Right>" & VB & "</TD>"
Total = CInt(BCC) + CInt(ASP) + CInt(VB)
Response.Write "<TD Align=Right>" & Total & "</TD>"
Response.Write "<TD>" & (Total / 3) & "</TD>"
Response.Write "</TR>"
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -