《脚本语言》实验指导书

1、精选优质文档倾情为你奉上精选优质文档倾情为你奉上专心专注专业专心专注专业精选优质文档倾情为你奉上专心专注专业目 录 TOC o 1-3 u 实验一 熟悉HTML语言基本结构 PAGEREF _Toc h 2实验二 熟悉HTML语言图像、表格和表单 PAGEREF _Toc h 5实验三 熟悉HTML多窗口、多媒体、CSS PAGEREF _Toc h 10实验四 利用VbScript语言制作一个猜数游戏 PAGEREF _Toc h 11实验五 利用VbScript语言制作一个小学生加法测试程序 PAGEREF _Toc h 13实验六 利用VbScript语言制作一个计算矩阵乘法程序 PAG

2、EREF _Toc h 18实验七 制作一个向EXCEL输出表格的程序 PAGEREF _Toc h 23实验八 利用JavaScript语言制作变色网页 PAGEREF _Toc h 30实验九 利用JavaScript语言搜索水仙花数 PAGEREF _Toc h 34实验十 利用JavaScript语言设计一个表达式计算的程序 PAGEREF _Toc h 37实验十一 设计一个解一元二次方程的程序 PAGEREF _Toc h 39实验十二 利用JavaScript语言设计一个简单计算器 PAGEREF _Toc h 42实验十三 利用JavaScript语言设计一个在线考试程序 PA

3、GEREF _Toc h 47实验十四 设计一个图片显示特效程序 PAGEREF _Toc h 52脚本语言与Web程序开发实验指导书实验一 熟悉HTML语言基本结构一、实验目的与任务学生通过该实验熟悉HTML语言的基本使用方法，进一步体会浏览器解释执行HTML的原理，为以后高级网络编程打下扎实的基础。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果，体会并掌握HTML语言的基本操作和文件结构.2利用记事本编辑一个页面文件名为shiyan1.htm，要求在标题栏中显示“这是我的第一个试验”，页面中显示若干段文字，字体颜色为红色，页面背景为黄色，文字不可选择，不可复制。3

4、利用超级链接制作一本电子书籍，要求有主页，包括：作者，书籍简介和各章链接，每章独立成文件，并有上一章，目录，下一章等链接。4主页布局合理、新颖，使人赏心悦目。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2利用记事本编辑一个页面文件名为shiyan1.htm，要求在标题栏中显示“这是我的第一个试验”，页面中显示若干段文字，字体颜色为红色，页面背景为黄色，文字不可选择，不可复制。3利用超级链接制作一本电子书籍，要求有主页，包括：作者，书籍简介和各章链接，每章独立成文件，并有上一章，目录，下一章等链接。五、实验步骤1打开记事本，单击 文件菜

5、单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：shiyan1.htm，注意必须输入扩展名。2按下列提示编写HTML代码，下面是参照代码:主体结构如下：这里输入标题栏内容这里输入页面中的内容的属性及事件：oncontextmenu事件：鼠标单击右键时，页面会弹出菜单，将激发该事件。但往往我们不希望用户通过弹出菜单进行相关的操作，很简单，屏蔽右键菜单的方法为：oncontextmenu=return false onselectstart事件：显示在页面中的文字，用户可以通过按鼠标左键并拖来选中，此时该事件将被激发。如果不想让自己的文字

6、被选中，可以用以下方法屏蔽该事件：onselectstart=return falseoncopy事件：用户按下CTRL+C键或执行菜单中的复制命令时，该事件将被激发，如果不想自己的页面内容被别人轻易复制，可以用以下方法屏蔽该事件：oncopy=return falsebgcolor属性用于设置页面背景颜色，可以取RGB格式的颜色值或颜色常量值。text属性用于设置页面中文字的颜色，取值参考背景色。页面中的段落可使用标记符。3输入完毕后单击保存命令，保存文件。找到该文件后双击，在浏览器中观察效果，如果需要修改，可直接在记事本中修改源文件，修改后保存，在浏览器中按F5或执行刷新菜单命令，即可观察

