《腳本語言》實驗指導(dǎo)書

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

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

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

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

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

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

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

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

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

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

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

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

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

14、按鈕，具體代碼為和界面如下：3按下列提示編寫HTML代碼，下面是參照代碼:猜數(shù)游戲Dim iNum 猜數(shù)的次數(shù)Dim intTarget 計算機隨機生成的數(shù)Dim blnOk 您猜的數(shù)Dim intUser 您猜的數(shù)Sub CmdStart_OnClick Randomize 初始化隨機數(shù)生成器，該生成器具有基于系統(tǒng)計時器的種子。 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六、注意事項1先畫出程序流程圖，搞清楚程序控制結(jié)構(gòu)；2主體控制完成后，可以增加一些個性因素。實驗五 利用VbScript語言制作一個小學(xué)生加法測試程序一、實驗?zāi)康呐c任務(wù)熟悉VbScript語言的使用方法，掌握VbScript的過程與document對象的使用。二、實驗基本原理與要求1利用記事本編輯HTML頁面，并在瀏覽器中觀察效果。2頁面中隨機產(chǎn)生10道10以內(nèi)的整數(shù)加法題，有用戶輸入答案，并通過單擊判斷按鈕，由計算機給出成績，并在正確的題目后顯示對勾，

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

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

18、在打開的保存對話框中，先選擇要保存的文件夾，保證保存類型選擇“所有文件”，在文件名中輸入：test.htm，注意必須輸入擴展名。2在頁面主體中先放一個，將所有內(nèi)容居中排列。3放一個表格，代碼如下：第一行表格為兩列合并并寫上程序標題，代碼如下： 小學(xué)生加法運算測試（每題10分，共100分）第二行表格的第一列先放一個表單，id為form1，具體代碼如下：然后用腳本語言生成十行題目： !- 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)用出題過程 -4在表單中放入一個按鈕，具體代碼為：單擊該按鈕執(zhí)行過程py_click5第二行表格的第二列放一個表單，id為form2，具體代碼如下： 得分： 失分： 6在頁面的之間插入腳本，分別編寫程序中的各個函數(shù)：第一個過程，隨機生成10道題目并顯示在頁面中 Sub ct()Sub ct() Dim i,tx(10),ty(10) 定義變量分別放置題目的被加數(shù)和加數(shù) const MAXNUM=10 定義被加數(shù)和加數(shù)的最大值 下面程序隨機生成題目

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

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

22、,bf bb=0 bf=0對每個題目判斷其是否答對 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 如果題目答對 bb=bb+1 else bf=bf+1 end if end if依次對10道題目進行判斷 設(shè)置成績 form2.dd.value=bb*10 form2.df.value=bf*10根據(jù)成績是否超過80分別顯示圖

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

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

25、合理，計算正確，有錯誤處理。五、實驗步驟1打開記事本，單擊 文件菜單，選擇保存命令，在打開的保存對話框中，先選擇要保存的文件夾，保證保存類型選擇“所有文件”，在文件名中輸入：juzhencheng.htm，注意必須輸入擴展名。2制作一個頁面，顯示Cmn=AmsBsn信息，要求用戶分別輸入m、s、n，然后再放置一個計算按鈕。具體代碼可參照如下結(jié)構(gòu)：矩陣乘法Cmn=AmsBsn請輸入m=請輸入s=請輸入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效果界面：六、注意事項1先畫出程序流程圖，搞清楚程序控制結(jié)構(gòu)；2該實驗難點在動態(tài)生成頁面過程sub juzhenshuru()，仔細分析例程，結(jié)合具體效果弄懂程序中代碼的含義.實驗七 制作一個向EXCEL輸出表格的程序一、實驗?zāi)康呐c任務(wù)熟悉VbScript語言的使用方法，掌握VbScript的過程、函數(shù)與對象，進一步學(xué)習(xí)通過CreateObject(Excel.application)創(chuàng)建Excel對象。二、實驗基本原理與要求1利用記事本編輯HTML頁面，并在瀏覽器中觀察效果。2程序可以將頁面中顯示的一個表

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

34、數(shù)共有5個，直接在程序中使用，不需要做任何修改，5個函數(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ù)用于計算Excel中iColNum所對應(yīng)的列Function GetExcelCol(iColNum) iColNum：數(shù)值，如iColNum=13，表示求第13列所

35、對應(yīng)的字母，即返回M Dim sDataRowCol Dim iCol 先計算iColNum包含幾個26。因為第26列為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)的所有單元格邊框變成實線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的四周加實線，不含內(nèi)部的線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最后編寫按鈕事件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列整個合并 ExcelSheet.Selection.HorizontalAlignment = -4108 ExcelSheet.Selection.VerticalAlignment = -4108 title1=網(wǎng)絡(luò)02級04-05第二學(xué)期成績表ExcelSheet.ActiveCell.FormulaR1C1 =title1 ExcelSheet.ActiveCell.Font.Name = 仿宋 ExcelSheet.ActiveCell.font.FontStyl

46、e = 加粗 ExcelSheet.ActiveCell.font.Size = 16 準備表頭title(1)=學(xué)號titlecolstr(1)=A3:A4title(2)=姓名titlecolstr(2)=B3:B4title(3)=科目titlecolstr(3)=C3:G3title(4)=英語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、鈕后將自動彈出一個EXCEL窗口并將表格內(nèi)容輸出到窗口中。六、注意事項1仔細研究5個通用函數(shù)，理解其功能和用法；2本次實驗內(nèi)容有很強的實際意義，應(yīng)掌握其使用方法；3要使程序能夠正常運行，需要對瀏覽器進行設(shè)置。打開瀏覽器的Internet 選項窗口，選擇 安全選項卡，單擊自定義級別按鈕，保證您的設(shè)置如下圖所示即可。實驗八 利用JavaScript語言制作變色網(wǎng)頁一、實驗?zāi)康呐c任務(wù)學(xué)生通過該實驗熟悉JavaScript語言的使用方法，掌握JavaScript的事件處理過程，學(xué)習(xí)掌握JavaScript中函數(shù)和過程的使用方法。二、實驗基本原理與要求1利用記事本編輯HTML頁面，并在瀏覽器中觀察效果。

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

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

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

54、入一個name等于“f”的表單中：3編輯三個函數(shù)，可參考如下代碼：/該函數(shù)返回x的立方function lifang(x) return x*x*x;/該函數(shù)判斷n是否為水仙花數(shù)function Find(n) var i,j,k; k=n%10;/個位 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ù)先驗證輸入的范圍是否正確，然后循環(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(范圍不符合要求，請重新輸入！) 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 + 個數(shù)： + m; 六、注意事項1必須判斷表示范圍的數(shù)是否為3位數(shù)，否則程序出錯；2例程中沒有

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

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

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

59、鈕，自動計算出方程的解。五、實驗步驟1打開記事本，單擊 文件菜單，選擇保存命令，在打開的保存對話框中，先選擇要保存的文件夾，保證保存類型選擇“所有文件”，在文件名中輸入：jiefangch.htm，注意必須輸入擴展名。2制作一個頁面，顯示效果如下圖所示：三個系數(shù)文本框的代碼分別為：求解按鈕代碼為： 輸出結(jié)果的三個文本框代碼為： 3解方程函數(shù)solve_quad()代碼為：function solve_quad(form) if (form.inputbox1.value= | form.inputbox1= | form.inputbox1=0) alert(二次項系數(shù)不能為0或為空！); 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