ASP.net程序设计模拟试卷（一) 考试日期： 考试时间： 考生信息： 系别 学号 姓名 笔试成绩 一、选释题（每小题2分，共40分) 1.请判断下列语句执行完毕后，a、b、c的值 a="1"+1 b="1"+"1" c="1"&"1" (A)"11","11","11"(B)2,"11","11"(C)"11",2,"11"(D)"11","11",2 2.行完如下语句后，Sum的值为： Dim a(5)as Integer Dim Sum as Integer Sum=0 For I=0 To 5 a(I)=I Sum=Sum +a(I) Next (A)0 (B)5 (C)15 (D)20 3.执行完a=5Mod3语句后，a的值为： (A)0 (B)2 (C)3 (D)5 4.执行完a=5>3And"a"<"c"语句后，a的值为： (A)True (B)False (C)1 D)0 5.下面a=Trim("vbscript'")&Rtrim(" good")语句后，a的值： (A)"vbscript good" (B)"vbscript good" (C)"vbscriptgood" (D)"vbscriptgood" 6.下面哪个函数可以返回当前的日期和时间： (A)Now (B)Date (C)Time (D)Today 7.首先定义数组Dim strA(3,4)As String,那么strA.Length=-() (A)4 (B)5 (C)12 (D)20 第1页共12页
第 1 页 共 12页 ASP.net 程序设计模拟试卷（一） 考试日期： 考试时间： 考生信息： 系 别___________学 号_____________姓 名_____________笔试成绩_____________ 一、选择题（每小题 2 分，共 40 分） 1．请判断下列语句执行完毕后，a、b、c 的值 a="1" + 1 b="1" + "1" c="1" & "1" (A) "11","11","11" (B) 2,"11","11" (C) "11",2,"11" (D) "11","11",2 2． 行完如下语句后，Sum 的值为： Dim a(5) as Integer Dim Sum as Integer Sum=0 For I=0 To 5 a(I)=I Sum=Sum + a(I) Next (A) 0 (B) 5 (C) 15 (D) 20 3．执行完 a=5 Mod 3 语句后，a 的值为： (A) 0 (B) 2 (C) 3 (D) 5 4．执行完 a=5>3 And "a"<"c" 语句后，a 的值为： (A) True (B) False (C) 1 (D) 0 5．下面 a=Trim(" vbscript") & Rtrim(" good") 语句后，a 的值： (A) " vbscript good" (B) "vbscript good" (C) " vbscriptgood" (D) "vbscriptgood" 6．下面哪个函数可以返回当前的日期和时间： (A) Now (B) Date (C) Time (D) Today 7．首先定义数组 Dim strA(3,4) As String ，那么 strA.Length=( ) (A) 4 (B) 5 (C) 12 (D) 20
8.请问Mid(八千里路云和月”，3,2)的返回值是()？ (A)“千里” B)“里路”(C)“里” (D)“路云” 9.如果要将一个数字88转换为字符串，可以使用() (A)88.Tostring (B)CStr(88)(C)Double.Parse(88)(D)以上都可以 l0.请问#*asp*#”.TrimStart((#)的返回值是() (A)*asp*#(B)#*asp*(C)asp (D)*asp* 11.下面哪条语句可以返回访问者的P地址 (A)Request.Server Variables("REMOTE ADDR") (B)Request.Server Variables("REMOTE IP") (C)Request.ClientCertificate("REMOTE ADDR " (D)Request.ClientCertificate("REMOTE IP") 12.执行完如下语句后，页面上显示的内容为：() Sub page_load(obj as object,e as eventargs) Response.Write ("A") Response.End Response.Write("B") Response.Write("C") End sub (A)A (B)AB (C)AC (D)ABC 13.请问下面程序段执行完毕，页面上显示内容是什么() (A)新浪 (B)新浪 (C)新浪（超链接） (D)该句有错，无法正常输出 14.Session对象的默认有效期为多少分钟() (A)10 (B)15 (C)20 (D)应用程序从启动到结束 15.请问下面程序段执行完毕，页面上显示内容是什么：() ") %> (A)新浪 (B)新浪 (C)新浪（超链接） (D)该句有错，无法正常输出 l6.对于文件上传控件HtmlInputFile,.PostedFile..FileName表示的是() 第2页共12页
第 2 页 共 12页 8．请问 Mid(“八千里路云和月”，3，2)的返回值是（ ）？ (A) “千里” (B) “里路” (C) “里” (D) “路云” 9．如果要将一个数字 88 转换为字符串，可以使用（ ） (A) 88.Tostring (B) CStr(88) (C) Double.Parse(88) (D) 以上都可以 10．请问”#*asp*#”.TrimStart(“#”)的返回值是（ ） (A) *asp*# (B)#*asp* (C) asp (D) *asp* 11．下面哪条语句可以返回访问者的 IP 地址 (A) Request.ServerVariables("REMOTE_ADDR") (B) Request.ServerVariables("REMOTE_IP") (C) Request.ClientCertificate("REMOTE_ADDR ") (D) Request.ClientCertificate ("REMOTE_IP ") 12．执行完如下语句后，页面上显示的内容为：( ) Sub page_load(obj as object,e as eventargs) Response.Write ("A") Response.End Response.Write("B") Response.Write("C") End sub (A) A (B) AB (C) AC (D) ABC 13．请问下面程序段执行完毕，页面上显示内容是什么( ) 新浪”) %> (A) 新浪 (B) 新浪 (C) 新浪（超链接） (D) 该句有错，无法正常输出 14．Session 对象的默认有效期为多少分钟 ( ) (A) 10 (B) 15 (C) 20 (D) 应用程序从启动到结束 15．请问下面程序段执行完毕，页面上显示内容是什么: ( ) 新浪”) %> (A) 新浪 (B) 新浪 (C) 新浪（超链接） (D) 该句有错，无法正常输出 16．对于文件上传控件HtmlInputFile，．PostedFile.FileName表示的是（ ）
(A)服务器端文件物理路径(B)客户端文件物理路径 (C)服务器端文件名称 (D)客户端文件名称 17.如果需要确保用户输入大于30的值，应该使用()验证控件 (A)RequiredField Validator (B)Compare Validator (C)RangeValidator (D)RegularExpression Validator 18.如果要输入如(86)-10-12345678形式的电话号码，应该使用正则表达式() (A)0-9]){2)-[0-9]2}-[0-9]{8}(B)[0-9])2)-[0-9]{10; (C)[0-9]){2}-[0-9]{2}-[0-9]{8}(D([0-9])2)[0-9]{2[0-9]{8} 19.如果定制了列，又希望排序，需要在每一个列设置()属性 (A)Sort (B)SortExpresion (C)SortField (D)DataFieldText 20.一个业务对象文件中可以包含()个类 (A)1(B)2(C)若干 (D)以上都不对 二、填空题（每空1分，共40分） 1.要正确运行ASP.NET,服务器端必须安装如下软件： (1).Windows 2000 Professional Windows 2000 server Windows2000 Advance Server或Windows XP Professional或更高版本， (2)、IIS5.0 Internet信息服务管理器5.0) (3) (4) 2.执行完a=Left"vbscript",2)&Mid("vbscript'",3,4)&Right("vbscript",2)后，a的值 为 3. 语句a=DateAdd(" ",10,Date(0)将返回10天后是几号。 4. 语句b=lnt(10* )+1)将返回1到10之间的随机整数。 5.在数据库的表中，纵的一行叫做一个 ,横的一行叫做一个 6. 下面是一个函数，用来返回从a到b的立方和，请填写其中的空格。 7.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示 pl.jpg,其它时间显示p2jPg。请填写完整下面的程序。 <% 第3页共12页
第 3 页 共 12页 (A) 服务器端文件物理路径 (B) 客户端文件物理路径 (C) 服务器端文件名称 (D) 客户端文件名称 17．如果需要确保用户输入大于30的值，应该使用（ ）验证控件 (A)RequiredFieldValidator (B) CompareValidator (C)RangeValidator (D)RegularExpressionValidator 18．如果要输入如(86)-10-12345678形式的电话号码，应该使用正则表达式（ ） (A) \([0-9]){2}\)-[0-9]{2}-[0-9]{8} (B) \([0-9]){2}\)-[0-9] {10} (C) [0-9]) {2}-[0-9] {2}-[0-9] {8} (D\([0-9]){2}\)[0-9]{2}[0-9]{8} 19.如果定制了列，又希望排序 ，需要在每一个列设置（ ）属性 (A) Sort (B) SortExpresion (C) SortField (D) DataFieldText 20.一个业务对象文件中可以包含（ ）个类 (A) 1 (B) 2 (C) 若干 (D) 以上都不对 二、填空题（每空 1 分，共 40 分） 1. 要正确运行 ASP.NET，服务器端必须安装如下软件： （1）、Windows 2000 Professional 或 Windows 2000 server 或 Windows2000 Advance Server 或 Windows XP Professional 或更高版本， （2）、IIS5.0(Internet 信息服务管理器 5.0) （3）、 （4）、 2. 执行完 a= Left("vbscript",2) & Mid("vbscript",3,4) & Right("vbscript",2) 后，a 的值 为 。 3. 语句 a=DateAdd(" ",10,Date()) 将返回 10 天后是几号。 4. 语句 b=Int(10 * ) +1) 将返回 1 到 10 之间的随机整数。 5. 在数据库的表中，纵的一行叫做一个 ，横的一行叫做一个 。 6. 下面是一个函数，用来返回从 a 到 b 的立方和，请填写其中的空格。 7. 下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示 p1.jpg，其它时间显示 p2.jpg。请填写完整下面的程序。 <%
Dim theday as Integer theday=. (Today()) Select Case theday Case ("") Case Else ("") End Select %> 8.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页 面，应该将其引导到首页。请据此填写下面的空格。 9.下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。 l0.假如Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称， 下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。 11.对于如下图的数据表ik,请填写下面的SQL语句中的空格： 第4页共12页
第 4 页 共 12页 Dim theday as Integer theday= (Today()) Select Case theday Case ("") Case Else ("") End Select %> 8. 很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页 面，应该将其引导到首页。请据此填写下面的空格。 9. 下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。 10. 假如 Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称， 下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。 11. 对于如下图的数据表 link，请填写下面的 SQL 语句中的空格：
围1ink:表 宇段名称 数据类型 说明 Ylink id 自动编号 网站编号 sitename 文本 网站名字〔字段大小50) URL 文本 网站网址（字段大小100） intro 备注 网站简介 grade 数字 网站推荐评分，5、4、3、2、1 submit_date 日期/时间 提交日期 字段属性 图1 查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列 strSql="Select From link Where submit date #2003-1-1#And#2004-1-1# Order By submit date 查询2004年1月1日以后提交的网站总数目 strSql="Select As Total From link Where submit date>#2004-1-1#" 12.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序 段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表 名为link。 Message.Text&=“” Message.Text&=“” Message.Text&=“网站名称” 以下连接数据库 ‘建立Cnnection对象 Dim conn As New OleDbConection( ‘建立Command对象 Dim cmd as New OleDbCommand( Conn.open() 以下建立DataReader对象 Dim dr As OleDbDataReader=cmd.ExecuteReader() 以下显示数据库记录 Do While Message..Text&=“” Message.Text&=“”& &”"dr.Item("url")& "”& &”” Loop Message.Text&=“” Conn.close() 13.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请 第5页共12页
第 5 页 共 12页 图 1 查询 2003 年 1 月 1 日到 2004 年 1 月 1 日之间的提交的网站，并按提交日期将序排列 strSql="Select * From link Where submit_date #2003-1-1# And #2004-1-1# Order By submit_date " 查询 2004 年 1 月 1 日以后提交的网站总数目 strSql="Select As Total From link Where submit_date > #2004-1-1#" 12. 针对上面图 1 所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序 段中的空格。假设数据库文件 wwwlink.mdb 和本文件存放在同一个文件夹下，数据表 名为 link。 Message.Text & =“” Message.Text & =“” Message.Text & =“网站名称网站地址提交日期” Message.Text & =“” '以下连接数据库 ‘建立 Cnnection 对象 Dim conn As New OleDbConection( _________________________) ‘建立 Command 对象 Dim cmd as New OleDbCommand(_______________________________________) Conn.open() '以下建立 DataReader 对象 Dim dr As OleDbDataReader=cmd.ExecuteReader() '以下显示数据库记录 Do While Message.Text & = “” Message.Text & = “” & ________________ & ”” ‘此处显示网站名字 message.Text &= "" & dr.Item("url") & "" ‘此处显示网址 Message.Text & = “” & ________________ & ”” ‘此处显示提交日期 Message.Text & = “” Loop Message.Text & =“” Conn.close() 13. 针对上面图 1 所示，下面是分页显示所有网站的名称的语句，每页显示 10 条记录，请
Sub Page Load(Sender As Object,E As EventArgs) IF Not Page.IsPostBack Then Call BindData() End If End Sub Sub My DataGrid_Page(sender As Object,e As DataGridPageChangedEventArgs) Call BindData() End Sub Sub BindData() Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.Mappath("wwwlink.mdb")) Dim adp As New OleDbDataAdapter("select from link",conn) Dim ds As New DataSet() adp.Fill(ds,"link") MyDataGrid.DataSource= ·指定数据源 MyDataGrid.DataBind() End Sub 网络导航 14.下面这段程序，打开本文件夹下的文本文件test.txt,并读取其中所有的内容显示在页面 上，请填写其中的空格。 Sub Page Load(Sender As Object,E As EventArgs) '建立StreamReader对象 Dim sr As New Do While message.Text & 读取1行，并移动到下1行 message.Text &="" 第6页共12页
第 6 页 共 12页 Sub Page_Load(Sender As Object, E As EventArgs) IF Not Page.IsPostBack Then Call BindData() End If End Sub Sub MyDataGrid_Page(sender As Object, e As DataGridPageChangedEventArgs) _______________________________________________ Call BindData() End Sub Sub BindData() Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.Mappath("wwwlink.mdb")) Dim adp As New OleDbDataAdapter("select * from link", conn) Dim ds As New DataSet() adp.Fill(ds,"link") MyDataGrid.DataSource=________________ ' 指 定 数 据 源 MyDataGrid.DataBind() End Sub 网络导航 14. 下面这段程序，打开本文件夹下的文本文件 test.txt，并读取其中所有的内容显示在页面 上，请填写其中的空格。 Sub Page_Load(Sender As Object, E As EventArgs) '建立 StreamReader 对象 Dim sr As New ___________________________________________________ Do While _________________________ message.Text &=______________ '读取 1 行，并移动到下 1 行 message.Text &=
Loop sr.Close End Sub 读取文本文件 15.将COM组件转换成NET组件的命令是 三、编程题（每空10分，共30分） 1.请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可 容水水容水睿水米睿水 *米**水*水** 本米本东水茶水* 本米本本水茶水 客水米客水 *米米*水 *米米* *水* *水 2.利用Insert语句可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中 网站名称为“搜狐”，网站地址为“ww.sohu.com”,网站简介为“门户网站”，网站推荐评 分为4，提交日期为当天。 注意：程序的开头部分已经给出。 Sub Page Load(Sender As Object,E As EventArgs) … End Sub 3.下面是利用DataGrid控件来完成针对图1所示的数据表的显示和编辑功能，大部分代码 己经给出，请写出更新过程的代码。 第7页共12页
第 7 页 共 12页 Loop sr.Close End Sub 读取文本文件 15. 将 COM 组件转换成.NET 组件的命令是__________________________________ 三、编程题（每空 10 分，共 30 分） 1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可 ********** ********* ******** ******* ****** ***** **** *** ** * 2．利用 Insert 语句可以插入记录，现在针对图 1 所示的数据表，利用插入一条记录：其中 网站名称为“搜狐”，网站地址为“www.sohu.com”，网站简介为“门户网站”，网站推荐评 分为 4，提交日期为当天。 注意：程序的开头部分已经给出。 Sub Page_Load(Sender As Object, E As EventArgs) … … End Sub 3． 下面是利用 DataGrid 控件来完成针对图 1 所示的数据表的显示和编辑功能，大部分代码 已经给出，请写出更新过程的代码
Sub Page Load(Sender As Object,EAs EventArgs) If Not IsPostBack Then Call BindData() '绑定数据 End If End Sub '单击编辑时，执行该事件过程。 Sub MyDataGrid Edit(Sender As Object,E As DataGridCommandEventArgs) MyDataGrid.EditItemIndex=CInt(E.Item.ItemIndex) Call BindData() End Sub '单击取消时，执行该事件过程。 Sub MyDataGrid Cancel(Sender As Object,E As DataGridCommandEventArgs) MyDataGrid.EditItemIndex=-1 Call BindData() End Sub '单击更新时，执行该事件过程。 Sub MyDataGrid Update(Sender As Object,E As DataGridCommandEventArgs) … .…(请在此处补全代码) End Sub Sub BindData() Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("wwwlink.mdb")) Dim cmd As New OleDbCommand("select from link",conn) Dim adp As New OleDbDataAdapter(cmd) Dim ds As New DataSet() adp.Fill(ds,"link") MyDataGrid.DataSource=DS.Tables("link").Default View MyDataGrid.DataBind() End Sub 网络导航 第8页共12页
第 8 页 共 12页 Sub Page_Load(Sender As Object, E As EventArgs) If Not IsPostBack Then Call BindData() '绑定数据 End If End Sub '单击编辑时，执行该事件过程。 Sub MyDataGrid_Edit(Sender As Object, E As DataGridCommandEventArgs) MyDataGrid.EditItemIndex = CInt(E.Item.ItemIndex) Call BindData() End Sub '单击取消时，执行该事件过程。 Sub MyDataGrid_Cancel(Sender As Object, E As DataGridCommandEventArgs) MyDataGrid.EditItemIndex = -1 Call BindData() End Sub '单击更新时，执行该事件过程。 Sub MyDataGrid_Update(Sender As Object, E As DataGridCommandEventArgs) …… ……(请在此处补全代码) End Sub Sub BindData() Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("wwwlink.mdb")) Dim cmd As New OleDbCommand("select * from link", conn) Dim adp As New OleDbDataAdapter(cmd) Dim ds As New DataSet() adp.Fill(ds, "link") MyDataGrid.DataSource=DS.Tables("link").DefaultView MyDataGrid.DataBind() End Sub 网络导航
NavigateUrl=Target="blank"runat="server"> runat="server"> runat="server"> runat="server"> 1 2 3 4 5 第9页共12页
第 9 页 共 12页 ' NavigateUrl='' Target="_blank" runat="server"/> ' runat="server"/> ' runat="server"/> ' runat="server"> 1 2 3 4 5
参考答案 一.选择题（每题2分，共40分） BCBAB ADBDA AACCB BBABC 二.填空题（每题1分，共40分） 1.(3)..NET Framework SDK(NET框架开发工具包) (4)MDAC(Microsoft数据访问组件) 2.“vbscript'" 3.d 4.Rnd或Rnd) 5.字段 记录 6.0 Sum+I^3 Cube 7.Weekday 2,3 Response.Write Response.Write 8. Response.Redirect 9.VarNumber=" Response.Cookies("number") Response.Cookies("number").Expires 10. Ubound UserOnLine(I) 11.Between Desc Count(*) 12."Provider=Microsoft.Jet.OLEDB.4.0:Data Source="&server.mapPath("wwwlink.mdb") "select from link",conn dr.Read() dr.Item("siteName") dr.Item("url") "dr.Item("url")&" dr.Item("submit date") 13.MyDataGrid.CurrentPageIndex=e.NewPagelndex DS.Tables("link").Default View AllowPaging="True"PageSize="10" 第10页共12页
第 10 页 共 12页 参考答案 一．选择题（每题 2 分，共 40 分） BCBAB ADBDA AACCB BBABC 二．填空题（每题 1 分，共 40 分） 1． (3). .NET Framework SDK (.NET 框架开发工具包) （4） MDAC (Microsoft 数据访问组件) 2． “vbscript” 3． d 4． Rnd 或 Rnd() 5． 字段 记录 6． 0 Sum+I^3 Cube 7． Weekday 2,3 Response.Write Response.Write 8． “” Response.Redirect 9． VarNumber=”” Response.Cookies(“number”) Response.Cookies(“number”).Expires 10． Ubound UserOnLine(I) 11． Between Desc Count(*) 12. "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mapPath("wwwlink.mdb") "select * from link", conn dr.Read() dr.Item("siteName") dr.Item("url") " & dr.Item("url") & " dr.Item("submit_date") 13. MyDataGrid.CurrentPageIndex = e.NewPageIndex DS.Tables("link").DefaultView AllowPaging="True" PageSize="10