VB期末复习题

《Web技术开发与应用》复习题库

一．单项选择题

1.以下哪一个关键字的声明可实现局部变量在整个程序运行中一直存在？( )

A. Dim

B. Private

C. Stati c

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．在中，将信息记录在客户端的磁盘中，使用的对象是( )

A．Cookie B．Session

C．Application D. Response

4. 当执行以下程序时，在“Label1”的标签框内将显示( )

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 Mo

d 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．在中，以下关于类的描述正确的是( )

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("Y ouareverygood!", 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的值为( ) Stati c 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(ByV al sender As Object, ByV al e As EventArgs)

TextBox2.Text = UCase(TextBox1.Text)

End Sub

则在Textbox1文本框输入:，点击“显示”按钮调用该事件后，Textbox2将( )

A. 无内容显示

B. 显示""。

C. 显示：

D. 显示：

17．V isual 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.设置命令按钮的标题文字时，应改变的属性是( )