7、新效果。4文件调试完毕后，按刚才的操作顺序完成实验的第二部分，按下列提示编写HTML代码，下面是参照代码；主页结构如下：这里输入标题栏内容这里写书籍的名称这里写作者姓名及书籍简介第一章 第二章注：表示一个空格。各章文件结构如下：这里输入标题栏内容这里写章节的名称这里写本章第一段具体内容上一章 返回目录 下一章六、注意事项1观察哪些标记符必须成对出现，哪些可以不写结束标记符；2改变各种不同的属性，观察效果变化。实验二 熟悉HTML语言图像、表格和表单一、实验目的与任务学生通过该实验熟悉HTML语言的图像、表格和表单的基本使用方法，进一步体会浏览器解释执行HTML的原理，为以后高级网络编程打下扎实

8、的基础。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。2利用记事本编辑一个页面文件名为shiyan2.htm，要求主页制作的效果应包括：页面背景、静态图象、动态图象、表格、表单等。3主页布局合理、新颖，使人赏心悦目。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2利用记事本编辑一个页面文件名为shiyan2.htm，要求主页制作的效果应包括：页面背景、静态图象、动态图象、表格、表单等。3规划好页面的布局，如何合理安排各种图像和表单元素，以及选择怎样的配色方案，每位同学可以自由发挥。五、实验步骤1打开记事本，单

9、击 文件菜单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：shiyan2.htm，注意必须输入扩展名。2按照自己设计的页面结构制作页面。提示：利用无边框表格格式化页面布局。3下面代码为主页参考代码：电脑跳蚤市场 电脑跳蚤市场 主页 | 台式机 | 笔记本 | 显示器 | 主板 | CPU | 其它 在此显示商品信息 供货信息 求购信息 信息查询 问题解答 投诉 管理员 Copyright 2008 电脑破烂王版权所有. 主页界面如图：4依次设计相关联接文件。六、注意事项1观察哪些标记符必须成对出现，哪些可以不写结束标记符；2改变各种不

10、同的属性，观察效果变化。实验三 熟悉HTML多窗口、多媒体、CSS 一、实验目的与任务学生通过该实验熟悉HTML语言的多窗口、多媒体和CSS的基本使用方法，进一步体会HTML在实际中的应用，为以后高级网络编程打下扎实的基础。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。2利用记事本编辑一个页面文件名为shiyan3.htm，利用记事本编辑一个页面文件名为shiyan3.htm，要求主页制作的效果应包括：整体布局用多窗口页面，页面中包含多媒体元素：视频、背景音乐、FLASH动画，并使用CSS控制效果。3主页布局合理、新颖，使人赏心悦目。三、实验设备 微机+window

11、s9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2利用记事本编辑一个页面文件名为shiyan3.htm，要求主页制作的效果应包括：整体布局用多窗口页面，页面中包含多媒体元素：视频、背景音乐、FLASH动画，并使用CSS控制效果等。五、实验步骤1规划并建立页面中使用的层叠样式表文件，可命名如Mystyle.css。2打开记事本，单击 文件菜单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：shiyan3.htm，注意必须输入扩展名。2在文件中引入Mystyle.css，规划好页面的布局，如何合理安排各种元素，以及选

12、择怎样的配色方案，每位同学、可以自由发挥。六、注意事项1视频播放、背景音乐和动画的属性设置；2改变各种不同css属性，观察效果变化；3多窗口布局的设计应有适当的比例。实验四 利用VbScript语言制作一个猜数游戏一、实验目的与任务熟悉VbScript语言的使用方法，掌握VbScript的三种基本控制结构。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。2页面中先显示一个按钮，上面文字为“单击开始猜数游戏”。要求：由计算机随机产生一个1-100的整数，用户单击按钮后，提示用户输入其所猜数字，10次机会，如果猜中显示猜中及次数，否则提示猜大了或小了，10次不中则显示该数

13、及失败信息。3功能完整，有简单的错误检查处理。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2页面中先显示一个按钮，上面文字为“单击开始猜数游戏”。要求：由计算机随机产生一个1-100的整数，用户单击按钮后，提示用户输入其所猜数字，10次机会，如果猜中显示猜中及次数，否则提示猜大了或小了，10次不中则显示该数及失败信息。要有错误处理。五、实验步骤1打开记事本，单击 文件菜单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：caishu.htm，注意必须输入扩展名。2在页面中放入一个

14、按钮，具体代码为和界面如下：3按下列提示编写HTML代码，下面是参照代码:猜数游戏Dim iNum 猜数的次数Dim intTarget 计算机随机生成的数Dim blnOk 您猜的数Dim intUser 您猜的数Sub CmdStart_OnClick Randomize 初始化随机数生成器，该生成器具有基于系统计时器的种子。 iTarget =cint(rnd(1)*100+1) iNum=0 blnOk=False Do while (not blnOk) and iNUm10 then 提示失败 blnOk=True ElseIf intUseriTarget Then 提示猜的太大

