1、精選優(yōu)質(zhì)文檔傾情為你奉上精選優(yōu)質(zhì)文檔傾情為你奉上專(zhuān)心專(zhuān)注專(zhuān)業(yè)專(zhuān)心專(zhuān)注專(zhuān)業(yè)精選優(yōu)質(zhì)文檔傾情為你奉上專(zhuān)心專(zhuān)注專(zhuān)業(yè)目 錄 TOC o 1-3 u 實(shí)驗(yàn)一 熟悉HTML語(yǔ)言基本結(jié)構(gòu) PAGEREF _Toc h 2實(shí)驗(yàn)二 熟悉HTML語(yǔ)言圖像、表格和表單 PAGEREF _Toc h 5實(shí)驗(yàn)三 熟悉HTML多窗口、多媒體、CSS PAGEREF _Toc h 10實(shí)驗(yàn)四 利用VbScript語(yǔ)言制作一個(gè)猜數(shù)游戲 PAGEREF _Toc h 11實(shí)驗(yàn)五 利用VbScript語(yǔ)言制作一個(gè)小學(xué)生加法測(cè)試程序 PAGEREF _Toc h 13實(shí)驗(yàn)六 利用VbScript語(yǔ)言制作一個(gè)計(jì)算矩陣乘法程序 PAG

2、EREF _Toc h 18實(shí)驗(yàn)七 制作一個(gè)向EXCEL輸出表格的程序 PAGEREF _Toc h 23實(shí)驗(yàn)八 利用JavaScript語(yǔ)言制作變色網(wǎng)頁(yè) PAGEREF _Toc h 30實(shí)驗(yàn)九 利用JavaScript語(yǔ)言搜索水仙花數(shù) PAGEREF _Toc h 34實(shí)驗(yàn)十 利用JavaScript語(yǔ)言設(shè)計(jì)一個(gè)表達(dá)式計(jì)算的程序 PAGEREF _Toc h 37實(shí)驗(yàn)十一 設(shè)計(jì)一個(gè)解一元二次方程的程序 PAGEREF _Toc h 39實(shí)驗(yàn)十二 利用JavaScript語(yǔ)言設(shè)計(jì)一個(gè)簡(jiǎn)單計(jì)算器 PAGEREF _Toc h 42實(shí)驗(yàn)十三 利用JavaScript語(yǔ)言設(shè)計(jì)一個(gè)在線(xiàn)考試程序 PA

3、GEREF _Toc h 47實(shí)驗(yàn)十四 設(shè)計(jì)一個(gè)圖片顯示特效程序 PAGEREF _Toc h 52腳本語(yǔ)言與Web程序開(kāi)發(fā)實(shí)驗(yàn)指導(dǎo)書(shū)實(shí)驗(yàn)一 熟悉HTML語(yǔ)言基本結(jié)構(gòu)一、實(shí)驗(yàn)?zāi)康呐c任務(wù)學(xué)生通過(guò)該實(shí)驗(yàn)熟悉HTML語(yǔ)言的基本使用方法，進(jìn)一步體會(huì)瀏覽器解釋執(zhí)行HTML的原理，為以后高級(jí)網(wǎng)絡(luò)編程打下扎實(shí)的基礎(chǔ)。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果，體會(huì)并掌握HTML語(yǔ)言的基本操作和文件結(jié)構(gòu).2利用記事本編輯一個(gè)頁(yè)面文件名為shiyan1.htm，要求在標(biāo)題欄中顯示“這是我的第一個(gè)試驗(yàn)”，頁(yè)面中顯示若干段文字，字體顏色為紅色，頁(yè)面背景為黃色，文字不可選擇，不可復(fù)制。3

4、利用超級(jí)鏈接制作一本電子書(shū)籍，要求有主頁(yè)，包括：作者，書(shū)籍簡(jiǎn)介和各章鏈接，每章獨(dú)立成文件，并有上一章，目錄，下一章等鏈接。4主頁(yè)布局合理、新穎，使人賞心悅目。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2利用記事本編輯一個(gè)頁(yè)面文件名為shiyan1.htm，要求在標(biāo)題欄中顯示“這是我的第一個(gè)試驗(yàn)”，頁(yè)面中顯示若干段文字，字體顏色為紅色，頁(yè)面背景為黃色，文字不可選擇，不可復(fù)制。3利用超級(jí)鏈接制作一本電子書(shū)籍，要求有主頁(yè)，包括：作者，書(shū)籍簡(jiǎn)介和各章鏈接，每章獨(dú)立成文件，并有上一章，目錄，下一章等鏈接。五、實(shí)驗(yàn)步驟1打開(kāi)記事本，單擊 文件菜

5、單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：shiyan1.htm，注意必須輸入擴(kuò)展名。2按下列提示編寫(xiě)HTML代碼，下面是參照代碼:主體結(jié)構(gòu)如下：這里輸入標(biāo)題欄內(nèi)容這里輸入頁(yè)面中的內(nèi)容的屬性及事件：oncontextmenu事件：鼠標(biāo)單擊右鍵時(shí)，頁(yè)面會(huì)彈出菜單，將激發(fā)該事件。但往往我們不希望用戶(hù)通過(guò)彈出菜單進(jìn)行相關(guān)的操作，很簡(jiǎn)單，屏蔽右鍵菜單的方法為：oncontextmenu=return false onselectstart事件：顯示在頁(yè)面中的文字，用戶(hù)可以通過(guò)按鼠標(biāo)左鍵并拖來(lái)選中，此時(shí)該事件將被激發(fā)。如果不想讓自己的文字

