实验指导书样板范文.doc

实验指导书样板范文 学会编写简单网页。 掌握表格的建立方法。 掌握表单的建立方法。 学会简单的XML文挡编写。 掌握以XHTML格式编写简单网页及发布网页的方法。 2实验内容与步骤2.1实验题1在网页上创建一个货品的价格表。 步骤如下1)打开记事本，输入如下代码，并以tl-1.html为文件名保存该文件；货品价格表名称编号类别单价数量备注详情电话机1001小家电80100最低8折查看详情MP51002数码产品208020最低8.5折查看详情电冰箱1003小家电219810查看详情电子词典1004数码产品19610查看详情32)在浏览器中打开tl-1.html文件，查看该网页的浏览结果，如图T1-1所示。 图T1-1货物价格表网页2.2实验题2创建一个用户留言表单。 步骤如下1）打开记事本，输入以下代码，并以.tl-2.html为文件名保存该文件请填写留言姓名:性别:电话:电子邮件:留言2）在浏览器中打开tl-2.html文件，查看该网页的浏览结果，如图T1-2所示。 4图T1-2用户留言网页2.3实验题3创建一个与实验题1中的表格显示效果相同的XML文挡及其XSL样式表。 步骤如下1）打开记事本，输入以下代码，并以tl-3.xml为文件名保存该文件电话机1001小家电80100最低8折查看详情MP51002数码产品2080205最低8.5折查看详情电冰箱1003小家电219810#查看详情电子词典1004数码产品19610#查看详情2）打开记事本，输入以下代码，并以tl-3.xsl为文件名保存该文件货品价格表名称编号类别单价数量备注详情63）在浏览器中打开tl-3.xml文件，查看该网页的浏览结果，如图T1-3所示。 图T1-3用XML创建的“货物价格表”3.思考与练习1若需要将实验题1.1中网页的各单元格的文字居中排列，应如何修改HTML文件？如果希望各行的超链接不显示下划线，又应如何修改HTML文件？2若需要在实验题1.2的网页中添加个人爱好的选择，应如何修改HTML文件？3以HTML格式修改实验题1.1和实验题1.2。 4发布实验题1.1和实验题1.2所设计的网页。 7实验2VB.NET基本程序设计1实验目的掌握Visual Basic.NET语言的数据类型、常量、变量及运算符的使用方法。 熟练掌握If语句和SelectCase语句的使用。 熟练掌握循环语句的使用。 熟练掌握数组的使用。 初步学会在程序中使用标签（Label）、文本框(TextBox)和按钮(Button)控件。 熟悉VSxx开发环境。 2实验内容与步骤2.1实验题1编程并上机调试判断用户输入的整数是正数、负数还是0，输出相应的判断结果。 步骤如下1）新建一个网站WebSiteT2，并添加一个Web窗体页“T2-1.aspx”。 2）切换到“设计”视图，在此页面中插入一个2行2列的表。 其中表的宽度为“350px”,背景颜色为“#CCCC00”，边框的粗细为“1px”，边框的颜色为“#000000”。 3）从工具箱中拖放一个ID为“TxtInt”的TextBox控件，一个ID为“BtnExe”、Text为“提交”的按钮控件和一个ID为“LblDesc”、ForeColor为“Red”的Label控件到此页面中，如图T2-1所示。 图T2-1实验题2.1运行结果84）切换到“源”视图，在标记与标记之间添加如下XHTML代码请您输入一个整数5）双击“提交“按钮控件，添加“提交”按钮的事件代码Protected Sub BtnExe_Click(ByVal sender As Object,ByVal eAs System.EventArgs)Handles BtnExe.Click IfTxtInt.Text=Then判断用户是否输入了整数值LblDesc.Text=整数值不能为空，请输入！Else Dimm As Integer m=CInt(TxtInt.Text)将串值转换为整数If m0Then LblDesc.Text=您输入的整数值为正数！Else LblDesc.Text=您输入的整数值为零！End If End If End If End Sub6）发布此网站，在IIS中运行该程序，查看程序运行结果，如图T2-1所示。 2.2实验题2编程并上机调试根据用户输入的年、月、日，求出其后一天的年、月、日值并输出（不使用VB.NET的时间日期函数）。 步骤如下1）在网站WebSiteT2中添加一个Web窗体页“T2-2.aspx”。 2）切换到“设计”视图，在此页面中插入一个2行3列的表，其中表的宽度为“550px”，背景颜色为“#CCCC00”，边框的粗细为“1px”，边框的颜色为“#000000”。 3）向页面中拖放3个TextBox控件，ID分别为“TextYear”、“TextMonth”和“TextDate”；1个ID为“BtnExe”的Button控件，其Text为“提交”；1个ID为“LblCaution”的Lable控件，其Text属性设置为空值，如图T2-2所示。 4）切换到“源”视图，在标记与标记之间添加如下XHTML代码请您输入年、月、日5）双击“提交”按钮控件，添加“提交”按钮的事件代码Protected Sub BtnExe_Click(ByVal senderAs Object,ByVal eAs System.EventArgs)9Handles BtnExe.Click IfTxtYear.Text=Or TxtMonth.Text=Or TxtDate.Text=Then判断用户是否输入值LblCaution.Text=年、月、日值不能为空，请输入！Else If CInt(TxtYear.Text)0Or CInt(TxtMonth.Text)0Or CInt(TxtDate.Text)0Then LblCaution.Text=年、月、日值不能为负，请重新输入！Else先判断用户输入的年份是否闰年Dim LeapAs Boolean=False闰年标志Dim Y As Integer=CInt(TxtYear.Text)将串值转换为整数If Y Mod4=0Then IfY Mod100=0Then IfYMod400=0ThenYear既能被100整除又能被400整除Leap=True End If ElseLeap=TrueYear能被4整除但不能被100整除End IfEnd If计算用户输入日期的后一天Dim M,D,NY,NM,ND As Integer M=CInt(TxtMonth.Text)D=CInt(TxtDate.Text)Select CaseM Case1,3,5,7,8,10If D=31Then NY=Y:NM=M+1:ND=1Else NY=Y:NM=M:ND=D+1End IfCase4,6,9,11If D=30Then NY=Y:NM=M+1:ND=1Else NY=Y:NM=M:ND=D+1End IfCase2If D=29Then If Leap Then输入的年份是闰年NY=Y:NM=M+1:ND=1Else LblCaution.Text=输入的日值有错，请重新输入！10End IfElse If D=28Then IfLeap Then NY=Y:NM=M:ND=D+1Else NY=Y:NM=M+1:ND=1End IfElse NY=Y:NM=M+1:ND=1End IfEnd IfCase12IfD=31ThenNY=Y+1:NM=1:ND=1Else NY=Y:NM=M:ND=D+1End IfEnd SelectLblCaution.Text=LblCaution.Text&后一天为&CStr(NY)&-&CStr(NM)&-&CStr(ND)End IfEnd IfEnd Sub6）运行该程序，查看程序运行结果，如图T2-2所示。 图T2-2实验题2.2运行结果112.3实验题3编程并上机调试整型数组A，各元素的值分别是10，100，28，36，59，90，将其由小到大排序并输出。 步骤如下1）在网站WebSiteT2中添加一个Web窗体页“T2-3.aspx”。 2）在“源”视图下，在标记与标记之间添加如下XHTML代码对整数数组排序3）添加一个Lable控件，ID为“LslRes”，其Text设置为空值。 4）切换到“设计”视图下，双击页面空白处，添加Page的Load事件处理代码，代码如下5）运行该程序，查看程序运行结果，如图T2-3所示。 图T2-3实验题2.3运行结果3.思考与练习1根据实验题2.2编写一个求出给定日期的前一天值的程序。 、2将实验题2.3中的For循环语句改为使用DoLoop语句、While语句来实现。 3编写一个求100200之间的所有素数并输出的程序。 4编写输出9*9乘法表的程序。 12实验3VB.NET过程和函数1实验目的熟悉使用Visual Basic.NET语言定义函数和过程的方法。 掌握在程序中设计中调用函数和过程的方法。 掌握函数和过程中参数传递的方法。 掌握常用日期时间函数、字符串函数的用法。 2实验内容与步骤2.1实验题1编程并上机调试输入两个正整数，求其最大公约数和最小公倍数。 步骤如下1）新建一个WebSiteT3，添加1个Web窗体页“T3-1.aspx”。 2）添加2个TextBox控件、1个Button控件和1个Label控件，ID分别为“TxtInt1”、“TxtInt2”、“BtnExe”和“LblDesc”其中Button控件的Text属性设置为“计算”，Label控件的Text属性设为空值。 按照图T3-1所示设计页面。 图T3-1实验题2.1运行结果3）添加Button空间的Click事件处理程序及求最大公约数和最小公倍数，代码如下Function hcf(ByVal mAs Integer,ByVal n As Integer)As Integer Dim t,rAs Integer Ifm0m=n:n=r:r=m Modn End While hcf=n EndFunction求m,n的最小公倍数，h为m,n的最大公约数Function lcd(ByVal mAs Integer,ByVal n As Integer,ByVal hAs Integer)As Integerlcd=m*n/h EndFunction Protected Sub BtnExe_Click(ByVal senderAs Object,ByVal eAs System.EventArgs)Handles BtnExe.Click IfTxtInt1.Text=Or TxtInt2.Text=Then判断用户是否输入了整数值LblDesc.Text=整数值不能为空，请输入！Else Dimm,n,h,l As Integer m=Val(TxtInt1.Text)n=Val(TxtInt2.Text)h=hcf(m,n)l=lcd(m,n,h)LblDesc.Text=最大公约数为&CStr(h)&，最小公倍数为&CStr(l)End IfEnd Sub4）运行该程序，查看程序运行结果。 程序结束后，输入两个整数并单击“计算”按钮，将显示如图T3-1所示的结果。 2.2实验题2编程并上机调试使用VB。 NET的日期时间函数，根据用户输入的年、月、日，求出其前一天和后一天的年、月、日值并输出。 步骤如下1）在网站WebSiteT3中添加一个Web窗体页，命名为“T3-2.aspx”。 2）按照实验题2.2设计页面。 3）添加“提交”按钮的Click事件处理程序及其函数代码，代码如下Function PreDay(ByVal yAs Integer,ByVal mAs Integer,ByVal dAs Integer)As String计算给定日期的前一天日期Dim PreDAs DateTimeDim preyear,premonth,predate As String14PreD=DateAdd(d,-1,DateSerial(y,m,d)preyear=Year(PreD)premonth=Month(PreD)predate=Day(PreD)PreDay=preyear&-&premonth&-&predate EndFunction FunctionNextDay(ByVal yAs Integer,ByVal mAs Integer,ByVal dAs Integer)As String计算给定日期的后一天日期Dim NextDAs DateTimeDim nextyear,nextmonth,nextdate As String NextD=DateAdd(d,1,DateSerial(y,m,d)nextyear=Year(NextD)nextmonth=Month(NextD)nextdate=Day(NextD)NextDay=nextyear&-&nextmonth&-&nextdate EndFunction Protected SubBtnExe_Click(ByVal senderAs Object,ByVal eAs System.EventArgs)Handles BtnExe.Click IfTxtYear.Text=Or TxtMonth.Text=Or TxtDate.Text=Then判断用户是否输入值LblCaution.Text=年、月、日值不能为空，请输入！Else IfCInt(TxtYear.Text)0Or CInt(TxtMonth.Text)0Or CInt(TxtDate.Text)0Then LblCaution.Text=年、月、日值不能为负，请重新输入！Else DimYAs Integer=CInt(TxtYear.Text)Dim M AsInteger=CInt(TxtMonth.Text)Dim DAsInteger=CInt(TxtDate.Text)LblCaution.Text=前一天为&PreDay(Y,M,D)&，后一天为&NextDay(Y,M,D)End IfEnd IfEnd Sub4）运行该程序，查看程序运行结果。 程序结束后，输入数据并单击“提交”按钮，将显示如图T3-2所示的计算结果。 15图T3-2实验题2.2运行结果2.3实验题3编程并上机调试用户在两个文本框中各输入一个字符串，分别为str1和str2，要求str1长度大于str2长度，在str1中找出str2出现的所有位置，并统计出str1种出现str2的次数，若str2不是str1的子串，测输出0。 步骤如下1）在网站WebSiteT3添加一个Web窗体页，命名为“T3-3.aspx”。 2）按照图T3-3所示设计页面，其中在页面中添加2个TextBox控件、1个Button控件和1个Label控件。 ID分别设置为“TxtStr1”、“TxtStr2”、“BtnExe”和“LblDesc”、Button控件的Text属性设置为“统计”，Label控件的Text属性设置为空值。 3）添加“统计”按钮的Click事件处理程序及其他函数代码，代码如下Function FindStr(ByVal str1AsString,ByVal str2AsString,ByVal count()AsInteger)As Boolean统计str2在str1中出现的次数，若str2不是str1的子串，返回False；若str2是str1的子串，返回True，且数组count中保存出现的位置。 Dim stlenAsInteger=Len(str2)Dim i,k,L AsIntegerDims AsString=str1i=0:L=0While sk=InStr(s,str2)LblDesc.Text=LblDesc.Text&CStr(k)If k=0Then ExitWhile ElseL=L+k count(i)=L L=L+stlen-1i=i+116s=Mid(s,k+stlen)End IfEndWhileIfL=0Then FindStr=False ElseFindStr=True End IfEndFunction Protected SubBtnExe_Click(ByVal senderAs Object,ByVal eAs System.EventArgs)Handles BtnExe.Click IfTxtStr1.Text=Or TxtStr2.Text=Then判断用户是否输入值LblDesc.Text=输入不能为空，请输入字符串！Else Dimcount (10)AsIntegerDim findsAs Booleanfinds=FindStr(TxtStr1.Text,TxtStr2.Text,count)If Notfinds Then LblDesc.Text=TxtStr2.Text&不是&TxtStr1.Text&的子串Else Dimi,nAsInteger n=0Do n=n+1Loop Whilecount(n)0LblDesc.Text=TxtStr2.Text&在&TxtStr1.Text&中出现LblDesc.Text=LblDesc.Text&CStr(n)&次，位置分别是For i=0To n-1LblDesc.Text=LblDesc.Text&CStr(count(i)&Next End IfEnd IfEnd Sub4）运行该程序，查看程序运行结果。 程序结束后，输入两个字符串并单击“统计”按钮，将显示如图T3-3所示的计算结果。 17图T3-3实验题2.3运行结果3.思考与练习1.参考实验题3.2，使用日期时间函数编写求一个任意时间的任意指定间隔时间值的程序。 例如，求今天之前的三个月的日期。 提示可将求任意日期的任意指定间隔的日期值得功能设计为一个函数，如caldate(dt AsDateTime,type AsString,interval AsInteger)其中，dt为指定日期，type为间隔类型（年、月、日），interval为间隔长度。 2.设计一个将字符串str1中所有与str2相同的子串均删除的程序。 例如，若字符串str=”abcdabcdabe”，str=”ab”，则执行该删除操作后，str1的值将为cacde。 18实验4Web服务器控件的使用1实验目的掌握常用的Web服务器控件的主要属性和它们的使用方法，这些控件包括Label、TextBox、Button、HyperLink、ImageButton、RadioButton、RadioButtonList、CheckBox、Image、CheckBoxList、ListBox、DropDownList、Panel等。 掌握Tabel、TabelRow、TabelCell控件的使用。 掌握日历控件Calendar的用法。 2实验内容与步骤2.1实验题1使用常用Web服务器控件，设计如图T4-1所示的页面。 当用户输入数据后，在输入表格下面显示用户输入的内容，如图T4-1所示。 本实验应用以下Web服务器控件进行设计Label、TextBox、Button、HyperLink、ImageButton、RadioButton、CheckBox、Image、DropDownList。 图T4-1实验题2.1运行结果19步骤如下1）新建一个网站WebSiteT4，添加一个Web窗体页“T4-1.aspx”。 、2）按照如图T4-1所示设计页面，其中要在页面中添加5个TextBox控件、2个RadioButton控件、1个DropDownList控件、8个CheckBox控件、1个ImageButton控件、1个LinkButton控件、1个Button控件和1个Label控件。 控件的属性设置为如表T4-1所示。 表T4-1属性设置类别ID设置其他属性说明TextBox name、tel 1、tel 2、email和homepage分别用于输入“姓名”、“电话1”、“电话2”、“email”、“主页”RadioButton male和female Text分别为“男”和“女”用于选择性别LinkButton LinkText为“我的主页”链接到我的主页ImageButton emailsendImageUrl为“/image/email.gif”发送邮件CheckBox C 1、C 2、C 3、C 4、C 5、C 6、C7和C8Text分别为“绘画”、“唱歌”、“跳舞”、“旅游”、“运动”、“上网”、“砍树”和“书法”分别用于选择爱好Button BtnText设置为“提交”提交按钮Label LblDesc显示提交的结果3）添加Button控件、LinkButton控件和ImageButton控件的Click事件处理程序，代码如下Protected SubBtn_Click(ByVal senderAs Object,ByVal eAs System.EventArgs)Handles Btn.Click Dimsex,bld,intr AsString Dimi AsInteger LblDesc.Text=您输入的信息如下LblDesc.Text=LblDesc.Text&姓名&name.Text Ifmale.Checked Thensex=male.Text Iffemale.Checked Thensex=female.Text bld=blood.SelectedItem.Text IfC1.Checked Thenintr=intr&C1.Text End If IfC2.Checked Thenintr=intr&C2.Text EndIf IfC3.Checked Thenintr=intr&C3.Text EndIf IfC4.Checked Thenintr=intr&C4.Text EndIf IfC5.Checked Thenintr=intr&C5.Text20EndIf IfC6.Checked Thenintr=intr&C6.Text EndIf IfC7.Checked Thenintr=intr&C7.Text EndIfIfC8.Checked Thenintr=intr&C8.Text EndIf LblDesc.Text=LblDesc.Text&,性别&sex LblDesc.Text=LblDesc.Text&,血型&bld LblDesc.Text=LblDesc.Text&,兴趣&intr LblDesc.Text=LblDesc.Text&,电子邮件&email.Text LblDesc.Text=LblDesc.Text&,主页&homepage.Text End Sub Protected Sub Link_Click(ByVal senderAs Object,ByVal eAs System.EventArgs)Handles Link.Click Dimdest AsString dest=homepage.Text Response.Redirect(dest)End SubProtected Subemailsend_Click(ByVal senderAs Object,ByVal eAs_System.Web.UI.ImageClickEventArgs)Handles emailsend.Click Response.Write(传送邮件)End Sub4）运行该程序，查看程序运行结果。 2.2实验题2如图T4-2所示，通过两个列表框选择年和月份，然后使用日历控件Calendar显示所选择年和月的日历，页面如图T4-2所示。 步骤如下1）新建一个网站WebSiteT4，添加一个Web窗体页“T4-2.aspx”。 图T4-2实验题2.2212）按照如图T4-2所示设计页面，其中要在页面中添加2个DropDownList控件、1个Button控件和1个Calendar控件。 2个DropDownList控件的ID分别设置为“DRPYear”和“DRPMonth”，其中ID为DRPYear的DropDownList控件的Items分别添加为xxxx成员，ID为DRPMonth的DropDownList控件分别添加0112成员；Button控件的ID和Text分别设置为“Btn”和“显示”；Calendar控件的ID、BorderColor、NextPrevFormat、ShowGridLines和Visible分别设置为“Cal”、“Blue”、“ShortMonth”、“True”、和“False”。 3）添加显示按钮的Click事件处理程序，代码如下Protected SubBtn_Click(ByVal senderAs Object,ByVal eAs System.EventArgs)Handles Btn.Click DimY,MAsString Y=DRPYear.SelectedItem.Text M=DRPMonth.SelectedItem.Text Cal.TodaysDate=00:00:00AM,&M&/01/&Y设置日历控件的当前日期Cal.Visible=True显示日历控件End Sub4）运行该程序，查看运行结果。 3.思考与练习1.将实验题4.1中的RadioButton控件改为RadioList控件，将CheckBox控件改为CheckList控件，将DropDownList控件改为ListBox控件，代码应如何修改？2.如何将实验题4.2所创建的表格的标题栏行的背景色改为深蓝色？如何将内容单元格的对齐方式设置为居中？3.参考实验题4.1，应用Label、TextBox、Button、HyperLink、ImageButton、RadioButton、CheckBox、Image、DropDownList等Web服务器控件设计一个会员注册页面。 22实验5内建对象的应用1实验目的.熟练掌握ASP.NET的常用属性和方法，包括Application、Session、Request、Response和Server对象。 .学会在程序中应用ASP。 NET创建对象。 2实验内容与步骤2.1实验题1使用Application对象实现在线用户数统计。 步骤如下1）新建一个网站WebSiteT5,在此网站中添加一个全局应用程序类，命名为“Global.asax”。 2）在Global.asax文件中添加代码，代码如下Sub Session_Start(ByVal senderAs Object,ByVal eAs EventArgs)统计在线人数，每进来1个用户t加1在新会话启动时运行的代码Application.Lock()Application(t)=Application(t)+1Application.UnLock()End SubSub Session_End(ByVal senderAs Object,ByVal eAs EventArgs)统计在线人数，每离开1个用户t减1在会话结束时运行的代码。 注意:只有在Web.config文件中的sessionstate模式设置为设置为InProc时，才会引发Session_End事件。 如果会话模式设置为StateServer或SQLServer，则不会引发该事件。 Application.Lock()Application(t)=Application(t)-1Application.UnLock()End Sub3）添加一个Web窗体页，并以T-1.aspx为文件名保存该文件。 在页面中添加一个ID设置为counter的TextBox控件，页面设计如图T5-1所示，Page的Load的事件处理代码如下23图T5-1显示在线人数ProtectedSubPage_Load(ByVal senderAs Object,ByVal eAs System.EventArgs)Handles Me.Load counter.Text=在线人数&Application(t)End Sub4）在IIS中运行该程序，查看程序运行结果。 例如，建立3个连接，将显示如图T5-1所示的页面(或在VSxx中多次启动该程序)。 2.2实验题2设计简单的用户登录程序，用户输入非空的用户名即可登录，登陆后该用户即被存储于Session对象中，页面将转向T5-1.aspx。 步骤如下1）添加2个Web窗体页，分别命名为“T5-2.aspx”和“T5-3.aspx”。 2）在T5-2.aspx页面中添加1个TextBox控件、1个Button控件和1个Lable控件，ID分别为usrname、Login、和LblDesc，Button控件的Text属性设置为“登录“，如图T5-2所示设计页面。 3）添加登录按钮的Click事件处理代码，代码如下ProtectedSubLogin_Click(ByVal senderAs Object,ByVal eAs System.EventArgs)Handles Login.Click Ifusrname.Text=ThenLblDesc.Text=错误的用户名!请重新输入。 Else Session(usrname)=usrname.Text Response.Redirect(T5-3.aspx)EndIfEnd Sub4）运行该程序，查看程序运行结果，如图T5-2所示。 24图T5-2登录界面2.3实验题3设计“在线讨论区“的讨论信息的输入和显示程序i，使用户登录后进入讨论区。 讨论区分为消息显示和消息输入两个部分，如图T5-3所示。 用户输入的讨论信息保存于Application对象中。 为避免占用过多存储空间，Application对象中只保存最近20条消息。 步骤如下1)在T5-3.aspx页面中添加2个TextBox控件和1个Button控件，ID分别为“cont”、“cont1”和“talk”，其中Button控件的Text属性设置为“发言”，设计页面如图T5-3所示。 图T5-3“在线讨论区”2)添加Button控件的Click及Page的Load事件处理代码，代码如下ProtectedSubPage_Load(ByVal senderAs Object,ByVal eAs System.EventArgs)Handles Me.Load25If Session(usr