上机题：
1、编写程序，在浏览器中求100~999中的水仙花数。
2、得到某天是星期几。
3、编写程序，在浏览器中随机产生20个数，求出它们的最大值、最小值、平均值。
4、设计一个页面，当打开或关闭此页面时，用消息框显示相关信息。（如 打开页面时，显示”欢迎你光临！”；关闭该页面时显示”再见！”）
5、编写程序，在浏览器中输出1~999中能被3整除，且至少有一位数字是5的所有整数。
6、有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？
7、用VBScript实现冒泡排序。
8、某超市在五一节进行促销，具体方法是每位顾客一次购物累计：
1）在500元以上者，按九五折优惠；
2）在1000元以上者，按八五折优惠；
3）在1500元以上者，按七折优惠；
4）在3000元以上者，按五折优惠；
1、test1.htm:
<html>
<head><title>求水仙花</title>
<script language=VBS>
<!--
Option Explicit
dim i,a,b,c
for i=100 to 999
a=i\100              '百位 斜杠/代表除，结果不取整；反斜杠\代表整除，结果取整
b=(i-a*100)\10        ‘十位
c=i-a*100-b*10        ‘个位
if a^3+b^3+c^3=i then
    document.write i & "<br>"
end if
next
-->
</script>
</head>
<body></body>
</html>
2、test2.htm代码如下：
<html>
<body>
<script language=vbs>
  document.write  "本月是：" & Month(Date) & "<br>"
  document.write  "今天是：" & day(Date) & "<br>"
  document.write  "星期是: " & WeekDay(Date,2) & "<br>"
  document.write  "今年是: " & year(date) & "<br>"
</script>
</body>
</html>
3、test3.htm:
<html>
<head><title>100以内20个随机数</title>
<script language=VBS>
<!--
Option Explicit
dim i,num(20),max,min,avg,sum
sum=0
for i=1 to 20
  randomize
  num(i)=int(101*rnd)    //产生一个0-100之间的整数
  document.write num(i) & " "
  sum=sum+num(i)      //求和
next
avg=sum/20                      //求平均值
max=num(1)
min=num(1)
for i=2 to 20    //从第2个数开始比较
  if num(i)>max then
    max=num(i)
  end if
  if num(i)<min then
    min=num(i)
  end if
vbs小程序代码大全
next
document.write "<br>" & "最大数为:" & max & " 最小数为:" & min & " 平均值为:" & avg
-->
</script>
</head>
<body></body>
</html>
5、test5.htm:
<html>
<head><title>输出1~999中能被3整除，且至少有一位数字是5的所有整数</title>
<script language=VBS>
<!--
Option Explicit
dim i,a,b,c,k
for i=1 to 999
  if i>=10 and i<=99 then    ‘两位数的处理
    a=i mod 10        ‘个位
    b=i\10            ‘十位
    if (i mod 3=0) and (a=5 or b=5) then
        document.write i & "<br>"
    end if
  elseif i>99 and i<=999 then  ‘三位数的处理
      a=i\100
      b=(i-a*100)\10
      c=i-a*100-b*10
    if (i mod 3=0) and (a=5 or b=5 or c=5) then
        document.write i & "<br>"
    end if
  end if
next
-->
</script>
</head>
<body></body>
</html>
6、100个和尚,100个馒头.分析：设大和尚为i；小和尚为100-i
test6.htm:
<html>
<head><title>大和尚小和尚吃馒头</title>
<script language=VBS>
<!--
Option Explicit
dim i
for i=0 to 100
  if i*4+(100-i)/4=100 then    '斜杠/代表除,反斜杠\代表整除
    document.write "大和尚有:" & i & "个" & " 小和尚有:" & 100-i & "个"
  end if
next
-->
</script>
</head>
<body></body>
</html>
7、test7.htm
<html>
<head><title>冒泡排序</title>
<script language=VBS>
Function sort(arry)
dim i,temp,n,j
n=UBound(arry)    ‘求出数组的上限,即最大下限
for j=1 to n   
  for i=0 to n-j
   
    if arry(i)>arry(i+1) then
      temp=arry(i)
      arry(i)=arry(i+1)
      arry(i+1)=temp
    end if
  next
next
sort=arry
End Function
dim myarray(4)
myarray(0)=56
myarray(1)=46
myarray(2)=78
myarray(3)=12
myarray(4)=71
document.write "排序前：" & "<br>"
for i=0 to UBound(myarray)
  document.write  myarray(i) & "<br>"
next
aa=sort(myarray)
document.write "排序后：" & "<br>"
for i=0 to UBound(aa)
  document.write aa(i) & "<br>"
next
</script>
</head>
<body></body>
</html>
8、分析：从题目看有4个条件，可使用多分支的条件语句或IF嵌套语句来完成，本例使用多分支的条件语句。采用上述第1种处理事件的方式。
Test8.htm程序代码如下：
<html>
<head><TITLE>商场打折</TITLE>
<script language="vbscript">
  sub button1_onclick
  x=text1.value
  if not Isnumeric(x) then
    msgbox "您输入的不是数值数据"
    exit sub
  end if
  select case true
    case x<500
      y=x
    case x>=500 and x<1000

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。