6、被選中，可以用以下方法屏蔽該事件：onselectstart=return falseoncopy事件：用戶(hù)按下CTRL+C鍵或執(zhí)行菜單中的復(fù)制命令時(shí)，該事件將被激發(fā)，如果不想自己的頁(yè)面內(nèi)容被別人輕易復(fù)制，可以用以下方法屏蔽該事件：oncopy=return falsebgcolor屬性用于設(shè)置頁(yè)面背景顏色，可以取RGB格式的顏色值或顏色常量值。text屬性用于設(shè)置頁(yè)面中文字的顏色，取值參考背景色。頁(yè)面中的段落可使用標(biāo)記符。3輸入完畢后單擊保存命令，保存文件。找到該文件后雙擊，在瀏覽器中觀(guān)察效果，如果需要修改，可直接在記事本中修改源文件，修改后保存，在瀏覽器中按F5或執(zhí)行刷新菜單命令，即可觀(guān)察

7、新效果。4文件調(diào)試完畢后，按剛才的操作順序完成實(shí)驗(yàn)的第二部分，按下列提示編寫(xiě)HTML代碼，下面是參照代碼；主頁(yè)結(jié)構(gòu)如下：這里輸入標(biāo)題欄內(nèi)容這里寫(xiě)書(shū)籍的名稱(chēng)這里寫(xiě)作者姓名及書(shū)籍簡(jiǎn)介第一章 第二章注：表示一個(gè)空格。各章文件結(jié)構(gòu)如下：這里輸入標(biāo)題欄內(nèi)容這里寫(xiě)章節(jié)的名稱(chēng)這里寫(xiě)本章第一段具體內(nèi)容上一章 返回目錄 下一章六、注意事項(xiàng)1觀(guān)察哪些標(biāo)記符必須成對(duì)出現(xiàn)，哪些可以不寫(xiě)結(jié)束標(biāo)記符；2改變各種不同的屬性，觀(guān)察效果變化。實(shí)驗(yàn)二 熟悉HTML語(yǔ)言圖像、表格和表單一、實(shí)驗(yàn)?zāi)康呐c任務(wù)學(xué)生通過(guò)該實(shí)驗(yàn)熟悉HTML語(yǔ)言的圖像、表格和表單的基本使用方法，進(jìn)一步體會(huì)瀏覽器解釋執(zhí)行HTML的原理，為以后高級(jí)網(wǎng)絡(luò)編程打下扎實(shí)

8、的基礎(chǔ)。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。2利用記事本編輯一個(gè)頁(yè)面文件名為shiyan2.htm，要求主頁(yè)制作的效果應(yīng)包括：頁(yè)面背景、靜態(tài)圖象、動(dòng)態(tài)圖象、表格、表單等。3主頁(yè)布局合理、新穎，使人賞心悅目。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2利用記事本編輯一個(gè)頁(yè)面文件名為shiyan2.htm，要求主頁(yè)制作的效果應(yīng)包括：頁(yè)面背景、靜態(tài)圖象、動(dòng)態(tài)圖象、表格、表單等。3規(guī)劃好頁(yè)面的布局，如何合理安排各種圖像和表單元素，以及選擇怎樣的配色方案，每位同學(xué)可以自由發(fā)揮。五、實(shí)驗(yàn)步驟1打開(kāi)記事本，單

9、擊 文件菜單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：shiyan2.htm，注意必須輸入擴(kuò)展名。2按照自己設(shè)計(jì)的頁(yè)面結(jié)構(gòu)制作頁(yè)面。提示：利用無(wú)邊框表格格式化頁(yè)面布局。3下面代碼為主頁(yè)參考代碼：電腦跳蚤市場(chǎng) 電腦跳蚤市場(chǎng) 主頁(yè) | 臺(tái)式機(jī) | 筆記本 | 顯示器 | 主板 | CPU | 其它 在此顯示商品信息 供貨信息 求購(gòu)信息 信息查詢(xún) 問(wèn)題解答 投訴 管理員 Copyright 2008 電腦破爛王版權(quán)所有. 主頁(yè)界面如圖：4依次設(shè)計(jì)相關(guān)聯(lián)接文件。六、注意事項(xiàng)1觀(guān)察哪些標(biāo)記符必須成對(duì)出現(xiàn)，哪些可以不寫(xiě)結(jié)束標(biāo)記符；2改變各種不

10、同的屬性，觀(guān)察效果變化。實(shí)驗(yàn)三 熟悉HTML多窗口、多媒體、CSS 一、實(shí)驗(yàn)?zāi)康呐c任務(wù)學(xué)生通過(guò)該實(shí)驗(yàn)熟悉HTML語(yǔ)言的多窗口、多媒體和CSS的基本使用方法，進(jìn)一步體會(huì)HTML在實(shí)際中的應(yīng)用，為以后高級(jí)網(wǎng)絡(luò)編程打下扎實(shí)的基礎(chǔ)。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。2利用記事本編輯一個(gè)頁(yè)面文件名為shiyan3.htm，利用記事本編輯一個(gè)頁(yè)面文件名為shiyan3.htm，要求主頁(yè)制作的效果應(yīng)包括：整體布局用多窗口頁(yè)面，頁(yè)面中包含多媒體元素：視頻、背景音樂(lè)、FLASH動(dòng)畫(huà)，并使用CSS控制效果。3主頁(yè)布局合理、新穎，使人賞心悅目。三、實(shí)驗(yàn)設(shè)備 微機(jī)+window

