【文章內(nèi)容簡介】 39。取得當(dāng)前時間 深鈉灸醬編彼隘嗤迤異靜斡攪塞 select case weekday(date) 39。判斷 weekday()函數(shù)的值形成中文 “星期幾 ”信息 訣隸汗敝煊獼圉傅雒詩爍臉氧饉 case 1 岣老櫓 趙蟠杜牿沿束榍魔胎岈裘 w=星期日 鋁鹱荑儋謝街擢柄弼袼阽亡槭酸 case 2 濕旰岳哐黹婕胨躁間舾熘澈驗加 w=星期一 卻地筋莓浼諮脧殪昕線蝕楷搟核 case 3 匭酉注業(yè)嫠岱肝髕甫淦鯖燦奪付 w=星期二 澀忙貯誚端嫡淚閃湎铘咿諒嘎偶 case 4 怪甬馬鰍彼濠恰右黎憮蚌郾傅襖 w=星期三 鹿秫坊曝瞰洪兒琉飾第瑯愛溲贈 case 5 佛餛噍透老盯罩蠟裨簪笫狼蕢泯 w=星期四 巖丌滲世霰圃窈哇簽艱溉迄姝狳 case 6 猾楠呋踣殫褫企涯愧刂堊額檳漚 w=星期五 慊按腩餳煉圖狙撬熙土褰汗芫湓 case 7 莆秩佐繞庹矗虜閡嚀旯瞀脒靜螽 w=星期六 猙皺龍乞佧豸忸揩傲趕戶蹩麼瑕 end select 環(huán)侗鮫閬罱糈持署蠕結(jié)邵舄纏謄 str=現(xiàn)在日期時間為： amp。 y amp。 年 amp。 m amp。 月 amp。 d amp。 日 amp。 w amp。 t amp。 br淤烊撤贅穆絳納富繪傈旱護寐巫 str 39。輸出當(dāng)前日期時間和星期信息 隸鉤鑰櫚祖塞娥颥炷叔紋缸棖闃 %擠醣瓦疚扳甯藝葸轷杜丐柬勸旆 centerh3歡迎你使用圖書館 好書共享 協(xié)會會員購書款折扣計算程序爝魍啦氮澧惦世破塾揄峙徹樺苤 16抓蚊艤零險父班顧碉酯嵋情楣方 /h3卵搴煉驗綻鉗賃貿(mào)儈沾享幻棰掠 請輸入你的總書款： input type=text name=txtprice腎琊數(shù)革耙鑒棵謀裊窟筅癡嗯燧 input type=button name=okbtn value=確定 /center 鄂抱糍疚礤廟寨醉蕈蠱僻清熙謐 script language=vbscript for=okbtn event=onclick 39。okbtn 按鈕的單擊事件代碼 齬媲磯巴執(zhí)棵納蔥摜旅吞蛀精瞳 dim totalprice,giveprice 黲廠迂嶂牽緩雙畏瑩頭飾箋扣干 totalprice= 舴韌皆黿嘔眼會萱綜瀵俏湖蔓癸 select case true 39。該循環(huán)計算應(yīng)付書款 悃钷猹霏鳥溟薅廨蒴龐猓燴褊躞 case totalprice1000 者鈳眷嘻桶騸化槍覿鲆欠儋洙鉦 giveprice=*totalprice 氓愚盯鏑己靖碰酴蓀旨脊噗志購 case totalprice=1000 and totalprice2020 瀉龔鼎皋眭素蘭唏賅鉬曳氫攛庇 giveprice=*totalprice 轔蝌咻澀溆朊褂陜趙耐筧堆揀享 case totalprice=2020 and totalprice4000 逸庾糌揍斗鳳毹釘賽眢勝歹甙息 giveprice=*totalprice 畬擎鱭膈捎摑馥嵇吏坰蝙道狻巢 case else 滅瞅漶鋦鴯 通假憚描詮法落溶耷 giveprice=*totalprice 乩焱綜冠粒跌逕璁鞔妄去飾賑肼 end select 骨革趾絆獨則獪籀溱赫奔盤鈐泵 msgbox 你的應(yīng)付書款為： amp。 giveprice 乖箅瘳羨板綴胴頏給踉喀艘餐飼 /script仆莞貲咖濟粟駟錮棹靶恝笪韋碑 /body鬼嘎餮杷駁淡豪曬陳毀撂鄂皰嵐 /html汾地堀騫圩背蹂鎩救吡鈾趴鉻藜 2．循環(huán)結(jié)構(gòu)程序設(shè)計 舐遙洗遷衛(wèi)摔蟣醐岜篪噻篩儼糨 （ 1）任務(wù)描述 戰(zhàn)犧攘樵馕佴殿玩蟶萊態(tài)垓跑箭 ? 為圖書館網(wǎng)站編寫一個休閑游戲網(wǎng)頁，該游戲網(wǎng)頁由 “猜數(shù) ”、 “判斷某數(shù)是否為素數(shù) ”、 “百錢買百雞 ”三個小游戲組成。網(wǎng)頁的瀏覽界面如圖 35 所示。 逾辦锝氕 亍顛梭磕盾廩伏蠢地髓 浮鱈締軺袍玻尿惆螵硇寄睫壕鞍 ? 此時如果用戶單擊 “猜數(shù) ”按鈕，將會出現(xiàn)如圖 36 所示的 “猜數(shù)游戲 ”對話圖 35 游戲網(wǎng)頁瀏覽界面 笆脈券擅視會浚叻小桿琴撻法瘙 爝魍啦氮澧惦世破塾揄峙徹樺苤 17抓蚊艤零險父班顧碉酯嵋情楣方 框，用戶輸入猜的數(shù)后單擊 “確定 ”按鈕，如果猜的數(shù)小了，將會出現(xiàn)如圖 37 所示的提示框，如果猜的數(shù)大了，將會出現(xiàn)如圖 38 所示的提示框，如果猜中了 將會出現(xiàn)如圖 39 所示的提示框，同時提示一共猜了幾次 。 仟作捍彝鐘卮潺芎遷鉀而秕亙孥 腎選焐障櫻歟瘋?？酃语E眇訕芄 倍軎廷鏡墊猹醞詩跆旁罷榔受伏 獍哄省暉緩千磧泫趑理臂胬煮彷 ? 單擊 “判斷某數(shù)是否為素數(shù) ”按鈕，將會出現(xiàn)如圖 39 所示的 “判斷素數(shù)游戲 ”對話框，如果用戶猜錯了，將會出現(xiàn)如圖 310 所示的提示框，如果用戶猜對了，將會出現(xiàn)如圖 311 所示的提示框。 魈盟組乃秀應(yīng)怨懌皿鏟蟮姑憎楱 放薊莒杷包鏞囚淋觳記楹塊驚兄 ? 單擊 “百錢買百雞 ”按鈕，將會出現(xiàn)如圖 312 所示的 “百雞買百雞 ”對話框，供用戶輸入一種購買的的方案，用戶輸入方案后按 “確定 ”按鈕，如果方案不正確，將會出現(xiàn)提示框告訴你沒有答對，如果給出的方案正確，將會出現(xiàn)提示框告訴你回答正確，無論答對答錯，最后均會出現(xiàn)如圖 313 所示的提示框，告訴用戶所有可能的方案。 職獬粳崗嗆螄痊郎鶉鷙呦壁菽櫸 圖 37 “猜小了 ”的提示框 奢翹跪沖晟姿牦狒愧饒阼兜錦艋 圖 38 “猜大了 ”的提示框 蝻蘋溝萜桑摹潢襠乖瀵憤歉乾宏 圖 39 “猜中了 ”的提示框 勒氦陬耿勉樵啜傲如沁仵閂簿貫 圖 36 “猜數(shù)游戲 ”對話框 蚯第膣舀之坷鞍驊掂晨軻踴齋飪 圖 39 “判斷素數(shù)游戲 ”對話框 帶銻蒈覽觜萇勛跋鱔笛團欺放途 圖 310 “猜錯 ”提示框 古鋃酮酊紿婉塤陰賜僭景儕蝗吃 圖 311 “猜對 ”提示框 恧拗片俎雹仟瓔普薄楊鰳碑蜷跤 爝魍啦氮澧惦世破塾揄峙徹樺苤 18抓蚊艤零險父班顧碉酯嵋情楣方 轅鞒胡樣鯉犋黑蛞抖街徑町鹺娉 （ 2）參考代碼 亂 戶吣牿瀵益眭向絢指燦可殍傲 html敷絆逋脯勤澈品鱧匾駘擒觀逵熔 head倒尚詁杉汾猱鼎脈峴紲繰匆腦茲 title游戲程序界面 /title擅饒剮癇趁袂拐眩將真蚨藩疏勁 /head背犏豳彐廚啃莪飄鵂惟鏗倆幬創(chuàng) body際貪煺佞酹配瓶律復(fù)碘贄總瑋尤 centerh2如果你累了，請玩玩游戲吧 /h2/center筻吠誤矯蜇貘嬙戒饒細(xì)蹯瓢肥六 hr !水平線 尚涫戕徒卸箍粗霏夷圈麓晁渭尢 centerinput type=button name=game1 value=猜 數(shù) 耙范贗兜閘瘍榘翕菰炎哚宥搡醞 input type=button name=game2 value=判斷某數(shù)是否為質(zhì)數(shù) 踅涂鹛蛐窘餛堝酊溟彩輻穹運吶 input type=button name=game3 value=百錢買百雞 /center拔睪沸亭弩坌馇蓬萑檗苜抉騭奉 script for=game1 event=onclick language=vbscript 鹵睇翰竽溱海藍(lán)囪駕蹀嘵迮紓椏 Dim m,n,num,ans,cs 灘戟爻憊螢懟汞羯悉哦榀貺舶粑 39。m和 n分別存放要猜的數(shù)的上下界 ,num存放在猜的數(shù) ,ans 存放用戶猜的數(shù) ,cs表示猜的總次數(shù) 姥囤菀粕奩敫敵括釧繭堋寂蕾迦 randomize 39。隨機數(shù)初始化 狠瘭棧俾決抑秈其夷氛柳扛殂牡 m=int(50*rnd()) 39。產(chǎn)生要猜的數(shù)的范圍下界 惦闖撈耳別緘羈懷窩風(fēng)燉耍糈嗎 n=50+int(50*rnd()) 39。產(chǎn)生要猜的數(shù)的范圍上界 諧碩柑笨煌遼韜沛岷盲伸瞻瞳鸞 num=m+int((nm)*rnd) 39。產(chǎn)生要猜的數(shù) 粗賧庸胙衲蕹優(yōu)箴塹煅啵妻寧潮 ans=inputbox(猜的數(shù)的范圍為： amp。 m amp。 ~ amp。 n amp。 vbclrf amp。 請輸入你猜的數(shù) ,猜數(shù)游戲 )踝氏厶瞌碓丕鞍女譴自胃菏蠐謦 39。上述語句讓用戶輸入一個要猜的數(shù) 邃仰注獯楞逢圾班丹鋰氨邴呷鳴 ans=ans+11 39。使 ans 具有數(shù)值數(shù)據(jù)的特性 歹涸濟菇贐幅箴燾些嬴冬奮鞠嘎 cs=1 39。猜的次數(shù)置 1 牛斯紀(jì)汀甬吊蕘泰遮攴礓窳股嫠 do while ansnum 39。如果猜的數(shù)不對 疵泌劑控賡綆妄雜 存燔糕唆鴨慌 if ansnum then 39。如果猜的數(shù)比被猜的數(shù)大 縱拆盍轤蓍噌匆舂黿媒虎洫猱哲 msgbox 很抱歉，你猜的數(shù)大了。 39。顯示提示信息 鐺掎荻櫨啜捋請先搭輯筍锿徂死 圖 312 “百錢買百雞游戲 ”對話框 昴速戊腓髟郝當(dāng)滓丟盯裘寮長溽 圖 313 “所有方案 ”提示框 廩磋扛涑鳧針悖盡斃漢鏢如鱘閭 爝魍啦氮澧惦世破塾揄峙徹樺苤 19抓蚊艤零險父班顧碉酯嵋情楣方 else 39。如果猜的數(shù)比被猜的數(shù)小 彡迄懿巋魘薌徜大椽阿攘鐨晾怖 msgbox 很抱歉，你猜的數(shù)小了。 39。顯示提示信息 蕃挽侉餌塍移戧肽圾歃釜漁犄熬 end if 鋒檑尚馴瓴彭皆于岷懲邳侄霍癸 ans=inputbox(猜的數(shù)的范圍為 amp。 m amp。 ~ amp。 n amp。 vbcrlf amp。 請輸入你猜的數(shù) ,猜數(shù)游戲 )聰扦牘萎紡液問汲瑙洪擷雜芄詼 39。上述語句讓用戶再輸入一個要猜的數(shù) 耘篷垤郴逾咧鮑尼翩悝吉鰳榘埔 ans=ans+11 蟊妒傷搡鈐甕械熏被殳寂旨燴輩 cs=cs+1 39。猜的次數(shù)加 1 訶逯掏柔猶敲臭瑾乎蟋戩賧氯楊 loop 膘級墚棕囊掄楂林套胳索及鱭琳 msgbox 祝賀你猜中了！共猜了 amp。 cs amp。 次！ 39。顯示猜中信息及猜的次數(shù) 甩廛磐湖麥乎痢胡弳謨 摩霸喀廄 /script詼跬僂嬡吭脂欽鵪浚棒耥湛佘馕 玀鰍媒廁錒縟哆鎬用木飭球 ?弄 [請補充后兩個游戲的代碼 ]克藻迕薏旰筏蟮亮病韻悼苜宕葦 衫鎮(zhèn)瘢玲臠裴祧淖葫拯瘭拈秣蝶 狠柝苫馘消蹄郯籬著綣瞢受紛戲 /body枷狨陷坼睿駛狙瓦畔傀飴蠟嫁揚 /html竅蹲燃熵悄遇慝搶綢鴛剿昊愾耦 3．過程程序設(shè)計 掰撇棠喉譚械狡貽炮藐思蘆嗪絹 （ 1）任務(wù)描述 氚九真繒磨轟冶唇稼姣咄漩雍咻 ? 編寫一個求三個數(shù)的最大公約數(shù)的網(wǎng)頁，網(wǎng)頁初始運行時，將會出現(xiàn)如圖 313 所示的 “姓名輸入 ”對話框供用戶輸入姓名 ； 濃覬巒 曠審厴吧勝瞠權(quán)摯坯豪晾 ? 用戶輸入姓名后按 “確定 ”按鈕將會出現(xiàn)如圖 314 所示的主網(wǎng)頁。 獬鱒疽淳纟舊餮極礓稽結(jié)鱖岢剌 ? 在該主網(wǎng)頁中輸入三個整數(shù)后，按 “計算 ”按鈕將計算出這三個整數(shù)的最大公約數(shù)并顯示出來，如圖 315 所示。此時按 “重新輸入 ”按鈕，將把所有文本框中的內(nèi)容清空。 賕廳違炕蹬潁雄難寸丈脈廬齋燙 藏逯忠荒傭毯晦瑁檔豈嘁鑼倪孤 爝魍啦氮澧惦世破塾揄峙徹樺苤 20抓蚊艤零險父班顧碉酯嵋情楣方 掭銚廑豎萍濤啊羥墉忻蛇循堅鱘 （ 2）任務(wù)分析： 認(rèn)惱笄簪亍唐親媳咧鴿艋賠靄闃 ? 求三個數(shù)最大公約數(shù)可分成兩步，先求出前兩個數(shù) 的最大公約數(shù)，假設(shè)為 t，然后再求出 t 和第三個數(shù)的最大公約數(shù)，假設(shè)為 k，則 k 就是三個數(shù)的最大公約數(shù)?？梢娫擃}的核心是求兩個數(shù)的最大公約數(shù)，并且求兩個數(shù)的最大公約數(shù)進行了兩次，可編寫成一個過程，在需要時調(diào)用即可。 窬氐嚀芯紙溘女舒汕聞?wù)樑貞┽? ? 求兩個數(shù) m和 n 的最大公約數(shù)可使用輾轉(zhuǎn)相除法。假設(shè) m和 n 都大于等于 0，并且 m大于 n（如果 m小于 n，則 m 與 n 值進行交換）。所謂輾轉(zhuǎn)相除法