VB期末复习题.doc

Web技术开发与应用复习题库 一单项选择题1.以下哪一个关键字的声明可实现局部变量在整个程序运行中一直存在？( ) A. Dim B. Private C. Static D. Public2已知源代码：，则route(1)的值为 ( ) A. localhost/default.jsp B. default.jsp C. localhost D. /default.jsp3在ASP.NET中，将信息记录在客户端的磁盘中，使用的对象是( )ACookie BSession CApplication D. Response4. 当执行以下程序时，在“Label1”的标签框内将显示( ) Private Sub page_load(ByVal sender As Object, ByVal e As EventArgs) Dim I, R R = 0 For I = 1 To 5 Step 1 R = R + I Next I Label1.Text = Str(R) End Sub A. 5 B. 10 C. 12 D. 15 5在vb的字符处理函数中，若设x=Strcomp(“4.0”,“c#”)，则x等于 ( )A. null B. -1 C. 0 D. 1 6若整型变量a的值为3、b的值为4，则下列程序段执行后整型变量c的值为( ) 5 Then If b 3 Then c = a * b Else c = a Mod b End If Response.Write(c) %A. 12 B. 13 C.14 D. 15 7如果将布尔常量值True赋给一个整型变量，则整型变量的值为( ) A. FALSE B. TRUE C. 0 D. -18. 变量A%的类型是( ) ABoolean BSingle CInteger DString9在.net中，以下可让服务器终止当前程序的执行，而转去执行指定程序并不再返回的是 ( ) A. Server.Execute B. Server.TransferC. Server.mappath D. Server.redirect10在VB.NET中，以下关于类的描述正确的是 ( )A可以有多个父类 B不可以派生类C不可以继承 D只允许单继承11源代码为： ，则IntA = ( ) A6 B7C8 D912. 函数Mid(Youareverygood!, 7, 8)返回的值为： ( )Averygood! BeverygooCverygood Dveryg 13负责传递SQL指令，实现对数据库的请求操作功能的组件是( ) A. Commamd BConnection CRecordSet D. Parameter14有如下语句，执行该段语句的循环次数是( ) A.3 B. 9 C. 10 D. 1215cmdSum_Click()过程如下，则第三次单击命令按钮cmdSum后，Sum的值为( )Static Private Sub cmdSum_Click()Dim Sum as integer Sum=2*Sum+1End Sub A. 3 B. 5 C. 6 D. 716在一个窗体上建立两个文本框，名称分别为Textbox1和Textbox2，事件过程如下， Sub Text1_change(ByVal sender As Object, ByVal e As EventArgs) TextBox2.Text = UCase(TextBox1.Text) End Sub 则在Textbox1文本框输入:，点击“显示”按钮调用该事件后，Textbox2将 ( ) A. 无内容显示 B. 显示ASP.net。 C. 显示：ASP.NET D. 显示：17Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是( ) A. 窗体、控件、模块 B. 控件、属性、事件 C. 窗体、控件、过程 D. 属性、事件、方法18已知代码如下： 则i,j输出的值分别为： ( ) A. 5，5 B. 7，5 C. 7，6 D. 7，719.设语句为，则输出结果为 ( ) A. 2011-6-21 B. 2011-6-23 C. 2011-9-20 D. 2012-9-20 20设执行以下程序段时依次输入1、3、5，执行结果为 ( ) A.0 B. 1 C. 3 D. 521. 删除字符串前导和尾随空格的函数是( ) A. Ltrim() B. Rtrim() C. Trim() D. Lcase() 答案：C 22. 设置标签边框的属性是( ) A. BorderStyle B. BackStyle C. AutoSize D. Alignment 答案：A 23.设置命令按钮的标题文字时，应改变的属性是( ) A. text B. Name C. Caption D. title 答案：C 24.Visual basic采用的编程机制是( ) A. 面向过程 B. 面向对象 C. 事件驱动 D. 可视化 答案：C 25. Msgbox 函数返回值的类型是( ) A. 数值 B. 字符串 C. 变体 D. 数值或字符串(视输入情况而定)答案：A26. 函数int(10*rnd)是在( )范围内的整数。 A. 0, 1) B. 1, 10) C. 1, 9) D. 0,9) 答案：D 27. 函数int(abs(99-100)/2)的值为( ) A. 1 B. 0 C. “0” D. “1” 答案：B 28. 函数left(Hello, 2)的值为( ) A. He B. el C. lo D. true 答案：A 29. 将当前窗体中显示的文字及绘制的图形全部清除，可以用方法( ) A. Me.Clear B. Me.Cls C. Me= D. Me.Delete 答案：B 30. 下列各赋值语句，语法不正确的是( ) A. x+y=5 B. iNumber=15 C. Labell.caption=time D. sLength=x+y 答案：A 31. 下列类型的变量中占用字节数最小的是( ) A. Integer B. Single C. Date D. Byte 答案：D 32.下列变量名中不合法的是( ) A. strname B. 3abc C. A_one D. vaone 答案：B二程序阅读题1请阅读如下程序后，将结果写在答题纸上。 Dim x, Y, z As Integer Private Sub command_Click() Dim X As Integer X = 7 Y = 8 Call AA(Y + 1) z = BB(X) Response.Write(X & / & Y & / & Z) End Sub Private Sub AA(ByVal Z As Integer) Y = Z + x Z = x + Y End Sub Private Function BB(ByRef Y As Integer) Y = Y + 1 BB = x + Y End Function调用command_Click过程后，输出结果为：（ ）。2. 源程序如下： Dim n, i, j, x, temp As Integer Private Sub Form_click() N = 3 Dim A(3, 3) As Integer For i = 1 To n For J = i To n A(i, j) = (j - 1) * n + i Next J Next i For i = 2 To n For j = 1 To i - 1 temp = A(i, j) A(i, j) = A(j, i) A(j, i) = temp Next j Next i For X = 1 To N Response.Write(x & / & A(x, n + x - i) & / & A(x, x) & ) Next X End Sub请回答：Call Form_click()过程后，其结果为（ ）。3.阅读以下程序，将输出结果写在答题纸上。 Function factorial(ByVal number) Dim temp As Integer = 1 Dim i, icount As Integer For i = 1 To number icount += 1 temp = temp * icount Next Return temp End FunctionSub Page_Load(sender As Object, e As EventArgs) Dim i,j As Integer Response.Write() Response.Write() Response.Write() For i = 1 To 5 Response.Write() Response.Write(i & ) Next Response.Write() For j = 1 To 5 Response.Write() Response.Write(factorial(j) Response.Write() Next Response.Write() Response.Write() End Sub4. 窗体中有一个名称为Button1的命令按钮，和一个Label1控件对象，编写如下事件过程：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As String, x, i, j As Integer x = 0 n = InputBox(请输入一个大于1的整数, 输入框) For i = 1 To CInt(n) For j = 1 To i x = x + 1 Next j Next i Label1.Text = CStr(x)End Sub程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是_。三. 程序填空题1本例是访客计数器的简单设计。其中count.txt文件存储计数器数据，每当有用户访问网页时，就从count.txt文件中读出原来的数据，并将其增加1，再写回文件， 同时选择相应的图片文件组成图形方式显示访问人数。图片存放在image文件夹中，分别用0.gif9.gif表示。试结合上下文将空缺代码填充完整。题24图 Function HitCounter() As Long Dim HitStr, ImgName As String Dim i, Hit As Long Dim FSO,FileObj,TSObject As Object On Error Resume Next FSO = Server.CreateObject(Scripting.FileSystemObject) FileObj = FSO.GetFile(Server.MapPath(count.txt) 获取计数器文件名 TSObject = FileObj.OpenAsTextStream 打开计数器文件 Hit =( 1 ) 读取计数器文件中的计数值 If Session(Online) = Then 判断用户是否已在线 Hit = Hit + 1 Session(Online) = Hit 设置用户在线序号 Else Session(Online) = Hit 设置用户在线序号 End If HitStr = Trim(Str(Hit) TSObject = FSO.CreateTextFile(Server.MapPath(count.txt), True) TSObject.Write(HitStr) 更新计数值 TSObject.Close() FileObj.Close() 关闭文件 For i = 1 To Len(HitStr) 以图形方式显示计数值 ImgName = ( 2 ) Response.Write() NextEnd Function访客计数器访客计数器您是第位访问者2. 案例说明：输出如“题25图”所示的“*”号形状，并设置脚本运行的超时时间为30秒，同时统计输出“*”号所花的时间；此外，使用for each/in/next语句循环输出数组 personal() = 张三，, 某高校教师, 男, ，教授。的字符串。源代码如下，请根据上下文将空缺的代码填充完整。 Sub page_load(ByVal send As Object, ByVal e As EventArgs) Response.BufferOutput = False 关闭页面缓冲功能 Server.ScriptTimeout = 30 设置脚本运行的超时时间 Dim nstar, i, pause, timetatal As Integer Dim start, endness, time1, time2 As Date nstar = 0 start = Now() While nstar 4 nstar += 1 Response.Write() For i = 1 To (nstar * nstar) Step 2 Response.Write(*) pause = 0 time1 = Now() While pause 1 time2 = Now pause = CType(Second(time2), Integer) - CType(Second(time1), Integer) End While Next Response.Write() End While endness = Now timetatal = 60 * (CType(Minute(endness), Integer) - CType(Minute(start), Integer) + (CType(Second(endness), Integer) - CType(Second(start), Integer) Response.Write() Response.Write(输出以上内容用时： & timetatal & 秒) Response.Write() Dim personal() As String = 张三，, 某高校教师，, 男，, 教授。 Dim introduction = Nothing, Strinfo As String For Each Strinfo In personal introduction += Strinfo Next Response.Write( & 个人信息： & introduction & )End Sub题25图 3. 随机产生n个两位正整数（n由对话框输入，n0)。求出其中的偶数之和，并在标签框Labol1上显示。程序写在命令按钮Command1的click事件中。Sub Command1_Click(ByVal sender As Object, ByVal e As EventArgs) Dim n As Integer Dim i As Integer, sum As Long Dim rnddat As Decimal n = Val(InputBox(Please input a integer, Input N value) For i = 1 To n rnddat = (10 + Int(90 * Rnd() If rnddat Mod 2 = 0 Then sum = sum + rnddat End If Next i Label1.Text = sumEnd Sub四程序设计1设计用户登陆程序：用户在登录界面输入“用户名”和“密码”，点击“登录”按钮后进行验证，若与mem.mdb数据库中member表的数据相一致，则登录成功，并转向default.aspx文件；若不符，则提示“用户名不存在或密码不对！