11、s9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2利用記事本編輯一個(gè)頁(yè)面文件名為shiyan3.htm，要求主頁(yè)制作的效果應(yīng)包括：整體布局用多窗口頁(yè)面，頁(yè)面中包含多媒體元素：視頻、背景音樂(lè)、FLASH動(dòng)畫(huà)，并使用CSS控制效果等。五、實(shí)驗(yàn)步驟1規(guī)劃并建立頁(yè)面中使用的層疊樣式表文件，可命名如Mystyle.css。2打開(kāi)記事本，單擊 文件菜單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：shiyan3.htm，注意必須輸入擴(kuò)展名。2在文件中引入Mystyle.css，規(guī)劃好頁(yè)面的布局，如何合理安排各種元素，以及選

12、擇怎樣的配色方案，每位同學(xué)、可以自由發(fā)揮。六、注意事項(xiàng)1視頻播放、背景音樂(lè)和動(dòng)畫(huà)的屬性設(shè)置；2改變各種不同css屬性，觀(guān)察效果變化；3多窗口布局的設(shè)計(jì)應(yīng)有適當(dāng)?shù)谋壤?。?shí)驗(yàn)四 利用VbScript語(yǔ)言制作一個(gè)猜數(shù)游戲一、實(shí)驗(yàn)?zāi)康呐c任務(wù)熟悉VbScript語(yǔ)言的使用方法，掌握VbScript的三種基本控制結(jié)構(gòu)。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。2頁(yè)面中先顯示一個(gè)按鈕，上面文字為“單擊開(kāi)始猜數(shù)游戲”。要求：由計(jì)算機(jī)隨機(jī)產(chǎn)生一個(gè)1-100的整數(shù)，用戶(hù)單擊按鈕后，提示用戶(hù)輸入其所猜數(shù)字，10次機(jī)會(huì)，如果猜中顯示猜中及次數(shù)，否則提示猜大了或小了，10次不中則顯示該數(shù)

13、及失敗信息。3功能完整，有簡(jiǎn)單的錯(cuò)誤檢查處理。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2頁(yè)面中先顯示一個(gè)按鈕，上面文字為“單擊開(kāi)始猜數(shù)游戲”。要求：由計(jì)算機(jī)隨機(jī)產(chǎn)生一個(gè)1-100的整數(shù)，用戶(hù)單擊按鈕后，提示用戶(hù)輸入其所猜數(shù)字，10次機(jī)會(huì)，如果猜中顯示猜中及次數(shù)，否則提示猜大了或小了，10次不中則顯示該數(shù)及失敗信息。要有錯(cuò)誤處理。五、實(shí)驗(yàn)步驟1打開(kāi)記事本，單擊 文件菜單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：caishu.htm，注意必須輸入擴(kuò)展名。2在頁(yè)面中放入一個(gè)

14、按鈕，具體代碼為和界面如下：3按下列提示編寫(xiě)HTML代碼，下面是參照代碼:猜數(shù)游戲Dim iNum 猜數(shù)的次數(shù)Dim intTarget 計(jì)算機(jī)隨機(jī)生成的數(shù)Dim blnOk 您猜的數(shù)Dim intUser 您猜的數(shù)Sub CmdStart_OnClick Randomize 初始化隨機(jī)數(shù)生成器，該生成器具有基于系統(tǒng)計(jì)時(shí)器的種子。 iTarget =cint(rnd(1)*100+1) iNum=0 blnOk=False Do while (not blnOk) and iNUm10 then 提示失敗 blnOk=True ElseIf intUseriTarget Then 提示猜的太大

15、及剩余次數(shù) ElseIf intUseriTarget Then 提示猜的太小及剩余次數(shù) End If End If loop End sub六、注意事項(xiàng)1先畫(huà)出程序流程圖，搞清楚程序控制結(jié)構(gòu)；2主體控制完成后，可以增加一些個(gè)性因素。實(shí)驗(yàn)五 利用VbScript語(yǔ)言制作一個(gè)小學(xué)生加法測(cè)試程序一、實(shí)驗(yàn)?zāi)康呐c任務(wù)熟悉VbScript語(yǔ)言的使用方法，掌握VbScript的過(guò)程與document對(duì)象的使用。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。2頁(yè)面中隨機(jī)產(chǎn)生10道10以?xún)?nèi)的整數(shù)加法題，有用戶(hù)輸入答案，并通過(guò)單擊判斷按鈕，由計(jì)算機(jī)給出成績(jī)，并在正確的題目后顯示對(duì)勾，

16、錯(cuò)誤題目后顯示叉。要求：界面活潑生動(dòng)，符合小學(xué)生心理，可以反復(fù)出題測(cè)試，并能通過(guò)簡(jiǎn)單修改程序控制隨機(jī)數(shù)大小，如可以出10以?xún)?nèi)的加法等。3功能完整，有簡(jiǎn)單的錯(cuò)誤檢查處理。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2頁(yè)面中隨機(jī)產(chǎn)生10道10以?xún)?nèi)的整數(shù)加法題，有用戶(hù)輸入答案，并通過(guò)單擊判斷按鈕，由計(jì)算機(jī)給出成績(jī)，并在正確的題目后顯示對(duì)勾，錯(cuò)誤題目后顯示叉。要求：界面活潑生動(dòng)，符合小學(xué)生心理，可以反復(fù)出題測(cè)試，并能通過(guò)簡(jiǎn)單修改程序控制隨機(jī)數(shù)大小，如可以出10以?xún)?nèi)的加法等。要有錯(cuò)誤處理。五、實(shí)驗(yàn)步驟準(zhǔn)備：先利用繪圖軟件制作幾幅圖片，包括兩個(gè)放