15、及剩余次数 ElseIf intUseriTarget Then 提示猜的太小及剩余次数 End If End If loop End sub六、注意事项1先画出程序流程图，搞清楚程序控制结构；2主体控制完成后，可以增加一些个性因素。实验五 利用VbScript语言制作一个小学生加法测试程序一、实验目的与任务熟悉VbScript语言的使用方法，掌握VbScript的过程与document对象的使用。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。2页面中随机产生10道10以内的整数加法题，有用户输入答案，并通过单击判断按钮，由计算机给出成绩，并在正确的题目后显示对勾，

16、错误题目后显示叉。要求：界面活泼生动，符合小学生心理，可以反复出题测试，并能通过简单修改程序控制随机数大小，如可以出10以内的加法等。3功能完整，有简单的错误检查处理。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2页面中随机产生10道10以内的整数加法题，有用户输入答案，并通过单击判断按钮，由计算机给出成绩，并在正确的题目后显示对勾，错误题目后显示叉。要求：界面活泼生动，符合小学生心理，可以反复出题测试，并能通过简单修改程序控制随机数大小，如可以出10以内的加法等。要有错误处理。五、实验步骤准备：先利用绘图软件制作几幅图片，包括两个放

17、在按钮上的120*25大小的图片，一个是判断对错（panduan.gif），另一个是重新出题（chuti.gif）；再准备三张190*120的图片一张用来在出完题目后，提示试试看（start.gif），第二张和第三张分别在得分80以上（ok.gif）及不足80分（jiayou.gif）时显示；最后准备三张大小为20*20的图片分别在判断对错时，正确的题目后显示一个对勾（zhengque.gif），错误时显示一个叉（cuowu.gif），初始状态时每个题目后显示图片default.gif，实际上该图片只是一个和背景颜色完全一样，大小为20*20的图片。1打开记事本，单击 文件菜单，选择保存命令，

18、在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：test.htm，注意必须输入扩展名。2在页面主体中先放一个，将所有内容居中排列。3放一个表格，代码如下：第一行表格为两列合并并写上程序标题，代码如下： 小学生加法运算测试（每题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 调用出题过程 -4在表单中放入一个按钮，具体代码为：单击该按钮执行过程py_click5第二行表格的第二列放一个表单，id为form2，具体代码如下： 得分： 失分： 6在页面的之间插入脚本，分别编写程序中的各个函数：第一个过程，随机生成10道题目并显示在页面中 Sub ct()Sub ct() Dim i,tx(10),ty(10) 定义变量分别放置题目的被加数和加数 const MAXNUM=10 定义被加数和加数的最大值 下面程序随机生成题目

20、的被加数和加数，并放在数组中 For i=1 to 10 Randomize 初始化随机数生成器，该生成器具有基于系统计时器的种子。 tx(i)=cint(rnd(1)*MAXNUM+1) Randomize 初始化随机数生成器，该生成器具有基于系统计时器的种子。 ty(i)=cint(rnd(1)*MAXNUM+1) next 向页面中的每个题目的被加数和加数文本框中写内容 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中分数设置为空 form2.dd.value= form2.df.value=先将表单1中各道题的答案设置为空 form1.z1.value= form1.z10.value=将表单1中各题目后表示正误的图片设置为开始状态form1.t1.src=default.gifform1.t10.src=default.gif将表单2中提示图片设置为开始状态 form2.img1.src=start.gif调用出题过程 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 如果答案为空或不是数字 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道题目进行判断 设置成绩 form2.dd.value=bb*10 form2.df.value=bf*10根据成绩是否超过80分别显示图

23、片 if bb8 then form2.img1.src=ok.gif else form2.img1.src=jiayou.gif end ifEnd sub效果图如下：六、注意事项1先画出程序流程图，搞清楚程序控制结构；2主体控制完成后，可以增加一些个性因素；3考虑将加法改为加减混合或乘法，则程序如何修改？实验六 利用VbScript语言制作一个计算矩阵乘法程序一、实验目的与任务熟悉VbScript语言的使用方法，掌握VbScript的过程、函数与对象，进一步学习通过document对象动态生成页面的方法。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。2程序可以

