第二次asp作业
（1）请在你的个人主页上添加时间显示信息，显示当天的日期、时间及星期几。
<%
Response.Write Date() & " " & Time()
Select Case Weekday(Date())
Case 1
Response.Write "星期日"
Case 2
Response.Write "星期一"
Case 3
Response.Write "星期二"
Case 4
Response.Write "星期三"
Case 5
Response.Write "星期四"
Case 6
Response.Write "星期五"
Case 7
Response.Write "星期六"
End Select
%>
（2）请编写程序段，判断当天日期，如果是25日，则显示“请注意，明天可能有病毒发作”。
<%
If Day(Date())=25 Then
Response.Write "请注意:明天可能有病毒发作。"
End If
%>
（3）请编写程序段，随机产生一个0到9的整数。如果是偶数，则在页面上输出“生成的是偶数”，否则输出“生成的是奇数”。
<%
Dim s
s=Int(10 * Rnd())
If (s Mod 2)=0 Then
Response.Write "生成的是偶数"
Else
Response.Write "生成的是奇数"
End if
%>
（4）S=1^2+3^2+5^2+…+99^2，请利用两种循环语句编写程序，计算S的值。
'第1种算法:
Dim I,Sum
S=0
For I=1 To 99 Step 2
S=S+I^2
Next
Response.Write S
%>
第2种算法:
<%
I=1
S=0
Do While I<=99
S=S+I^2
I=I+2
Loop
Response.Write S
%>
（5）请编写函数计算a到b的立方和，并举例调用，调用时a、b分别为3和6。 <%
Function lifanghe(a,b)
Dim Sum,I
Sum=0
For I=a To b
Sum=Sum+I^3
Next
lifanghe=Sum
End Function
Dim S
S=lifanghe(3,6)
Response.Write S
%>
（6）请编写函数能够随机产生从a到b之间的整数，并举例调用。
<%
'下面是函数
Function Rndab(a,b)
Rndab=Int((b-a+1)*Rnd)+a
End Function
S=Rndab(3,10)
Response.Write S
%>
（7）请结合示例3-13开发一个函数，使其能实现Join函数的功能。
答案：构造Join函数
<% Option Explicit '强制声明变量%>
<%
'下面是将全部数组元素连接在一起的函数
Function join_string(S_temp)
Dim strSum,Item
For Each Item in S_temp '执行循环，取出每个元素
strSum=strSum & Item
Next
join_string=strSum
End Function
'下面是主程序，用来调用
Dim S(3) '定义一个数组
Dim Return_string
S(0)="a"
S(1)="b"
S(2)="c"
S(3)="--end--"
Return_string=join_string(S)
Response.Write "全部数组元素连接成的字符串为" & Return_string
%>
（8）请在示例3-14的基础上增加一段代码，从而可以计算所有数组元素的平方和。（提示：请用嵌套循环）
答案：计算所有数组元素的平方和
<% Option Explicit '强制声明变量%>
<%
Dim intA(9,9),intSum '声明一个10行10列的二维数组
Dim I,J 'I是外层循环计数器变量，J是内层循环计数器变量
For I=0 To 9 '外层循环
For J=0 To 9 '内层循环
intA(I,J)=10 '给每一个元素赋初值10
Next
Next
For I=0 To 9 '外层循环
For J=0 To 9 '内层循环
intSum=intSum+intA(I,J)^2 '给每一个元素赋初值10
Next
Next
Response.write "该数组元素的平方和是"& intSum
%>
（9）（选做题）有100个人吃100个馒头，大人1人吃4个，孩子4人吃1个，问有多少个大人和多少个孩子？（提示：使用嵌套循环和条件语句）
答案：计算吃馒头的人数
<%
Dim I,J,ren,mantou
For I=1 To 100 '大和尚从1到100循环
For J=1 To 100 '小和尚从1到100循环
ren=I+J '计算总人数
mantou=I*4+J*0.25 '计算总馒头数
If ren=100 And mantou=100 Then
Response.write"
大和尚=" & I & " 小和尚=" & J
End If
Next
Next
%>