17、在按鈕上的120*25大小的圖片，一個(gè)是判斷對(duì)錯(cuò)（panduan.gif），另一個(gè)是重新出題（chuti.gif）；再準(zhǔn)備三張190*120的圖片一張用來(lái)在出完題目后，提示試試看（start.gif），第二張和第三張分別在得分80以上（ok.gif）及不足80分（jiayou.gif）時(shí)顯示；最后準(zhǔn)備三張大小為20*20的圖片分別在判斷對(duì)錯(cuò)時(shí)，正確的題目后顯示一個(gè)對(duì)勾（zhengque.gif），錯(cuò)誤時(shí)顯示一個(gè)叉（cuowu.gif），初始狀態(tài)時(shí)每個(gè)題目后顯示圖片default.gif，實(shí)際上該圖片只是一個(gè)和背景顏色完全一樣，大小為20*20的圖片。1打開(kāi)記事本，單擊 文件菜單，選擇保存命令，

18、在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：test.htm，注意必須輸入擴(kuò)展名。2在頁(yè)面主體中先放一個(gè)，將所有內(nèi)容居中排列。3放一個(gè)表格，代碼如下：第一行表格為兩列合并并寫(xiě)上程序標(biāo)題，代碼如下： 小學(xué)生加法運(yùn)算測(cè)試（每題10分，共100分）第二行表格的第一列先放一個(gè)表單，id為form1，具體代碼如下：然后用腳本語(yǔ)言生成十行題目： !- Dim i For i=1 to 10 if i10 then document.write 0 & i & . else document.write i & . end if document.write+

19、document.write document.write= document.write document.write Next Call ct 調(diào)用出題過(guò)程 -4在表單中放入一個(gè)按鈕，具體代碼為：?jiǎn)螕粼摪粹o執(zhí)行過(guò)程py_click5第二行表格的第二列放一個(gè)表單，id為form2，具體代碼如下： 得分： 失分： 6在頁(yè)面的之間插入腳本，分別編寫(xiě)程序中的各個(gè)函數(shù)：第一個(gè)過(guò)程，隨機(jī)生成10道題目并顯示在頁(yè)面中 Sub ct()Sub ct() Dim i,tx(10),ty(10) 定義變量分別放置題目的被加數(shù)和加數(shù) const MAXNUM=10 定義被加數(shù)和加數(shù)的最大值 下面程序隨機(jī)生成題目

20、的被加數(shù)和加數(shù)，并放在數(shù)組中 For i=1 to 10 Randomize 初始化隨機(jī)數(shù)生成器，該生成器具有基于系統(tǒng)計(jì)時(shí)器的種子。 tx(i)=cint(rnd(1)*MAXNUM+1) Randomize 初始化隨機(jī)數(shù)生成器，該生成器具有基于系統(tǒng)計(jì)時(shí)器的種子。 ty(i)=cint(rnd(1)*MAXNUM+1) next 向頁(yè)面中的每個(gè)題目的被加數(shù)和加數(shù)文本框中寫(xiě)內(nèi)容 form1.x1.value=tx(1) form1.x10.value=tx(10) form1.y1.value=ty(1) form1.y10.value=ty(10)End sub第二個(gè)過(guò)程，重新出題 Sub c

21、ct_click()Sub cct_click()先將表單2中分?jǐn)?shù)設(shè)置為空 form2.dd.value= form2.df.value=先將表單1中各道題的答案設(shè)置為空 form1.z1.value= form1.z10.value=將表單1中各題目后表示正誤的圖片設(shè)置為開(kāi)始狀態(tài)form1.t1.src=default.gifform1.t10.src=default.gif將表單2中提示圖片設(shè)置為開(kāi)始狀態(tài) form2.img1.src=start.gif調(diào)用出題過(guò)程 call ct()End sub第三個(gè)過(guò)程，評(píng)閱題目 Sub py_click()Sub py_click() Dim bb

22、,bf bb=0 bf=0對(duì)每個(gè)題目判斷其是否答對(duì) if len(form1.z1.value)=0 or not IsNumeric(form1.z1.value) then 如果答案為空或不是數(shù)字 bf=bf+1 else if cint(form1.x1.value)+cint(form1.y1.value)=cint(form1.z1.value) then 如果題目答對(duì) bb=bb+1 else bf=bf+1 end if end if依次對(duì)10道題目進(jìn)行判斷 設(shè)置成績(jī) form2.dd.value=bb*10 form2.df.value=bf*10根據(jù)成績(jī)是否超過(guò)80分別顯示圖

23、片 if bb8 then form2.img1.src=ok.gif else form2.img1.src=jiayou.gif end ifEnd sub效果圖如下：六、注意事項(xiàng)1先畫(huà)出程序流程圖，搞清楚程序控制結(jié)構(gòu)；2主體控制完成后，可以增加一些個(gè)性因素；3考慮將加法改為加減混合或乘法，則程序如何修改？實(shí)驗(yàn)六 利用VbScript語(yǔ)言制作一個(gè)計(jì)算矩陣乘法程序一、實(shí)驗(yàn)?zāi)康呐c任務(wù)熟悉VbScript語(yǔ)言的使用方法，掌握VbScript的過(guò)程、函數(shù)與對(duì)象，進(jìn)一步學(xué)習(xí)通過(guò)document對(duì)象動(dòng)態(tài)生成頁(yè)面的方法。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。2程序可以

