要在HTML页面显示如下数字图案,上机实验 7

上机实验7

按照以下各题的要求编写VBScript程序，文件名分别为V1.htm～V10.htm，保存在用户文件夹下的“\上机实验\第7章”子文件夹中。

1.编写程序，随机产生两个2位数，然后显示这两个数及其最小数。

2.编写程序，随机产生4个3位数，然后显示这4个数及其最大数。

3.已知学号由8位数码组成，如13421001，其中从左算起前两位表示年级，第3位表示学生类型。显示类型规定如下：

2——博士生，3——硕士生，4——本科生

编写程序，从输入对话框输入一个学号，经过判断处理后，显示该生的年级及学生类型(中文表示)。

4.编写程序，计算函数y=3x3+2x2+x+4，用户通过输入对话框输入x的值，把计算结果显示在网页上，显示格式：y=值。

5.求级数s=1/(1+1*1)+2/(1+2*2)+3/(1+3*3)+…+n/(1+n*n)+…的前100项的和，在网页上显示结果。

6.编写程序，计算s=1!+2!+3!+…+10!的值。

7.要在HTML页面上显示如下数字图案，请完善下列程序代码并上机验证。

11111

2222

333

44

5

程序代码如下：

Dim i,j

For i=1To5

For j=[1]

Document.write([2])

[3]

Document.write(“
”)

Next

[1]A.1To i B.1To5 C.1To i+1 D.i To5

[2]A.J B.I C.i+1 D.“1”

[3]A.End If B.End Sub C.Next D.End

8.如果某年的年份值是4的倍数并且不是100的倍数，或者该年份值是400的倍数，则这一年就是闰年。编写程序，显示当天是否处于闰年。

【提示】使用以下语句，可使变量yearval的值就是当天所属的年份。

yearval=year(date())

9.编写程序，根据用户输入的一个数字(0～6)，显示它对应的是星期几(0对应星期天，1对应星期一，2对应星期二……)。

10.任意输入边长，求正方形的面积。源代码如下：

function s(bc)

s=bc*bc