24、计算Cmn=AmsBsn，其中m、s、n通过页面提示用户输入,用户单击确定后，在页面中用文本框自动生成Ams、Bsn和Cmn矩阵，由用户输入矩阵A、B的值，单击计算，由计算机计算出结果写到矩阵C中。要求：界面布局合理，计算正确，有错误处理。3功能完整，有简单的错误检查处理。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2程序可以计算Cmn=AmsBsn，其中m、s、n通过页面提示用户输入,用户单击确定后，在页面中用文本框自动生成Ams、Bsn和Cmn矩阵，由用户输入矩阵A、B的值，单击计算，由计算机计算出结果写到矩阵C中。要求：界面布局

25、合理，计算正确，有错误处理。五、实验步骤1打开记事本，单击 文件菜单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：juzhencheng.htm，注意必须输入扩展名。2制作一个页面，显示Cmn=AmsBsn信息，要求用户分别输入m、s、n，然后再放置一个计算按钮。具体代码可参照如下结构：矩阵乘法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的整数！,警告 exit sub end if if IsNumeric(txts.value) and cint(txts.value)0 then s=txts.value else msgbox 必须输入大于0的整数！,警告 exit sub end if if IsNumeric(txtn.value) and cint(txtn.value)0 then n=txtn.value else msgbox 必须输入大于0的整数！,警告 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先画出程序流程图，搞清楚程序控制结构；2该实验难点在动态生成页面过程sub juzhenshuru()，仔细分析例程，结合具体效果弄懂程序中代码的含义.实验七 制作一个向EXCEL输出表格的程序一、实验目的与任务熟悉VbScript语言的使用方法，掌握VbScript的过程、函数与对象，进一步学习通过CreateObject(Excel.application)创建Excel对象。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。2程序可以将页面中显示的一个表

33、格输出到EXCEL中。要求：界面布局合理，输出正确，有错误处理。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2程序可以将页面中显示的一个表格输出到EXCEL中。要求：界面布局合理，输出正确，有错误处理。五、实验步骤1打开记事本，单击 文件菜单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：ToExcel.htm，注意必须输入扩展名。2制作一个页面，显示效果如下图所示，按钮代码为：3编写按钮事件：cmdOutput_onclick()以及为在EXCEL中输出表格准备的函数，这些函

34、数共有5个，直接在程序中使用，不需要做任何修改，5个函数源代码如下：该函数用于调整单元格的宽度Function ExcelCellWidth(objExcel,cCol,fColWidth) cCol：需要调整的列 fColWidth：调整后的宽度 objExcel.Columns(cCol & : & cCol).ColumnWidth = fColWidth ExcelCellWidth=trueEnd Function该函数用于计算Excel中iColNum所对应的列Function GetExcelCol(iColNum) iColNum：数值，如iColNum=13，表示求第13列所

35、对应的字母，即返回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该函数用于将单元格sRowCol范围内的所有单元格边框变成实线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该函数用于将单元格sRowCol的四周加实线，不含内部的线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设置列宽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=网络02级04-05第二学期成绩表ExcelSheet.ActiveCell.FormulaR1C1 =title1 ExcelSheet.ActiveCell.Font.Name = 仿宋 ExcelSheet.ActiveCell.font.FontStyl

46、e = 加粗 ExcelSheet.ActiveCell.font.Size = 16 准备表头title(1)=学号titlecolstr(1)=A3:A4title(2)=姓名titlecolstr(2)=B3:B4title(3)=科目titlecolstr(3)=C3:G3title(4)=英语titlecolstr(4)=C4:C4title(5)=高数titlecolstr(5)=D4:D4title(6)=网络系统titlecolstr(6)=E4:E4title(7)=软件工程titlecolstr(7)=F4:F4title(8)=网络编程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窗口并将表格内容输出到窗口中。六、注意事项1仔细研究5个通用函数，理解其功能和用法；2本次实验内容有很强的实际意义，应掌握其使用方法；3要使程序能够正常运行，需要对浏览器进行设置。打开浏览器的Internet 选项窗口，选择 安全选项卡，单击自定义级别按钮，保证您的设置如下图所示即可。实验八 利用JavaScript语言制作变色网页一、实验目的与任务学生通过该实验熟悉JavaScript语言的使用方法，掌握JavaScript的事件处理过程，学习掌握JavaScript中函数和过程的使用方法。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。