24、計(jì)算Cmn=AmsBsn，其中m、s、n通過(guò)頁(yè)面提示用戶(hù)輸入,用戶(hù)單擊確定后，在頁(yè)面中用文本框自動(dòng)生成Ams、Bsn和Cmn矩陣，由用戶(hù)輸入矩陣A、B的值，單擊計(jì)算，由計(jì)算機(jī)計(jì)算出結(jié)果寫(xiě)到矩陣C中。要求：界面布局合理，計(jì)算正確，有錯(cuò)誤處理。3功能完整，有簡(jiǎn)單的錯(cuò)誤檢查處理。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2程序可以計(jì)算Cmn=AmsBsn，其中m、s、n通過(guò)頁(yè)面提示用戶(hù)輸入,用戶(hù)單擊確定后，在頁(yè)面中用文本框自動(dòng)生成Ams、Bsn和Cmn矩陣，由用戶(hù)輸入矩陣A、B的值，單擊計(jì)算，由計(jì)算機(jī)計(jì)算出結(jié)果寫(xiě)到矩陣C中。要求：界面布局

25、合理，計(jì)算正確，有錯(cuò)誤處理。五、實(shí)驗(yàn)步驟1打開(kāi)記事本，單擊 文件菜單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：juzhencheng.htm，注意必須輸入擴(kuò)展名。2制作一個(gè)頁(yè)面，顯示Cmn=AmsBsn信息，要求用戶(hù)分別輸入m、s、n，然后再放置一個(gè)計(jì)算按鈕。具體代碼可參照如下結(jié)構(gòu)：矩陣乘法Cmn=AmsBsn請(qǐng)輸入m=請(qǐng)輸入s=請(qǐng)輸入n=3編輯腳本程序，參考程序：dim m,n,sSub ok_click() if IsNumeric(txtm.value) and cint(txtm.value)0 then m=txtm.v

26、alue else msgbox 必須輸入大于0的整數(shù)！,警告 exit sub end if if IsNumeric(txts.value) and cint(txts.value)0 then s=txts.value else msgbox 必須輸入大于0的整數(shù)！,警告 exit sub end if if IsNumeric(txtn.value) and cint(txtn.value)0 then n=txtn.value else msgbox 必須輸入大于0的整數(shù)！,警告 exit sub end if call juzhenshuru()end subsub juzhens

27、huru() document.write document.write & chr(13) document.write Sub jisuan_click() & chr(13) document.write msgbox sss & chr(13) document.write dim A(),B(),C() & chr(13) document.write m=txtm1.value & chr(13) document.write n=txtn1.value & chr(13) document.write s=txts1.value & chr(13) document.write

28、redim A(m,s) & chr(13) document.write redim B(s,n) & chr(13) document.write redim C(m,n) & chr(13) for i=1 to m for j=1 to s document.write A( & i & , & j & )=a & i & j & .value & chr(13) next next for i=1 to s for j=1 to n document.write B( & i & , & j & )=b & i & j & .value & chr(13) next next doc

29、ument.write For i = 1 To m & chr(13) document.write For j = 1 To n & chr(13) document.write C(i,j)=0 & chr(13) document.write For k = 1 To s & chr(13) document.write C(i,j) = C(i,j) + A(i,k) * B(k,j) & chr(13) document.write Next & chr(13) document.write Next & chr(13) document.write Next & chr(13)

30、for i=1 to m for j=1 to n document.write c & i & j & .value=C( & i & , & j & ) & chr(13) next next document.write End sub & chr(13) document.write document.write document.write A & m & & s & = for i=1 to m for j=1 to s document.write next document.write next document.write B & s & & n & = for i=1 to

31、 s for j=1 to n document.write next document.write next document.write document.write document.write document.write document.write C & m & & n & =A & m & & s & B & s & & n & = for i=1 to m for j=1 to n document.write next document.write next document.write & chr(13) document.write document.write doc

32、ument.write & chr(13) document.write end sub效果界面：六、注意事項(xiàng)1先畫(huà)出程序流程圖，搞清楚程序控制結(jié)構(gòu)；2該實(shí)驗(yàn)難點(diǎn)在動(dòng)態(tài)生成頁(yè)面過(guò)程sub juzhenshuru()，仔細(xì)分析例程，結(jié)合具體效果弄懂程序中代碼的含義.實(shí)驗(yàn)七 制作一個(gè)向EXCEL輸出表格的程序一、實(shí)驗(yàn)?zāi)康呐c任務(wù)熟悉VbScript語(yǔ)言的使用方法，掌握VbScript的過(guò)程、函數(shù)與對(duì)象，進(jìn)一步學(xué)習(xí)通過(guò)CreateObject(Excel.application)創(chuàng)建Excel對(duì)象。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。2程序可以將頁(yè)面中顯示的一個(gè)表

33、格輸出到EXCEL中。要求：界面布局合理，輸出正確，有錯(cuò)誤處理。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2程序可以將頁(yè)面中顯示的一個(gè)表格輸出到EXCEL中。要求：界面布局合理，輸出正確，有錯(cuò)誤處理。五、實(shí)驗(yàn)步驟1打開(kāi)記事本，單擊 文件菜單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：ToExcel.htm，注意必須輸入擴(kuò)展名。2制作一個(gè)頁(yè)面，顯示效果如下圖所示，按鈕代碼為：3編寫(xiě)按鈕事件：cmdOutput_onclick()以及為在EXCEL中輸出表格準(zhǔn)備的函數(shù)，這些函

