vb综合考试试题

1303班9月16日第一次综合考试试题

一、单选（本大题共25小题，每小题2分，共 50分）

1. 设a=2,b=3,c=4,d=5,表达式NOT a<=c OR 4*c=b^2 AND b<>a+c的值是( )。

A、-1

B、 1

C、True

D、 False

2、假设A="Good Morning."，B="Afternoon,Boys."，下列表达式中结果是"Good Boys."的是_ __。

A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5)

C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5)

3、下列叙中不正确的是（）

A、变量名中的第一个字符必须是字母

B、变量名的长度不超过255个字符

C、变量名可以包含小数点或者嵌的类型声明字符

D、变量名不能使用关键字

4、下列关于变体类型的描述，其中正确的是_______。

A. 变体是一种没有类型的数据

B. 变体的空值就表示该变体的值为0

C. 一个变量没有定义就赋值，该变量即为变体类型

D. 变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值

5、执行 PRINT 18/2*3,-3^2 命令后，输出结果为_____。

A. 3 9

B. 3 -9

C. 27 -9

D. -9 27

6、下面的_______语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。

A. Print "A";Tab(9);"b"

B. Print "A";Tab(10);"b"

C. Print "A";Space(10);"b"

D. Print "A";Tab(8);"b"

7、语句Print Format（"HELLO", "<"）的输出结果是______。

A. HELLO

B. hello

C. He

D. he

8、如果X是一个正的实数，将千分位四舍五入，保留两位小数的表达式是

a) 0.01*int(x+0.05) b) 0.01*int(100*(x+0.005))

c) 0.01*int(100*(x+0.05)) d) 0.01*int(x+0.005)

9、变量未赋值时，数值型变量的值为( )

a) 0 b) 空 c) 1 d) 0.1

10、A=5，B=8，则(B-A)*Rnd+A的结果是介于______之间的数。

A. 5～8

B. 0～5

C. 3～5

D. 0～3

11、若x=5,y=6,则表达式x+y=11的值是_____。

a) x+y=11 b) 11 c) True d) False

12、下列过程中对形参的定义正确的是( )

A. Sub F(x%，3)

B. Function M(ByVal x%)As Boolean

C. Sub FF(x%，y%) AS Integer

D. Function MM(x+y)

13、下列有关过程的叙述中错误的是（）。

A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

B.Sub过程中不能嵌套定义Sub过程

C.Sub过程中可以嵌套调用Sub过程

D.事件过程可以像通用过程一样由用户定义过程名

14、执行语句Print format(5459.478,"##,#0.00")，正确的输出是______。

a)5459.48 b) 5，459.48 c)5，459，478 d) 5，459.47

15、表达式Left("how are you ",3)的值是_____。

a) how b) are c) you d) ho

16、以下不属于Visual Basic系统的文件类型是 _____

a) .frm b) .cls c) .bat d) .vbp

17、以下程序段的运行结果是___ ____。

Private Sub Form_Click()

m = 1

n = 1

Do

m = m * n

n = n + 1

Loop Until n > 4

Print m

End Sub

A. 25

B. 45

C. 55

D. 24

18、如果有声明Dim a(5) As Integer，则该数组共占用______个字节存。

a) 5 b) 6 c) 10 d) 12

19、在Visual Basic设计界面中不能隐藏的窗口是______。

a)工程窗口 b) 属性窗口 c) 立即窗口 d) 窗体窗口

20、8.6787E+8写成普通的十进制数是_______。

a)86787000 b)867870000 c) 8678700 d)8678700000

21、从键盘上输入一个实数nu，执行Visual Basic语句，利用字符串函数对该数进行处

理，如果输出的容不是字符END，则程序输出的容是 ( )

nu=InputBox("nu=")

n＄=Str＄(nu)

p=InStr(n＄,".")

If p>0 Then

Print Mid＄(n＄,p)

Else

Print "END"

End If

A．用字符方式输出数据nu B．输出数据的整数部分

C．输出数据的小数部分+小数点（包括小数点）

D．只去掉数据中的小数点，保留所有数字输出

22、Visual Basic中如果在立即窗口中执行以下操作，则输出的结果是( ) m = 123: n = 145

p = Len(Str＄(m) + Str＄(n))

Print p

A．2 B．4 C．5 D．8

23、执行如下程序段时，从键盘输入-5，输出的结果是_______。

x=-5

s=Val(InputBox("请输入s的值:"))

Select Case s

Case Is>0

y=x+1

Case Is=0

y=x+2

Case Else

y=x+3

End Select

Print x;y

A. -5 -2

B. -5 -4

C. -5 -3

D. -5 -5

24、执行下面Visual Basic程序，最后输出s是（）

Dim a As Integer, i As Integer

Dim b As Integer, j As Integer

Dim s As Integer

a = 5

b = 10

s = 0

For i = 1 To a

b = 5

For j = 1 To b

s = s + b

b = b - 1

Next j

Next i

Print s

A. 15

B. 30

C. 45

D. 75

25、以下说法不正确的是（）

A．使用ReDim语句可以改变数组的维数

