VB期末复习题.doc

《Web技术开发与应用》复习题库
一．单项选择题
1.以下哪一个关键字的声明可实现局部变量在整个程序运行中一直存在？( )
A. Dim B. Private
C. Static D. Public
2．已知源代码：<% Dim route() As String : route = Split("localhost/default.jsp","/") : Response.Write(route(1))%>，则route(1)的值为 ( )
A. localhost/default.jsp B. default.jsp
C. localhost D. /default.jsp
3．在ASP.NET中，将信息记录在客户端的磁盘中，使用的对象是( )
A．Cookie B．Session
C．Application D. Response
4. 当执行以下程序时，在“Label1”的标签框内将显示( )
<script language="vb" runat=server>
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
</script>
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的值为( )
<% Dim a, b, c As Integer
a = 3: b = 4
If a > 5 Then
If b < 4 Then
c = a - b
Else
c = b - a
End If
ElseIf 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. -1
8. 变量A%的类型是( )
A．Boolean B．Single
C．Integer D．String
9．在.net中，以下可让服务器终止当前程序的执行，而转去执行指定程序并不再返回的是 ( )
A. Server.Execute B. Server.Transfer
C. Server.mappath D. Server.redirect
10．在VB.NET中，以下关于类的描述正确的是 ( )
A．可以有多个父类 B．不可以派生类
C．不可以继承 D．只允许单继承
11．源代码为：<% Dim IntA, route(8, 5) As Integer : IntA = UBound(route, 1) : Response.Write(IntA)%> ，则IntA = ( )
A．6 B．7
C．8 D．9
12. 函数Mid("Youareverygood!", 7, 8)返回的值为： ( )
A．verygood! B．everygoo
C．verygood D．veryg
13．负责传递SQL指令，实现对数据库的请求操作功能的组件是( )
A. Commamd B．Connection
C．RecordSet D. Parameter
14．有如下语句，执行该段语句的循环次数是( )
<% Dim s, I, j As Integer
For I = 1 To 3
For j = 3 To 1 Step -1
s = I * j
Next j
Next I
Response.Write(s) %>
  A.3        B. 9
  C. 10               D. 12
15．cmdSum_Click()过程如下，则第三次单击命令按钮cmdSum后，Sum的值为( )
Static Private Sub cmdSum_Click()
Dim Sum as integer
Sum=2*Sum+1
End Sub
  A. 3      B. 5
  C. 6       D. 7
16．在一个窗体上建立两个文本框，名称分别为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. 显示：
17．Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是( )
A. 窗体、控件、模块 B. 控件、属性、事件
C. 窗体、控件、过程 D. 属性、事件、方法
18．已知代码如下：
<% Dim strTmp As String : Dim i, j As Integer : strTmp = "abc王明"
i=System.Text.Encoding.Default.GetBytes(strTmp).Length： j = strTmp.Length
Response.Write(i & ",") : Response.Write(j)%>
则i,j输出的值分别为： ( ) 
A. 5，5 B. 7，5
C. 7，6 D. 7，7
19.设语句为<% Dim y As Date : y = DateAdd(DateInterval.Month, 3, #6/20/2011#) : Response.Write(y)%>，则输出结果为 ( )
A. 2011-6-21 B. 2011-6-23
C. 2011-9-20 D. 2012-9-20
20．设执行以下程序段时依次输入1、3、5，执行结果为 ( )
<% Dim a(4), k As Integer
Dim b(4) As Integer
For K = 0 To 2
a(K + 1) = Val(InputBox("请输入数据："))
b(3 - K) = a(K + 1)
Next K
Response.Write(b(K)) %>
A.0 B. 1
C. 3 D. 5
21. 删除字符串前导和尾随空格的函数是( )
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. 数值或字符串(视输入情况而定)答案：A
26. 函数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) & "<br>")
Next X
End Sub
请回答：Call Form_click()过程后，其结果为（ ）。
3.阅读以下程序，将输出结果写在答题纸上。
<Script Language="VB" Runat="Server">
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 Function
Sub Page_Load(sender As Object, e As EventArgs)
Dim i,j As Integer
Response.Write("<Html><Body><center>")
Response.Write("<Table border=1 Cellspacing=0 Cellpadding=0 >")
Response.Write("<Tr>")
For i = 1 To 5
Response.Write("<Td>")
Response.Write(i & "</td>")
Next
Response.Write("<Tr>")
For j = 1 To 5
Response.Write("<Td>")
Response.Write(factorial(j))
Response.Write("</Td>")
Next
Response.Write("</Tr>")
Response.Write("</Table></Body></center></Html>")
End Sub
</Script>
4. "窗体中有一个名称为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.gif～9.gif表示。试结合上下文将空缺代码填充完整。