34、數(shù)共有5個(gè)，直接在程序中使用，不需要做任何修改，5個(gè)函數(shù)源代碼如下：該函數(shù)用于調(diào)整單元格的寬度Function ExcelCellWidth(objExcel,cCol,fColWidth) cCol：需要調(diào)整的列 fColWidth：調(diào)整后的寬度 objExcel.Columns(cCol & : & cCol).ColumnWidth = fColWidth ExcelCellWidth=trueEnd Function該函數(shù)用于計(jì)算Excel中iColNum所對(duì)應(yīng)的列Function GetExcelCol(iColNum) iColNum：數(shù)值，如iColNum=13，表示求第13列所

35、對(duì)應(yīng)的字母，即返回M Dim sDataRowCol Dim iCol 先計(jì)算iColNum包含幾個(gè)26。因?yàn)榈?6列為Z，之后第27列為AA，AB等 iCol = iColNum 26 If iColNum Mod 26 = 0 Then iCol = iCol - 1 End If If iCol = 0 Then sDataRowCol = Chr(64 + iColNum) Else sDataRowCol = Chr(64 + iCol) If iColNum Mod 26 = 0 Then sDataRowCol = sDataRowCol & Z Else sDataRowCol

36、= sDataRowCol & Chr(64 + (iColNum Mod 26) End If End If GetExcelCol = sDataRowColEnd Function該函數(shù)用于將單元格sRowCol范圍內(nèi)的所有單元格邊框變成實(shí)線(xiàn)function AddEdgeLine(objExcel,sRowCol) xlNone=-4142 xlContinuous=1 xlDiagonalDown=5 xlDiagonalUp=6 xlEdgeLeft=7 xlEdgeTop=8 xlEdgeBottom=9 xlEdgeRight=10 xlInsideVertical=11 xl

37、InsideHorizontal=12 objExcel.Range(sRowCol).Select objExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone objExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone objExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous objExcel.Selection.Borders(xlEdgeTop).LineStyle = xlContinuous

38、objExcel.Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous objExcel.Selection.Borders(xlEdgeRight).LineStyle = xlContinuous objExcel.Selection.Borders(xlInsideVertical).LineStyle = xlContinuous objExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous AddEdgeLine=trueEnd Functio

39、n該函數(shù)用于將單元格sRowCol的四周加實(shí)線(xiàn)，不含內(nèi)部的線(xiàn)function ModifyEdge(objExcel,sRowCol) xlNone=-4142 xlContinuous=1 xlDiagonalDown=5 xlDiagonalUp=6 xlEdgeLeft=7 xlEdgeTop=8 xlEdgeBottom=9 xlEdgeRight=10 xlInsideVertical=11 xlInsideHorizontal=12 objExcel.Range(sRowCol).Select objExcel.Selection.Borders(xlDiagonalDown).L

40、ineStyle = xlNone objExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone objExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone objExcel.Selection.Borders(xlEdgeTop).LineStyle = xlNone objExcel.Selection.Borders(xlEdgeBottom).LineStyle = xlNone objExcel.Selection.Borders(xlEdgeRight).LineSty

41、le = xlNone objExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone objExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone objExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone objExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone objExcel.Selection.Borders(xlEdgeLef

42、t).LineStyle = xlContinuous objExcel.Selection.Borders(xlEdgeTop).LineStyle = xlContinuous objExcel.Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous objExcel.Selection.Borders(xlEdgeRight).LineStyle = xlContinuous objExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone ModifyEdge=t

43、rueEnd function最后編寫(xiě)按鈕事件cmdOutput_onclick()：sub cmdOutput_onclick()Dim ExcelSheetdim i,j,mdim l,fieldstring,recordstring,title1dim posdim colstrdim xlCenterdim ifdrawdim title(8),titlecolstr(8)Set ExcelSheet = CreateObject(Excel.application) x=4 ExcelSheet.Application.Visible = TrueExcelSheet.workboo

44、ks.Add設(shè)置列寬ifwidth=ExcelCellWidth(ExcelSheet,A,8)ifwidth=ExcelCellWidth(ExcelSheet,B,8)ifwidth=ExcelCellWidth(ExcelSheet,C,8)ifwidth=ExcelCellWidth(ExcelSheet,D,8)ifwidth=ExcelCellWidth(ExcelSheet,E,8)ifwidth=ExcelCellWidth(ExcelSheet,F,8)ifwidth=ExcelCellWidth(ExcelSheet,G,8)colstr=A1:G2ExcelSheet.R

45、ange(colstr).Select 選定前3行 ExcelSheet.Selection.Merge 將前3行的22列整個(gè)合并 ExcelSheet.Selection.HorizontalAlignment = -4108 ExcelSheet.Selection.VerticalAlignment = -4108 title1=網(wǎng)絡(luò)02級(jí)04-05第二學(xué)期成績(jī)表ExcelSheet.ActiveCell.FormulaR1C1 =title1 ExcelSheet.ActiveCell.Font.Name = 仿宋 ExcelSheet.ActiveCell.font.FontStyl

46、e = 加粗 ExcelSheet.ActiveCell.font.Size = 16 準(zhǔn)備表頭title(1)=學(xué)號(hào)titlecolstr(1)=A3:A4title(2)=姓名titlecolstr(2)=B3:B4title(3)=科目titlecolstr(3)=C3:G3title(4)=英語(yǔ)titlecolstr(4)=C4:C4title(5)=高數(shù)titlecolstr(5)=D4:D4title(6)=網(wǎng)絡(luò)系統(tǒng)titlecolstr(6)=E4:E4title(7)=軟件工程titlecolstr(7)=F4:F4title(8)=網(wǎng)絡(luò)編程titlecolstr(8)=G4:

47、G4for i=1 to 8ifdraw=ModifyEdge(ExcelSheet,titlecolstr(i)ExcelSheet.Range(titlecolstr(i).Select 選定前3行ExcelSheet.Selection.Merge ExcelSheet.Selection.HorizontalAlignment = -4108 ExcelSheet.Selection.VerticalAlignment = -4108 ExcelSheet.ActiveCell.FormulaR1C1 =title(i) ExcelSheet.ActiveCell.font.Size

48、= 9 next Str1=|張三|78|90|85|92|80| Str1=Str1 & |李四|70|87|75|82|88| Str1=Str1 & |王五|88|70|89|96|70| Str1=Str1 & |趙大|65|84|73|86|85| pos=instr(Str1,|) temp=left(Str1,pos-1) for j=1 to x for i=1 to 7 pos=instr(Str1,|) if pos0 then temp=left(Str1,pos-1) ExcelSheet.ActiveSheet.Cells(4+j,i).Value =temp Str

49、1=mid(Str1,pos+1) m=GetExcelCol(i) ExcelSheet.Range(m&cstr(4+j)&:&m&cstr(4+j).Select ExcelSheet.Selection.font.Size = 9 ExcelSheet.Selection.HorizontalAlignment = -4108 ExcelSheet.Selection.VerticalAlignment = -4108 end if next ifdraw=AddEdgeLine(ExcelSheet,A & cstr(4+j)&:G &cstr(4+j) nextend sub單擊按

50、鈕后將自動(dòng)彈出一個(gè)EXCEL窗口并將表格內(nèi)容輸出到窗口中。六、注意事項(xiàng)1仔細(xì)研究5個(gè)通用函數(shù)，理解其功能和用法；2本次實(shí)驗(yàn)內(nèi)容有很強(qiáng)的實(shí)際意義，應(yīng)掌握其使用方法；3要使程序能夠正常運(yùn)行，需要對(duì)瀏覽器進(jìn)行設(shè)置。打開(kāi)瀏覽器的Internet 選項(xiàng)窗口，選擇 安全選項(xiàng)卡，單擊自定義級(jí)別按鈕，保證您的設(shè)置如下圖所示即可。實(shí)驗(yàn)八 利用JavaScript語(yǔ)言制作變色網(wǎng)頁(yè)一、實(shí)驗(yàn)?zāi)康呐c任務(wù)學(xué)生通過(guò)該實(shí)驗(yàn)熟悉JavaScript語(yǔ)言的使用方法，掌握J(rèn)avaScript的事件處理過(guò)程，學(xué)習(xí)掌握J(rèn)avaScript中函數(shù)和過(guò)程的使用方法。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。

51、2該網(wǎng)頁(yè)上有各種顏色的單選鈕，當(dāng)用戶(hù)選擇某種顏色的單選鈕，網(wǎng)頁(yè)的背景顏色就變成了用戶(hù)選擇的顏色。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2該網(wǎng)頁(yè)上有各種顏色的單選鈕，當(dāng)用戶(hù)選擇某種顏色的單選鈕，網(wǎng)頁(yè)的背景顏色就變成了用戶(hù)選擇的顏色。五、實(shí)驗(yàn)步驟1打開(kāi)記事本，單擊 文件菜單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：ChangeColor.htm，注意必須輸入擴(kuò)展名。2制作一個(gè)頁(yè)面，顯示效果如下圖所示：程序代碼如下：變色function changebg(Color) d

52、ocument.bgColor = Colorend function 請(qǐng)選擇適合自己觀(guān)看的背景色 3在瀏覽器中調(diào)試JavaScript代碼，使得實(shí)現(xiàn)正確的效果。六、注意事項(xiàng)1程序中使用CSS來(lái)改變按鈕顏色，注意體會(huì)；2按鈕單擊事件均調(diào)用相同函數(shù)，但傳遞參數(shù)不同。實(shí)驗(yàn)九 利用JavaScript語(yǔ)言搜索水仙花數(shù)一、實(shí)驗(yàn)?zāi)康呐c任務(wù)熟悉JavaScript語(yǔ)言的使用方法，掌握J(rèn)avaScript的文檔對(duì)象的使用，學(xué)習(xí)掌握J(rèn)avaScript中自定義函數(shù)和過(guò)程的使用方法二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。2由用戶(hù)輸入搜索范圍，用兩個(gè)文本框即可，然后單擊搜索，自動(dòng)

53、找出范圍內(nèi)的水仙花數(shù)（水仙花數(shù)就是其本身等于其各位數(shù)的立方和）。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2由用戶(hù)輸入搜索范圍，用兩個(gè)文本框即可，然后單擊搜索，自動(dòng)找出范圍內(nèi)的水仙花數(shù)（水仙花數(shù)就是其本身等于其各位數(shù)的立方和）。五、實(shí)驗(yàn)步驟1打開(kāi)記事本，單擊 文件菜單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：shuixianhua.htm，注意必須輸入擴(kuò)展名。2制作一個(gè)頁(yè)面，顯示效果如下圖所示：其中兩個(gè)文本框代碼如下： 計(jì)算按鈕代碼如下： 文本區(qū)代碼如下： 所有元素都放

54、入一個(gè)name等于“f”的表單中：3編輯三個(gè)函數(shù)，可參考如下代碼：/該函數(shù)返回x的立方function lifang(x) return x*x*x;/該函數(shù)判斷n是否為水仙花數(shù)function Find(n) var i,j,k; k=n%10;/個(gè)位 j=(n-k)/10)%10;/十位 i=(n-j*10-k)/100)%10;/百位 if (lifang(i)+lifang(j)+lifang(k)=n) return Yes else return No;/該函數(shù)先驗(yàn)證輸入的范圍是否正確，然后循環(huán)調(diào)用函數(shù)Find，并輸出結(jié)果。function compute() inum=0; do

55、cument.f.result.value=; if (f.iMax.value=1000 | f.iMin.value100) alert(范圍不符合要求，請(qǐng)重新輸入！) else for(m=document.f.iMin.value;m=document.f.iMax.value;m+) bFound=Find(m); if (bFound=Yes) inum+; document.f.result.value =document.f.result.value +n + 找到第 + inum + 個(gè)數(shù)： + m; 六、注意事項(xiàng)1必須判斷表示范圍的數(shù)是否為3位數(shù)，否則程序出錯(cuò)；2例程中沒(méi)有

56、加入第一個(gè)值必須小于第二個(gè)值的驗(yàn)證，可自己加入；3反復(fù)使用的代碼應(yīng)該設(shè)為函數(shù)或過(guò)程，如function lifang(x)。實(shí)驗(yàn)十 利用JavaScript語(yǔ)言設(shè)計(jì)一個(gè)表達(dá)式計(jì)算的程序一、實(shí)驗(yàn)?zāi)康呐c任務(wù)熟悉JavaScript語(yǔ)言的使用方法，掌握J(rèn)avaScript的事件處理過(guò)程，學(xué)習(xí)掌握J(rèn)avaScript中eval函數(shù)的使用方法。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。2由用戶(hù)輸入一個(gè)數(shù)字表達(dá)式，然后單擊計(jì)算按鈕，自動(dòng)計(jì)算出表達(dá)式結(jié)果。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2由用戶(hù)輸入一個(gè)數(shù)