51、2该网页上有各种颜色的单选钮，当用户选择某种颜色的单选钮，网页的背景颜色就变成了用户选择的颜色。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2该网页上有各种颜色的单选钮，当用户选择某种颜色的单选钮，网页的背景颜色就变成了用户选择的颜色。五、实验步骤1打开记事本，单击 文件菜单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：ChangeColor.htm，注意必须输入扩展名。2制作一个页面，显示效果如下图所示：程序代码如下：变色function changebg(Color) d

52、ocument.bgColor = Colorend function 请选择适合自己观看的背景色 3在浏览器中调试JavaScript代码，使得实现正确的效果。六、注意事项1程序中使用CSS来改变按钮颜色，注意体会；2按钮单击事件均调用相同函数，但传递参数不同。实验九 利用JavaScript语言搜索水仙花数一、实验目的与任务熟悉JavaScript语言的使用方法，掌握JavaScript的文档对象的使用，学习掌握JavaScript中自定义函数和过程的使用方法二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。2由用户输入搜索范围，用两个文本框即可，然后单击搜索，自动

53、找出范围内的水仙花数（水仙花数就是其本身等于其各位数的立方和）。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2由用户输入搜索范围，用两个文本框即可，然后单击搜索，自动找出范围内的水仙花数（水仙花数就是其本身等于其各位数的立方和）。五、实验步骤1打开记事本，单击 文件菜单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：shuixianhua.htm，注意必须输入扩展名。2制作一个页面，显示效果如下图所示：其中两个文本框代码如下： 计算按钮代码如下： 文本区代码如下： 所有元素都放

54、入一个name等于“f”的表单中：3编辑三个函数，可参考如下代码：/该函数返回x的立方function lifang(x) return x*x*x;/该函数判断n是否为水仙花数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;/该函数先验证输入的范围是否正确，然后循环调用函数Find，并输出结果。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 + 个数： + m; 六、注意事项1必须判断表示范围的数是否为3位数，否则程序出错；2例程中没有

56、加入第一个值必须小于第二个值的验证，可自己加入；3反复使用的代码应该设为函数或过程，如function lifang(x)。实验十 利用JavaScript语言设计一个表达式计算的程序一、实验目的与任务熟悉JavaScript语言的使用方法，掌握JavaScript的事件处理过程，学习掌握JavaScript中eval函数的使用方法。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。2由用户输入一个数字表达式，然后单击计算按钮，自动计算出表达式结果。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2由用户输入一个数

57、字表达式，然后单击计算按钮，自动计算出表达式结果。五、实验步骤1打开记事本，单击 文件菜单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：biaodashi.htm，注意必须输入扩展名。2制作一个页面，显示效果如下图所示：表达式文本框代码如下： 计算按钮代码如下： 结果文本框代码如下： 3compute函数内容如下：function compute(f) if (confirm(确定要计算吗?) f.result.value = eval(f.expr.value) else alert(请返回重新输入！)六、注意事项1反复输入各种表达

58、式，考察eval函数的作用；2本例中特意加入两个函数confirm 和alert，注意体会其用法。实验十一 设计一个解一元二次方程的程序一、实验目的与任务熟悉JavaScript语言的使用方法，掌握JavaScript的文档对象的使用，学习掌握JavaScript中Math对象中的数学函数的使用方法。二、实验基本原理与要求1利用记事本编辑HTML页面，并在浏览器中观察效果。2由用户输入确定一个一元二次方程，然后单击计算按钮，自动计算出方程的解。三、实验设备 微机+windows9x/200 x+IE浏览器+记事本四、实验内容1使用记事本编辑页面。2由用户输入确定一个一元二次方程，然后单击计算按

59、钮，自动计算出方程的解。五、实验步骤1打开记事本，单击 文件菜单，选择保存命令，在打开的保存对话框中，先选择要保存的文件夹，保证保存类型选择“所有文件”，在文件名中输入：jiefangch.htm，注意必须输入扩展名。2制作一个页面，显示效果如下图所示：三个系数文本框的代码分别为：求解按钮代码为： 输出结果的三个文本框代码为： 3解方程函数solve_quad()代码为：function solve_quad(form) if (form.inputbox1.value= | form.inputbox1= | form.inputbox1=0) alert(二次项系数不能为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