动态网页设计与网站管理实验指导书(17)

n=50+int(50*rnd()) '产生要猜的数的范围上界 num=m+int((n-m)*rnd) '产生要猜的数

ans=inputbox("猜的数的范围为：" & m & "~" & n & vbclrf & "请输入你猜的数","猜数游戏")

'上述语句让用户输入一个要猜的数 ans=ans+1-1 '使ans具有数值数据的特性 cs=1 '猜的次数置1

do while ans<>num '如果猜的数不对

if ans>num then '如果猜的数比被猜的数大

msgbox "很抱歉，你猜的数大了。" '显示提示信息 else '如果猜的数比被猜的数小

msgbox "很抱歉，你猜的数小了。" '显示提示信息 end if

ans=inputbox("猜的数的范围为" & m & "~" & n & vbcrlf & "请输入你猜的数","猜数游戏")

'上述语句让用户再输入一个要猜的数 ans=ans+1-1

cs=cs+1 '猜的次数加1 loop

msgbox "祝贺你猜中了！共猜了" & cs & "次！" '显示猜中信息及猜的次数 </script>

[请补充后两个游戏的代码] </body> </html>

3．过程程序设计 （1）任务描述

编写一个求三个数的最大公约数的网页，网页初始运行时，将会出现如图3-13所示的“姓名输入”对话框供用户输入姓名；

用户输入姓名后按“确定”按钮将会出现如图3-14所示的主网页。 在该主网页中输入三个整数后，按“计算”按钮将计算出这三个整数的最大公约数并显示出来，如图3-15所示。此时按“重新输入”按钮，将把所有文本框中的内容清空。