B．使用ReDim语句可以改变数组的类型

C．使用ReDim语句可以改变数组每一维的大小

D．使用ReDim语句可以对数组中的所有元素进行初始化

二、判断题（每题1分，共8分）

1. VB中，变量按其作用围来说可以分为全局变量、模块级变量和局部变量三种类型（）

2. Erase语句可以释放存中常规数组所占的空间。（）

3. 静态局部变量是在过程中用Static语句声明的。（）

4. 变体型变量的数据类型是由赋给它值的数据类型决定。设A的类型为变体型，执行A="True"后则A的类型为逻辑型。（）

5. Dim X As Boolean, Y

X = True

Y = 0

Print X > Y

程序的输出结果为False（）

6. 任意整数X十位上的数字可以表示为(X MOD 100 - X MOD 10)\10。（）

7. Visual Basic具有三种基本的流程控制结构：顺序结构、分支结构和循环结构。（）

8. 在Visual Basic中，调用子过程时，如果实参是数组，则形式参数也为数组，而且形式参数的数组不能加括号。（）

三．填空：（本大题共12分，每空2分）

1、假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______。

2、根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，

_____、模块变量和全局变量。

3、以下循环的执行次数是_____。

K=0

Do While k<=10

k=k+1

Loop

4、函数Len("Hello!"+Space(2)+Mid("Shanghai",5,3))的值是_______。

5、下列程序的执行结果为______。

A="1"

B="2"

A=Val(A)+Val(B)

B=Val("12")

If A<>B Then Print A-B Else Print B-A

6、数学表达式Cos2 (a+b)+5e2+lg3相对的VB表达式是________________

五、读程序，写结果（每题5分，共20分）

1、Private Sub Command1_Click()

a = 0: s = 0

For i = 1 To 2

For j = 1 To 4

If j Mod 2 <> 0 Then

a = a + 1

End If

a = a + 1

s = s + 1

Next j

Next i

Print "a="; a, "s="; s

End Sub

2、Option Base 1

Dim a()As Integer

Private Sub Form_Click()

Dim i As Integer，j As Integer

ReDim a(2，2)

For i=1 To 2

For j=l To 2

a(I,j)=i*2+j

Print “a(”；i；“，”；j；“)=”；a(i,j)；

Next j

Print

Next i

End Sub

3、Private Sub form_click()

Dim a(3, 3) As Integer, I As Integer

Dim j As Integer, k As Integer, n As Integer

n = 9

For k = 5 To 1 Step -1

If k >= 3 Then

For I = 1 To 6 - k

a(k - 3 + I, I) = n

n = n - 1

Next I

Else

For I = 1 To k

a(k - I + 1, 3 - I + 1) = n

n = n - 1

Next I

End If

Next k

For k = 1 To 3

For I = 1 To 3

Print a(k, I);

Next I

Print

Next k

End Sub

4. Private Sub Form_Click()

Dim x() As String

a = " How are you!"

n = Len(a)

ReDim x(1 To n)

For i = n To 1 Step -1

x(i) = Mid(a, i, 1)

Next I

For i = 1 To n

Print x(i);

Next i

End Sub

六．程序改错。（本大题共2个小题，每题5分，共10分，每个程序有两处错误，请在

答题纸上写出错误行代码和改正后的代码。）

1. 下面的程序是将一个十进制整数转换成二进制数，转换后按位放到一维数组A中，然后输出。如输入一个数据8，将输出1000。程序中有两处错误，请改正

Dim a(10) As Integer

Dim k As Integer

Dim yu As Integer

Dim i As Integer

i = 1

k = InputBox("请输入一个数")

Do While k <> 0

yu = k / 2

a(i) = yu

k = k \ 2

i = i + 1

Loop

For yu = i To 1 Step -1

Print a(yu);

Next yu

2．婷今年17岁，植了3棵树。以后每年多植一棵，问他到什么时候才能累计种到或超过100棵树？

Dim age As Integer, tree As Integer

age = 17

tree = 3

Do

age = age - 1

tree = tree + age + 14

Loop Until tree = 100

Print "到"; age; "岁时种到100棵树"

七、程序填空（每空5分，共20分）

1．下列程序功能是：产生10个1～99随机奇数，将其显示出来，用冒泡法按从小到大排列输出：

Option Base 1

private sub form _click()

dim a%(10)

i=1

Do while i<=10

x=int(rnd*99+1)

if x Mod 2 <>0 then

a(i)=x:print a(i);

i=i+1

end if

Loop

print

for i=1 to 9

for j=1 to ____________

if _______________ then

t=a(j):a(j)=a(j+1):a(j+1)=t

end if

Next j

next i

for i=1 to 10

print a(i);

next i

End sub

2．程序功能：有一分数序列：2/1、 2/3、 5/3 、 8/5 、 13/8、 21/13……求出这个数列的前20项之和。

Private Sub Command1_Click()

Dim s as single

Dim a as integer, b as integer, c as integer

a = 1:

b = 2:s=0

For i = 1 To 20

_____________

c = a + b

a = b

_____________

Next i

Print s

End Sub