【练习1-1】
<%@language=VBScript%>
现在是<%=Time()%>
<% dim hr
hr = hour(time)
if (( hr >= 0 ) and (hr < 6 )) then msg=\"又熬夜上网了！？！\"
elseif (( hr >= 6 ) and (hr < 12)) then msg=\"上午好！\"
elseif (( hr >= 12) and (hr < 18)) then msg=\"下午好！ \" else
msg=\"今天晚上还上网吗？\" end if
response.write(msg) %>
【例3】华氏温度和摄氏温度相互转换的网页。利用输 入框输入温度，利用信息框输出转换后的温度，输入 一个华氏温度可以得到相应的摄氏温度，而输入一个 摄氏温度则可以得到相应的华氏温度。
温度转换华氏温度和摄氏温度相互转换
【练习1】“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各有多少只？
在记事本中编写如下代码：
鸡兔同笼“鸡兔同笼”问题
鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h， 总脚数为f。问笼中鸡和兔各有多少只？
VBScript的选择结构
【例1】测试输入的数据是否有效的数值。
简单验证 简单验证
请输入数值数据：
【例2】将例1中的行If语句改为使用块If语句。
简单验证 简单验证
请输入数值数据：
VBScript的选择结构
【例3】铁路托运行李，从甲地到乙地，规定每张客票托运费 计算方法是：行李重量不超过50公斤时，每公斤0.25元，超过 50公斤而不超过100公斤时，其超过部分每公斤0.35元，超过 100公斤时，其超过部分每公斤0.45元。编写程序，输入行李重量，计算并输出托运的费用。
【例3】编写如下VBScript程序代码：
【例4】某百货公司为了促销，采用购物打折扣的优惠办法。每位顾客一次购物： (1) 在1000元以上者，按九五折优惠。 (2) 在2000元以上者，按九折优惠。 (3) 在3000元以上者，按八五折优惠。
(4) 在5000元以上者，按八折优惠。 【例4】编写如下VBScript程序代码： „
元
【例5】例4中的If语句可以改为Select语句，其代码为： 元
VBScript的选择结构
【例6】求累加和1 + 2 + 3 +„+ 100。
分析：采用累加的方法，用变量s来存放累加的和（开始为
0），用变量n来存放“加数”（加到s中的数）。 „
【例7】输入一个正整数，利用“当型”循环判断是否素数。
分析：所谓“素数”是指除了1和该数本身，不能被任何整数整除的数。判断一个自然数n（n≥3）是否素数，只要依次用2～作除数去除n，若n不能被其中任何一个数整除，则n即为素数。
编写如下VBScript程序代码：
判断素数 判断素数
请输入一个大于2的自然数：
【例8】输入两个正整数，求它们的最大公约数。 。。。
【例9】利用下述公式计算圆周率π的近似值：
【例10】“同构数”是指这样的整数：它恰好出现在其平方数的右端，例如1和5就是这样的数。试找出1～9999之间的全部“同构数”
同构数找出1～9999之间的全部“同构数”
【例11】在窗体中有若干文本框，在代码中创建Dictionary对象，并赋值。然后将Dictionary对象的内容分别放置在多个文本框中。 编写如下VBScript程序代码： 。。。
【例12】求从1000到1100之间的所有素数。 编写如下VBScript程序代码：
素数找出1000～1100之间的所有素数
【例13】编制判断素数的Sub过程，验证哥德猜想：一个不小于6的偶数可以表示为两个素数之和。
例如：6 = 3 + 3，8 = 3 + 5，10 = 3 + 7，„ 编写如下VBScript程序代码：
验证哥德猜想
验证哥德猜想：一个不小于6的偶数可以表示为两个素数之和
请 输 入 一 个 不 小 于 6 的 偶 数 ：
TYPE=\"Button\" NAME=\"Button1\" VALUE=\"确定\">【例14】编写求两数最大公约数的Function过程。在网页中输入3个整数，调用Function过程求出3个整数的最大公约数。
最大公约数 求3个数的最大公约数
请输入3个自然数：
【例15】求两个整数的最大公约数和最小公倍数。 编写如下VBScript程序代码：
最大公约数与最小公倍数 求最大公约数与最小公倍数
请输入2个自然数：
【练习1】有编号1～10的10个球，编写程序，在其中随机抽取 6个球，并输出它们的编号。
在记事本中编写如下VBScript程序代码：
随机取号 随机取号
有编号1～10的10个球，在其中随机抽取6个球