题24图
<Script language="VB" runat="Server">
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("<img src='image\" & ImgName & ".gif'>")
Next
End Function
</Script>
<Html><Head><Title>访客计数器</Title></Head><Body><H1><Center>访客计数器</Center></H1><Hr><P Align="Center"><Font Size=6>您是第<%( 3 )%>位访问者</Font></P></Body></Html>
2. 案例说明：输出如“题25图”所示的“*”号形状，并设置脚本运行的超时时间为30秒，同时统计输出“*”号所花的时间；此外，使用for each/in/next语句循环输出数组 personal() = {"张三，", "某高校教师,", "男, "，"教授。"}的字符串。源代码如下，请根据上下文将空缺的代码填充完整。
<script runat="server" language="vb">
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("<p align=center>")
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("</p>")
End While
endness = Now
timetatal = 60 * (CType(Minute(endness), Integer) - CType(Minute(start), Integer)) + (CType(Second(endness), Integer) - CType(Second(start), Integer))
Response.Write("<br><center>")
Response.Write("输出以上内容用时：" & timetatal & "秒</center>")
Response.Write("<hr align=center width=300 color=red>")
Dim personal() As String = {"张三，", "某高校教师，", "男，", "教授。"}
Dim introduction = Nothing, Strinfo As String
For Each Strinfo In personal
introduction += Strinfo
Next
Response.Write("<center>" & "个人信息：" & introduction & "</center>")
End Sub</script>

题25图
3. 随机产生n个两位正整数（n由对话框输入，n>0)。求出其中的偶数之和，并在标签框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 = sum
End Sub
四．程序设计
1．设计用户登陆程序：用户在登录界面输入“用户名”和“密码”，点击“登录”按钮后进
行验证，若与mem.mdb数据库中member表的数据相一致，则登录成功，并转向default.aspx文件；若不符，则提示“用户名不存在或密码不对！”；若未登录，则提示“必须输入用户名和密码！”。登录界面见题26图a，member数据表设计视图见题26图b。请根据设计要求并结合以下给出的源代码，将该程序补写完整。

题26图a

题26图b “member”表的设计视图
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Language="VB" Runat="Server">
Sub Login(sender As Object, e As EventArgs)
If name.Text = "" Or pass.Text = "" Then
LblDesc.Text = "必须输入用户名和密码！"
Exit Sub
Else
Dim conn As OleDbConnection
Dim cmd As OleDbCommand
Dim connstr As String
Dim SqlStr As String
….. (接着写程序)
…..
…..
…..

</Script>
<Html><Body><H3 Align="Center"><Font Color=Red Face="黑体">用户登录界面</Font></H3>
<Form Runat="Server"><Center>
<Table BgColor="beige" Border=1 BorderColor=black Cellspacing=15>
<Tr BorderColor="beige">
<Td><B>用户名: </B></Td>
<Td><ASP:TextBox Id="name" Runat="server"/></Td> </Tr>
<Tr BorderColor="beige"> <Td><B>密码: </B></Td>
<Td><ASP:TextBox Id="pass" Runat="server" TextMode="Password" /></Td> </Tr>
<Tr BorderColor="beige" ColSpan=2> <Td></Td>
<Td><ASP:Button Text="登录" Runat="server" OnClick="Login"/></Td> </Tr></Table><Br>
<Asp:Label Id="LblDesc" ForeColor="red" Runat="server"/></Center></Form></Body></Html>
五．简述题
1．试述当前Web开发的主流技术及其优缺点。
2. 简述.NET框架应用程序的种类
答：(1) Windows窗体应用程序
Windows窗体应用程序是指运行于Windows操作系统之上的窗口式应用程序。.NET框架封装了win32API，提供一个高效的、面向对象的、可扩展的类集，是Windows应用程序开发更加简单，效率更高。
(2) 控制台应用程序
控制台应用程序是指通过命令行运行的控制台应用，此种应用程序通过DOS环境下的命令行与用户进行交互。在开发极少或根本不需要用户交互的实用工具程序时，可以使用控制台应用程序。
(3) 类库
类库模板用于创建可重用的组件，类库所形成的.dll文件可以应用于多个项目，在不同项目中只需引入.dll就可以使用此类库所提供的功能
3.简述ADO.NET访问数据库的步骤。
答：（1）建立连接（2）创建命令（3）打开连接（4）执行（5）访问（6）关闭连接
11