57、字表達(dá)式，然后單擊計(jì)算按鈕，自動(dòng)計(jì)算出表達(dá)式結(jié)果。五、實(shí)驗(yàn)步驟1打開(kāi)記事本，單擊 文件菜單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：biaodashi.htm，注意必須輸入擴(kuò)展名。2制作一個(gè)頁(yè)面，顯示效果如下圖所示：表達(dá)式文本框代碼如下： 計(jì)算按鈕代碼如下： 結(jié)果文本框代碼如下： 3compute函數(shù)內(nèi)容如下：function compute(f) if (confirm(確定要計(jì)算嗎?) f.result.value = eval(f.expr.value) else alert(請(qǐng)返回重新輸入！)六、注意事項(xiàng)1反復(fù)輸入各種表達(dá)

58、式，考察eval函數(shù)的作用；2本例中特意加入兩個(gè)函數(shù)confirm 和alert，注意體會(huì)其用法。實(shí)驗(yàn)十一 設(shè)計(jì)一個(gè)解一元二次方程的程序一、實(shí)驗(yàn)?zāi)康呐c任務(wù)熟悉JavaScript語(yǔ)言的使用方法，掌握J(rèn)avaScript的文檔對(duì)象的使用，學(xué)習(xí)掌握J(rèn)avaScript中Math對(duì)象中的數(shù)學(xué)函數(shù)的使用方法。二、實(shí)驗(yàn)基本原理與要求1利用記事本編輯HTML頁(yè)面，并在瀏覽器中觀(guān)察效果。2由用戶(hù)輸入確定一個(gè)一元二次方程，然后單擊計(jì)算按鈕，自動(dòng)計(jì)算出方程的解。三、實(shí)驗(yàn)設(shè)備 微機(jī)+windows9x/200 x+IE瀏覽器+記事本四、實(shí)驗(yàn)內(nèi)容1使用記事本編輯頁(yè)面。2由用戶(hù)輸入確定一個(gè)一元二次方程，然后單擊計(jì)算按

