=========
Q: 随机产生两位数,显示着两个数以及最小数。
Dim m, n, Min
Randomize
m = Int(Rnd * 90 + 10)
n = Int(Rnd * 90 + 10)
If m > n Then
Min = n
else
Min = m
end if
document.write("两个随机数是:" & n & "," & m & "
")
document.write("最小的数是:" & Min & "
")
==================================V2================================= =========
Q: 编写程序,随机产生4个3位数,然后显示这4个数及最大数。
=========
Q: 已知学号由八位数组成,其中从左边算起前两位数表示年级,第三位数表示学生类型。
2——博士生3——硕士生4——大学生
dim xh,nj,lx
xh = InputBox("请输入学号(8位数字):")
nj = left(xh,2)
'取年级号
lx_no = Mid(xh,3,1)
'取学生类型
if lx_no = "2" then
lx_name="博士"
else
if lx_no = "3" then
lx_name="硕士"
else
if lx_no = "4" then
lx_name="学士"
else
lx_name=""
end if
end if
end if
document.writeln("该生为:" & nj & "年级,"&lx_name) '输出
==================================V4================================= =========
Q: 编写程序,计算函数y=3x3+2x2+x+4,用户通过对话框输入x的值,并把计算结果显示在网页上,显示格式y=值。
Dim x,y
x = InputBox("请输入x的值:")
y = 3*x^3 + 2*x^2 + x + 4
MsgBox("y = " & y)
=========
Q: 求级数s=1/(1+1*1)+2/(1+2*2)+3/(1+3*3)+n/(1+n*n)求其前一百项的和,在网页上显示结果。
Dim s,k
s = 0
For k = 1 To 100
s = s + k/(1+k*k) '累加s=1/(1+1*1)+2/(1+2*2)+3/(1+3*3)+ …+n/(1+n*n) Next
document.write("s=" & s)
==================================V6================================= =========
Q: 编写程序,计算s=1+2+3+……+10的值
Dim i,j,s,t
s = 0
For j = 1 To 10 '求10次阶乘,1!,2!,…10!
t = 1
For k = 1 To j
t = t * k
Next
s = s + t '把每次阶乘值t加起来
Next
document.write("1!+2!+3!+…+10! = " & s)
=========
Dim i,j
For i = 1 To 5
For j = i to 5
document.write(i)
Next
document.write("
")
Next
==================================V8================================= =========
Q: 如果某个年份值是4的倍数而不是100的倍数,或者该年份是400的倍数,这一年就是闰年,编写程序,看当天是否是闰年。
Dim thisyear
thisyear = year(date())
If thisyear mod 400 = 0 or (thisyear mod 4 = 0 and thisyear mod 100 <> 0) Then
document.write("今年是闰年!")
else
document.write("今年不是闰年!")
end if
==================================V9================================= =========
Dim a
a=int(inputbox("请输入一个0--6的值:")) '将输入转换为数值
select case a
case 0
msgbox("星期天")
case 1
msgbox("星期一")
case 2
msgbox("星期二")
case 3
msgbox("星期三")
case 4
msgbox("星期四")
case 5
msgbox("星期五")
case 6
msgbox("星期六")
case else
msgbox("输入错误!")
end select
==================================V10================================= ========
Q: 输入任意边长,求正方形的面积。
sub mj(bc)
document.write("正方形的面积为:" & bc * bc)
end sub
dim bc
bc = csng(InputBox("请输入正边形的边长:"))
call mj(bc)