ASP.net程序设计模拟试卷

1、ASP.net程序设计模拟试卷一、选择题（每小题1分，共20分）1请判断下列语句执行完毕后，a、b、c的值a="1" + 1b="1" + "1"c="1" & "1" (A) "11","11","11" (B) 2,"11","11" (C) "11",2,"11" (D) "11","11",22 执行如

2、下语句后，Sum的值为：Dim a(5) as IntegerDim Sum as IntegerSum=0For I=0 To 5a(I)=ISum=Sum + a(I)Next (A) 0 (B) 5 (C) 15 (D) 203执行完 a=5 Mod 3 语句后，a的值为：(A) 0 (B) 2 (C) 3 (D) 54执行完 a=5>3 And "a"<"c" 语句后，a的值为：(A) True (B) False (C) 1 (D) 05下面 a=Trim(" vbscript") & Rtrim(&qu

3、ot; good") 语句后，a的值：(A) " vbscript good"(B) "vbscript good"(C) " vbscriptgood"(D) "vbscriptgood"6下面哪个函数可以返回当前的日期和时间：(A) Now (B) Date (C) Time (D) Today7首先定义数组Dim strA(3,4) As String ，那么strA.Length=( )(A) 4 (B) 5 (C) 12 (D) 208请问Mid(“八千里路云和月”，3，2)的返回值是（ ）？

4、(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("RE

5、MOTE_IP")(C) Request.ClientCertificate("REMOTE_ADDR ")(D) Request.ClientCertificate ("REMOTE_IP ")12执行完如下语句后，页面上显示的内容为：( )<script language=”VB” runat=”server”>Sub page_load(obj as object,e as eventargs)Response.Write ("A")Response.EndResponse.Write("B&qu

6、ot;)Response.Write("C")End sub</script> (A) A (B) AB (C) AC (D) ABC13请问下面程序段执行完毕，页面上显示内容是什么( )<%Response.Write (“<a href=''>新浪</a>”)%>(A) 新浪 (B) <a href=''>新浪</a>(C) 新浪（超链接） (D) 该句有错，无法正常输出14Session对象的默认有效期为多少分钟 ( )(A) 10 (B) 15 (C) 20 (D

7、) 应用程序从启动到结束15请问下面程序段执行完毕，页面上显示内容是什么: ( )<%Response.Write Server.HTMLEncode(“<a href=''>新浪</a>”)%>(A) 新浪 (B) <a href=''>新浪</a>(C) 新浪（超链接） (D) 该句有错，无法正常输出16对于文件上传控件HtmlInputFile，.PostedFile.FileName表示的是（ ）(A) 服务器端文件物理路径 (B) 客户端文件物理路径(C) 服务器端文件名称 (D) 客户端文件

8、名称17如果需要确保用户输入大于30的值，应该使用（ ）验证控件(A)RequiredFieldValidator (B) CompareValidator(C)RangeValidator (D) RegularExpressionValidator 18如果要输入如(86)-10-12345678形式的电话号码，应该使用正则表达式（ ）(A) (0-92)-0-92-0-98 (B) (0-92)-0-9 10(C) 0-92-0-9 2-0-9 8 (D(0-92)0-920-9819.如果定制了列，又希望排序 ，需要在每一个列设置（ ）属性(A) Sort (B) SortExpres

9、ion (C) SortField (D) DataFieldText20.一个业务对象文件中可以包含（ ）个类(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(&quo

10、t;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的立方和，请填写其中的空格。<%Function Cube(a,b)Dim I,SumSum= For I= a T

11、o bSum= Next =SumEnd Function%>7. 下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。<%Dim theday as Integertheday= (Today()Select Case thedayCase ("<img src='p1.jpg'>")Case Else ("<img src='p2.jpg'>")End Select%>8. 很多网站要求客户必须

12、登录后才能访问，如果客户没有登录，就直接访问网站的某个页面，应该将其引导到首页。请据此填写下面的空格。<%If Session("UserName")= Then ("index.asp")End If%>9. 下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。<%Dim varNumbervarNumber=Request.Cookies("number")If ThenvarNumber=1ElsevarNumber=varNumber+1End If. =varNumber. =#2030-1-1#

13、Response.Write "您是第" & varNumber & "次访问本站"%>10. 假如Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称，下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。<%Dim UserOnLine,NumberUserOnLine=Application("UserOnLine")Number= (UserOnLine) '返回该数组的最大下标For I=0 To NumberR

14、esponse.Write（ ）Next%>11. 对于如下图1的数据表link，请填写下面的SQL语句中的空格：图1查询2007年1月1日到2007年7月1日之间的提交的网站，并按提交日期降序排列strSql="Select * From link Where submit_date #2007-1-1# And #2007-7-1# Order By submit_date "查询2007年1月1日以后提交的网站总数目strSql="Select As Total From link Where submit_date > #2007-1-1#&q

15、uot;12. 针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link。Message.Text & =“<table>”Message.Text & =“<tr>”Message.Text & =“<td>网站名称</td><td>网站地址</td><td>提交日期</td>”Message.Text & =“</tr>” '以下

16、连接数据库建立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 & = “<tr>”Message.Text & = “<td.>” & _ & ”</td>” 此处显示网站名字me

17、ssage.Text &= "<td><a href='http:/ _ '>" & dr.Item("url") & "</a></td>" 此处显示网址Message.Text & = “<td.>” & _ & ”</td>” 此处显示提交日期Message.Text & = “</tr>” LoopMessage.Text & =“</table>”Co

18、nn.close() 13. 针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请<% Import Namespace="System.Data" %><% Import Namespace="System.Data.OleDb" %><script language="VB" runat="server">Sub Page_Load(Sender As Object, E As EventArgs)IF Not Page.IsPostBack Then

19、Call BindData() End IfEnd SubSub MyDataGrid_Page(sender As Object, e As DataGridPageChangedEventArgs)_ Call BindData() End SubSub BindData()Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("wwwlink.mdb") Dim adp As New OleDbDataAd

20、apter("select * from link", conn) Dim ds As New DataSet() adp.Fill(ds,"link") MyDataGrid.DataSource=_ '指定数据源 MyDataGrid.DataBind() End Sub</script><html><body><h4 align="center">网络导航</h4><form runat="server"><ASP:Data

21、Grid id="MyDataGrid" HeaderStyle-BackColor="#BCBCBC" Width="100%” _ OnPageIndexChanged="MyDataGrid_Page" PagerStyle-HorizontalAlign="Right" PagerStyle-Mode="NumericPages" runat="server"/></form></body></html>14. 下面

22、这段程序，打开本文件夹下的文本文件test.txt，并读取其中所有的内容显示在页面上，请填写其中的空格。<% Import Namespace="System.IO"%><script language="VB" runat="server">Sub Page_Load(Sender As Object, E As EventArgs)'建立StreamReader对象Dim sr As New _ Do While _ message.Text &=_ '读取1行，并移动到下1行mes

23、sage.Text &="<p>" Loopsr.Close End Sub</script><html><body><h4 align="center">读取文本文件</h4><asp:label id="message" runat="server"/></body></html>15. 将COM组件转换成.NET组件的命令是_三、编程题（共40分）1请编写代码，实现图2的功能。图22请编写代码，实现图3的功能。图32请编写代码，实现图4的功能。图3参考答案一选择题（每题1分，共20分）BCBAB ADBDA AACCB BBABC二填空题（每题1分，共20分）1 (3). .NET Framework SDK (.NET 框架开发工具包)（4） MDAC (Microsoft数据访问