59、鈕，自動(dòng)計(jì)算出方程的解。五、實(shí)驗(yàn)步驟1打開(kāi)記事本，單擊 文件菜單，選擇保存命令，在打開(kāi)的保存對(duì)話(huà)框中，先選擇要保存的文件夾，保證保存類(lèi)型選擇“所有文件”，在文件名中輸入：jiefangch.htm，注意必須輸入擴(kuò)展名。2制作一個(gè)頁(yè)面，顯示效果如下圖所示：三個(gè)系數(shù)文本框的代碼分別為：求解按鈕代碼為： 輸出結(jié)果的三個(gè)文本框代碼為： 3解方程函數(shù)solve_quad()代碼為：function solve_quad(form) if (form.inputbox1.value= | form.inputbox1= | form.inputbox1=0) alert(二次項(xiàng)系數(shù)不能為0或?yàn)榭眨?; r

60、eturn; var a=parseFloat(form.inputbox1.value); var b=parseFloat(form.inputbox2.value); var c=parseFloat(form.inputbox3.value); var d=b*b-(4*a*c); if (d0) var e=Math.sqrt(-d); var neg=true; else var e=Math.sqrt(d); var neg=false; var f=-b/(2*a); var g=e/(2*a); if (neg) form.outputbox1.value=f+g+i; fo