实验例程.pptVIP

VBS综合例题与实验 * 【例】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50公斤时，每公斤0.25元，超过50公斤而不超过100公斤时，其超过部分每公斤0.35元，超过100公斤时，其超过部分每公斤0.45元。编写程序，输入行李重量，计算并输出托运的费用。 【练习】某百货公司为了促销，采用购物打折扣的优惠办法。每位顾客一次购物： (1) 在1000元以上者，按九五折优惠。 (2) 在2000元以上者，按九折优惠。 (3) 在3000元以上者，按八五折优惠。 (4) 在5000元以上者，按八折优惠。 【练习】输入一个正整数，利用“当型”循环判断是否素数。 分析：所谓“素数”是指除了1和该数本身，不能被任何整数整除的数。判断一个自然数n（n≥3）是否素数，只要依次用2～ 作除数去除n，若n不能被其中任何一个数整除，则n即为素数。 【练习】“同构数”是指这样的整数：它恰好出现在其平方数的右端，例如1和5就是这样的数。试找出1～9999之间的全部“同构数”。 【例】编写求两数最大公约数的Function过程。在网页中输入3个整数，调用Function过程求出3个整数的最大公约数。 【练习】有编号1～10的10个球，编写程序，在其中随机抽取6个球，并输出它们的编号。 【练习】编制判断素数的Function过程，验证哥德巴赫猜想：一个不小于6的偶数可以表示为两个素数之和。 【例】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50公斤时，每公斤0.25元，超过50公斤而不超过100公斤时，其超过部分每公斤0.35元，超过100公斤时，其超过部分每公斤0.45元。编写程序，输入行李重量，计算并输出托运的费用。 分析：设行李重量为w公斤，应付运费为x元，则运费公式为： 编写如下VBScript程序代码： HTML HEADTITLE托运费计算/TITLE/HEAD BODYH3托运费计算/H3HR 请输入行李重量： input name=Text1 TYPE=TEXT SIZE=10nbsp;kgnbsp; nbsp; INPUT TYPE=Button NAME=Button1 VALUE=计算 SCRIPT FOR=Button1 EVENT=onClick LANGUAGE=VBScript w = Text1.value If Not IsNumeric(w) Then MsgBox 您输入的不是数值数据 Else If w = 50 Then x = 0.25 * w Else If w = 100 Then x = 0.25 * 50 + 0.35 * (w - 50) Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100) End If End If MsgBox 行李的托运费是： x 元 End If /SCRIPT /BODY /HTML 【练习】某百货公司为了促销，采用购物打折扣的优惠办法（如图5-3）。每位顾客一次购物： (1) 在1000元以上者，按九五折优惠。 (2) 在2000元以上者，按九折优惠。 (3) 在3000元以上者，按八五折优惠。 (4) 在5000元以上者，按八折优惠。 分析：设购物款数为x元，优惠价为y元，则优惠付款公式为： 编写如下VBScript程序代码： HTML HEADTITLE优惠价计算/TITLE/HEAD BODYH3优惠价计算/H3HR 所购商品总金额： INPUT name=Text1 TYPE=TEXT SIZE=10nbsp;元P INPUT TYPE=Button NAME=Button1 VALUE=计算 SCRIPT FOR=Button1 EVENT=onClick LANGUAGE=VBScript x = Text1.value If Not IsNumeric(x) Then MsgBox 您输入的不是数值数据 : Exit Sub If x 1000 Then y = x ElseIf x 2000 Then y = 0.95 * x