第3章 编程语言.docVIP

【例3-1】第一个VBScript例子。 说明： ①代码的开始和结束部分都有SCRIPT标记。LANGUAGE属性用于指定所使用的脚本语言。 ②VBScript代码被嵌入在注释标记(!--和--)中。 ③SCRIPT块可以出现在HTML页面的任何地方(BODY或HEAD部分之中)。然而最好将所有的目标脚本代码放在HEAD部分中，以使脚本代码集中放置。这样可以确保在BODY部分调用代码之前所有脚本代码都被读取并解码。但是当脚本代码作为对象的事件代码时，则不必把它放在HEAD部分中，可以就近放在对象附近。 【例3-2】以下代码将脚本代码放在按钮对象的定义之后以响应按钮的单击事件。 【例3-3】华氏温度和摄氏温度相互转换的网页。 【例3-4】下面的代码测试输入的数据是否有效的数值。 【例3-5】将例3-4中的行If语句改为使用块If语句。 【例3-6】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是：行李重量不超过50公斤时，每公斤0.25元，超过50公斤而不超过100公斤时，其超过部分每公斤0.35元，超过100公斤时，其超过部分每公斤0.45元。编写程序，输入行李重量，计算并输出托运的费用。 【例3-7】某百货公司为了促销，采用购物打折扣的优惠办法。每位顾客一次购物： (1)在1000元以上者，按九五折优惠。 (2)在2000元以上者，按九折优惠。 (3)在3000元以上者，按八五折优惠。 (4)在5000元以上者，按八折优惠。 【例3-8】例3-7中的If语句可以改为Select语句。 【例3-9】求累加和1 + 2 + 3 +…+ 100。 ??? 分析：采用累加的方法，用变量s来存放累加的和(开始为0)，用变量n来存放“加数”(加到s中的数)。这里n又称为计数器，从1开始到100为止。 【例3-10】输入一个正整数，利用“当型”循环判断是否素数。 ??? 分析：所谓“素数”是指除了1和该数本身，不能被任何整数整除的数。 判断一个自然数n(n≥3)是否素数，只要依次用2～√n作除数去除n，若n不能被其中任何一个数整除，则n即为素数。 【例3-11】输入两个正整数，求它们的最大公约数。 分析：求最大公约数可以用“辗转相除法”，如下： ①以大数m作被除数，小数n做除数， 相除后余数为r。 ②若r≠0，则m←n，n←r，继续相除得到新的r。若仍有r≠0，则重复此过程，直到r = 0为止。 ③最后的m就是最大公约数。 【例3-12】利用下述公式计算圆周率π的近似值： 【例3-13】“同构数”是指这样的整数：它恰好出现在其平方数的右端，例如1和5就是这样的数。试找出1～9999之间的全部“同构数”。 分析： 1位同构数n应满足条件：n = n^2 Mod 10， ???? 2位同构数n应满足条件：n = n^2 Mod 100， ???? 3位同构数n应满足条件：n = n^2 Mod 1000， ???? 4位同构数n应满足条件：n = n^2 Mod 10000。 【例3-16】编制判断素数的Sub过程，验证哥德巴赫猜想：一个不小于6的偶数可以表示为两个素数之和。例如：6 = 3 + 3，8 = 3 + 5，10 = 3 + 7，… ??? 分析：假设有一个偶数n，将它表示为两个整数a和b的和，即n = a + b。如果n = 10，先令a = 2，判断2是否是素数，经检查2是素数，由于b = n - a，故b的值为8，经检查8不是素数，则这一组合(10 = 2 + 8)不合要求。再使a加1，即a = 3，经检查3是素数，b = n – a = 7，经检查7也是素数，则这一组合(10 = 3 + 7)符合要求。??? 【例3-17】编写求两数最大公约数的Function过程。在网页中输入3个整数，调用Function过程求出3个整数的最大公约数。 【例3-18】求两个整数的最大公约数和最小公倍数。 【练习3-19】“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各有多少只？ 【练习3-20】有编号1～10的10个球，编写程序，在其中随机抽取6个球，并输出它们的编号。 【练习3-21】编写输入一个0～6数字，输出汉英对照星期名的Function过程。