南京工业大学VB期末考试模拟题6

安全土木化工化学vb练习题4

满分： 111 分

姓名： ________ 1、单项选择题(本题共计60 分)

(1、在过程调用中，参数的传递可以分

为 )

________________ 和 ________________ 两种方式。

A 、按值传递

B 、按地址传递

C、按参数传递

D、按位置传递

按地址传递

按参数传递

按值传递

按参数传递

2、下面的过程定义语句中合法的是________________________。()

A 、 Sub Procl (ByVal n () )

B 、Sub Procl ( n ) As Integer

C、 Function Procl (Procl )

D、 Function Procl (ByVal n )

3、在参数传递过程中，使用关键字________________ 来修饰参数，可以使之按值传递。( )

A 、 ByVal

B 、ByRef

C、 Value

D、 Reference

(4、要想在过程调用后返回两个结果，下面的过程定义语句合法的

是 )

________________ 。

A 、 Sub Procl ( ByVal n , ByVal m)

B 、Sub Procl ( n , ByVal m)

C、 Sub Procl ( n , m)

D、 Sub Procl ( ByVal n , m)

5、通用过程可以通过执行“工具”菜单中的____________ 命令来建立。( )

A、添加过程

B、通用过程

C、添加窗体

D、添加模块

6、可以在窗体模块的通用声明段中声明的是________________ 。( )

A、全局变量

B、全局常量

C、全局数组

D、全局用户自定义类型

7、当运行程序时，系统自动执行启动窗体的____________ 事件过程。( )

A 、 Load

B、Click

C、

UnLoad D、

GotFocus

8、在语句Public Sub Sort(i As Integer) 中 i 是一个按 ________ 传递的参数。( )

A、地址

B、值

C、变量

D、常量

9、下列定义Sub 过程的语句中，正确的语句是____________ 。① Private Sub Test(St As String

* 8) ② Private Sub Test(Sarray( ) As String * 5) ③ Private Sub Test(Sarray( ) As String) ④ Private Sub Test(St As String) ( )

A、①②

B、①④

C、②③④

D、①②③④

10、在窗体模块的通用声明处有如下语句，会产生错误的语句是____________ 。① Const A As Integer=25 ② Public St As String * 8 ③ ReDim B(3) As Integer ④ Dim Const X As Integer=10 ( )

A 、①②

B 、①③

C、①②③

D、②③④

11、在窗体 Form1 中用“ Public Sub Fun(x As Integer,y As Single)”定义过程Fun，在窗体Form2中定义了变量i 为 Integer,j 为 Single ，若要在Form2 的某事件过程中调用Form1 中的 Fun 过程，则下列语句中，正确的语句有____________ 个。① Call Fun(i,j)② Call Form1. Fun(i,j)③

Form1.Fun(i),j ④ Form1.Fun i+1,(j)( )

A 、 1

B、2

C、 3

D、 4

12.某过程的说明语句中，正确的数组说明语句是 ____________。

Const N as integer=4

Dim L as integer

①.Dim X (L) As Integer

②.Dim A(K) As Integer

Const K As Integer=3

③.Dim B(N) As Integer

④.Dim Y(2000 To 2008) As Integer

A.①②④

B.①③④

C.③④

D.②③

13、程序中的不同过程之间，不能通过

模块级变量③形参与实参结合④静态变量____________ 进行数据传递。

( )

①全局变量②窗体或

A 、①②④

B 、①②③

C、②④

D、④

14、调用由语句Private Sub Convert(Y As Integer)

句是 ____________ 。( )

定义的Sub 过程时，以下不是按值传递的语

A 、 Call Convert ((X))

B 、Call Convert(X*1)

C、 Convert (X)

D、 Convert X

15、 Sub 过程和 Function 过程最根本的区别是________________ 。( )

A 、 Sub 过程可以使用 Call 语句或直接使用过程名调用，而

B 、Function 过程可以有参数， Sub 过程不可以

Function过程不可以

C、两种过程参数的传递方式不同

D、 Sub 过程的过程名不能返回值，而Function过程能通过过程名返回值

16、在窗体模块的通用声明段中声明变量时，不能使用____________ 关键字。()

A 、 Dim

B 、Public

C、 Private

D、 Static

(17、假定已定义了一个过

程 )

Sub Add(a As Single, b As Single)，则正确的调用语句是________ 。

A 、 Add (12 , 12)

B 、Call Add( 2 * x , Sin(1.57) )

C、 Call Add x , y

D、 Call Add(12 ,12, x)

18.单击一次命令按钮后，下列程序代码的执行结果为

Private Sub proc(a() As Integer)

Static i As Integer

Do a(i) = a(i) + a(i + 1)

i= i + 1

Loop While i < 2

End Sub

Private Sub Command1_Click()

_______

Dim m As Integer, i As Integer, x(10) As Integer

For i = 0 To 4

x(i) = i + 1

Next i

For i = 1 To 2

Call proc(x)

Next i

For i = 0 To 4

Print x(i)

Next i

End Sub

A.34756

B.35745

C.12345

D.12357

19、如下程序，运行的结果是____________ 。

Dim a%,b%,c%

Public Sub pl(x%,y%)

dim c% =2*x : y=y+2 : c=x+y

End Sub

Public Sub p2( x% ， ByVal y% ）

dim c%

x=2*x : y=y+2 : c=x+y

End Sub

Private Sub Commandl_Click(

a=2: b=4: c=6

call pl(a,b)

print "a=" ; a ; "b="; b ;"c=" ; c

call p2(a,b)

print "a=" ; a ; "b="; b ;"c=" ; c

End Sub( )

A 、 a=2 b=4 c=6

a=4 b=6 c=10

B 、a=4 b=6 c=10

a=8 b=8 c=16

C、 a=4 b=6 c=6

a=8 b=6 c=6

D、 a=4 b=6 c=14

a=8 b=8 c=6

20、设有如下说明：

Public Sub Fl(n%)

?

n =3*n+4

?

End Sub

Private Sub Commandl_Click()

Dim n%, m%

n=3

m =4

?

'调用 F1 语句

End Sub

则在 Commandl_C1ick事件中有效的地址传递的调用语句是。( )

A 、 F1 n+m

B 、F1 m

C、F1 5

D、 F1 m+5

21、窗体的Name 属性为 Frm1，在窗体模块通用声明处和过程Integer,Dim K As Integer声明了两个同名变量K ，则在过程Sub1

Sub1 中分别用

中要访问全局变量

Public K As

K ，可采用

________ 。()

A 、 Frm1.K

B 、Form.K

C、 Form1.K

D、 K

22、要使 Print 方法在FormLoad 事件中起作用，要对窗体的____________ 属性进行设置。( )

A 、 BackColor

B 、ForeColor

C、 AutoRedraw

D、 Caption

23、在调用Sub 过程或 Function 过程时，采用________________ 传送相应过程的变量名、数组名、常数或表达式。( )

A、形式参数

B、实际参数

C、对象参数

D、数组参数

24、以下有关Sub 过程与 Function 过程的区别，正确的是________ 。( )

A 、 Sub 过程可以使用Call 语句或直接使用过程名调用，而Function 过程不可以

B 、Function 过程可以有形参，Sub 过程不能有形参

C、两种过程参数传递方式不同

D、 Sub 过程没有返回值，Function 过程能返回值

25、给出下列程序代码，在单击命令按钮时的输出结果是________ 。

Private Sub Command1_Click ( )

Dim x As Integer, y As Integer

x=1:y=1

For n=1 TO 3

z=FirstFunc (x, y)

Print n, z ,

Next n

End Sub

Private Function FirstFunc (x As Integer, y As Integer) As Integer

Dim n As Integer

Do While n <= 4

x=x+y

n=n+1

Loop

FirstFunc=x

End Function( )

A、16211316

B、26131116

C、123456

D、213133

Text1和Text2 中的内容，第二次单

26、给出下列程序代码在第一次单击命令按钮时文本框

击命令按钮时文本框 Text1 和 Text2 的内容。

Dim y As Integer

Private Sub Command1_Click( )

Dim x As Integer

x=2

Text1.Text=SecondFunc(FirstFunc(x), y)

Text2.Text=FirstFunc(x)

End Sub

Private Function FirstFunc(x As Integer)

x=x+y:y=x+y

FirstFunc=x+Y

End Function

Private Function SecondFunc(x As Integer, y As Integer)

SecondFunc=2*x+y

End Function( )

A 、 10,10 20,20

B 、20,20 30,30

C、 50,50 10,10

D、 10,10 58,58

27、给出下列程序代码，在单击三次命令按钮时的输出结果是________ 。

Dim x, y, z As Integer

Sub SS( )

x=x+1

y=y+1

z=z+1

Print x;y;z

Sub End

Private Sub Command1_Click ( )

Dim x, y, z

x=1: y=2: z=3

Call SS

Print x; y; z

End Sub( )

A、111

1 2 3

2 2 2

1 2 3

3 3 3

1 2 3

B、111

1 1 1

2 2 2

2 2 2

3 3 3

3 3 3

C、123

1 2 3

1 2 3

D、111

2 2 2

3 3 3

28、设有下列程序代码，在单击命令按钮时的输出结果是________ 。

Sub SS (ByVal x, ByRef y, z)

x=x+1

y=y+1

z=z+1

End Sub

Private Sub Command1_Click ( )

A=1: B=2 :C=3

Call SS (A,B,C)

Print A,B,C

)

End Sub(

A、123

B、134

C、224

D、133

29、一般来说，当变量名称相同而作用域不同时，局限性_____________ 的变量总会用"阴影 "遮住局限性不太大的变量。()

A 、大

B 、小

C、更小

D、比较小

30、在过程中定义的变量，如果希望在离开该过程后，还能保持过程中局部变量的值，则应

该使用 ___________ 关键字在过程中定义局部变量。( )

A 、 Dim

B、Private

C、 Public

D、 Static

31、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为___________ 传递。( )

A、按值

B、按地址

C、 ByRef

D、按形参

32.通用过程可以完成一项指定任务，必须由__________ 调用才行。

A. 应用程序

B. C. D.系统引发

定时器

Sub Main

(1 分)

33.以下说法正确的是。

A. 属性是对象的一部分

B. C. D.方法是对象的一部分事件是对象的一部分A、B 都正确

34、若在应用程序中用Private Sub Sub1(Xasinteger,YasSingle) 定义了子程序Sub1，调用程序中的变量I、 J 均为 Integer 型，则正确调用子程序Sub1 的 Call 语句是 ________ 。

① Call Sub1(I,J)

② Call Sub1(3.1415,1)

③ Call Sub1(3.14,234)

④ Call Sub1( “ 245 ” , “ 231.5” )( )

A、①③

B、③④

C、①②③

D、无

35、窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为__________ 。

Private Sub fun( )

Static a As Integer

a=a+2

Print a;

End Sub

Private Sub Command1_Click( )

Dim m As Integer

For m=1 To 3

Call fun

Next m

End Sub(

)

A、222

B、000

C、248

D、246

36、在窗体上添加一个命令按钮，名为

Command1 ，事件过程如下。执行结果是________ 。

Sub pb(b( ) As Integer)

For i=1 To 4

B(i)=2*i

Next i

End Sub

Private Sub Command1_Click( )

Dim a(1 To 4) As Integer

a(1)=5:a(2)=6: a(3)=7:a(4)=8

pb a

For i=1 To 4

Print a(i);

Next i

End Sub( )

A、555

51010

B、555

5510

C、5 5 10

51010

D、555

10 10 10

37、在窗体上画一个名称Command1的命令按钮和一个名称为Text1的文本框，然后编写如

下程序：

Private Sub Command1_Click()

Dim x, y, z As Integer

x = 5: y = 7: z = 0

Text1.Text = ""

Call p1(x, y, z)

Text1.Text = Str(z)

End Sub

Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)

c = a + b

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是________ 。()

A 、 0

B、12

C、

Str(z)

D、没有显示

38、 856. 窗体中添加一个命令按钮，程序运行后，输出结果为_________。

Private Sub test(x,y,z)

x = x+1: y = y + 2: z = z + 3

Print "Sub="; x; y; z

End Sub

Private Sub Command1_Click( )

a1 = 10: b1 = 17: c1 = 41

Call test(a1,b1+2,(c1))

Print "Main="; a1; b1; c1

End Sub( )

A 、 Sub=10 17 41

Main=11 17 44

B 、Sub=10 17 41

Main=11 17 44

C、 Sub=12 11 41

Main=10 11 41

D、 Sub=11 21 44

Main=11 17 41

39.阅读下列程序，其输出的结果是 ________。

Private Sub Command1_Click()

Dim a(1 To 3) As Integer

For i=1 To 3

a(i)=i

Next i

Call sub1(a)

For i=2 To 3

Print a(i)

Next i

End Sub

Public Sub sub1(a() As Integer)

For i=1 To 3

a(i)=i*i

Next i

End Sub

A.12

B.23

C.49

D.14

(1 分) 40.程序中未定义的变量均为 integer ，单击 Command1，程序的输出

是。

Private Sub Command1_Click()

k=4 ：m=1

n=Func(k, m)

Print n, Func(k,m)

End Sub

Public Function Func(a As Integer, b As Integer) As

Integer Static m As Integer

m=0 ：i=2

i=i+m+1

m=i+a+b

Func=m

End Function

A.88

B.820

C.816

D.817

41. 在多窗体的应用程序中，当前窗体模块的

(1分) Form_Click事件过程中包含如下语句，单击该

窗体，其中一定可以将Hello 显示在当前窗体上。

A. Forml.Print

B. Me.Print〞 Hello 〞

C. D.Debug.Print〞Hello〞

Form2.Print 〞 Hello 〞

(1 分)

42.当一个工程含有多个窗体时，其中的启动窗体是。

A. 启动时建立的窗体

B. C. D.第一个添加窗体

最后一个添加的窗体

在“工程属性”对话框中指定的窗体

(1 分)

43.Sub Main 函数可以在模块中定义。

A. 窗体

B. C. D.标准

类模块

以上均可

(1 分)

44.下列操作中不能向工程添加窗体的是。

A. B. C.单击工具栏上的添加窗体按钮

右击窗体，在弹出的菜单中选择“添加窗体”命令

右击工程资源管理器，在弹出菜单中选择“添加”，然后在下一级菜单中选择“添加窗

体”

D. 执行“工程”菜单中的“添加窗体”命令

(1 分)

45.要为工程添加一个过程，可执行“”菜单中的“添加过程”.

A. 文件

B. C. D.视图

工程

工具

(1 分)

46.以下说法正确的是。

A. 在VB中，过程可以嵌套定义也可以嵌套调用

B. 在VB中，过程可以嵌套定义但不可以嵌套调用

C. D.在VB中，过程不可以嵌套定义但可以嵌套调用

在VB中，过程不可以嵌套定义也不可以嵌套调用

(1 分)

47.模块的通用声明处有如下语句，会产生错误的语句是。

①Const a as Integer=25

②Public St As String * 8

③ReDim B(3) As Integer

④Dim Const X As Integer=10

A. B. C. D.①②

①③

①②③

②③④

(1 分)

48.使用Public Const语句声明一个全局的符号常量时，该语句应放在。

A. 过程中

B. 窗体模块的通用声明段

C. 标准模块的通用声明段

D. 窗体模块或标准模块的通用声明段

(1 分)

49.可以在中，使用语句Public PubStr As String*20定义一个定长字符串。

A. 窗体模块

B. C. D.标准模块

类模块

三者均可

(1 分)

50.在窗体的General 段声明变量时，不能使用关键字。

A. Dim

B. Public

C. D.Private

Static

(1 分)

51.以下有关变量作用域的说明中，错误的是。

A. 只有在标准模块中用Public 语句说明的变量才是全局变量

B. 在过程中不能使用Public 语句说明全局变量

C. 在标准模块的通用声明处可用语句说明模块级变量

D. 在窗体的通用声明处可用Private 语句说明窗体级变量

(1 分) 52.单击按钮,输出为__________。

Private Sub fun( )

Static a As Integer

a=a+2

Print a;

End Sub

Private Sub Command1_Click( )

Dim m As Integer

For m=1 To 3

Call fun

Next m

End Sub

A. B. C. D.2 2 2

0 0 0

2 4 8

2 4 6

(1 分)

53.在单击命令按钮时的输出结果是________ 。Private Sub Command1_Click ( )

Dim x%, y%

x=1:y=1

For n=1 to 3

z=First (x, y)

Print n, z

Next n

End Sub

Private Function First% (x%, y%) Dim n%

Do While n <= 4

x=x+y

n=n+1

Loop

First=x

End Function

A. B. C. D.16211316

26131116

123456

213133

(1 分)

54.设有下列程序代码，在单击命令按钮时的输出结果是________ 。Sub SS (ByVal x, ByRef y, z)

x=x+1

y=y+1

z=z+1

End Sub

Private Sub Command1_Click ( )

A=1: B=2 :C=3

Call SS (A,B,C)

Print A,B,C

End Sub

A. B. C. D.1 2 3

1 3 4

2 2 4

1 3 3

(1 分)

55.程序运行后，如果单击命令按钮，则在文本框中显示的内容是________ 。Private Sub Command1_Click( )

dim x, y, z As Integer

x=5: y=7: z=0

text1= “”

call p1(x,y,z)

text1=str(z)

End Sub

Private Sub p1(ByVal a%, ByVal b%, c%)

c=a+b

End Sub

A. 0

B. 12

C. Str(z)

D. 没有显示

(1 分) 56.当在Cmd1按钮上单击时，程序的输出是.

Public Function Func(a%,b%)As Integer

Static m As Integer : Dim i As Integer

m=0 : i=2: i=i+m+1 : m=i+a+b : Func=m

End Function

Private Sub Cmd1_Click( )

Dim k%,m%,n%

k=4 : m=1 :n=Func(k,m)

Print n, Func(k, m)

End Sub

A. B. C. D.8 8

820

816

817

(1 分)

57.若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton），可使用控件将它们分隔开。

①TexBox② Picture③ Image④Frame

A. ①②

B. ②③

C. ②④

D. ③④

(1 分) 58.如果是启动窗体，并且Forml 的 Load 事件过程中有form2.show ，则程序启动

后。

A. 发生一个运行时错误

B. C. D.发生一个编译错误

在所有的初始化代码运行后Form1 是活动窗体

在所有的初始化代码运行后Form2 是活动窗体

(1 分)

59.要从自定义对话框Form2 中退出，可以在该对话框的“退出”按钮的Click事件过程中使用的语句是。

A. B. C. D.Unload Form2

Hide Form2

Unload.Form2

Form2.Unload

(1 分)

60.窗体有一个方法可以使窗体隐藏但不从内存中卸载，该方法是。

A. Show

B. C. D.Release Hide Unload

2、填空题 (本题共计 51 分)

1.下面程序的功能是:通过键盘输入一个正整数N ，找出所有分母为N ，且数值介于1/3 和1/4之间的最简分数（即分子、分母除 1 以外无公因子）。

Private Sub Command1_Click()

dim i As Integer, J As Integer, n As Integer, Flag As Boolean

n = Val(InputBox(“输入分母 N ：”, ,11)

for i = 1 To n –1

①

Call Sub1(I,N,Flag)

If②Then

Print CStr(I);“/”; CStr (N)

End If

next i

End Sub

Private Sub Sub1(K As Integer, N As Integer , F As Boolean)

dim i As Integer

if③Then

for i = 2 To k

If④Then

Exit Sub

End If

next i

f = True

end If

End Sub

答案： (1), (2), (3), (4)

(4 分) 2. 下列程序的功能是：单击窗体事件后，在窗体上显示1！ +2！ +3！ +?+9 ！的和。

Private Sub Form_Click( )

Dim s&, i%

s=0

For i=1 To 9

s=s + ①

Next i

Print s

End Sub

Private Function fact(②)As Long

Dim i%,f&

③

For i=2 To n

f=f*i

Next i

④

End Function

答案： (1), (2), (3), (4)

(4 分) 3.

用二分法求函数 f(x)=x3–在

x=0～

5

范围内的

x=2

附近的一个实根，其计算误差为–

4x + 1=0|xl x2|＜ 10–5。

Private Sub form_Click ( )

Dim x!, t!, x1 As Single, x2 As Single

x1=0: x2=5

Do While __ ① ____

If Sgn(func(x))②Then

x2 = x

Else

x1 = x

End If

Loop

Print "x = "; x

End Sub

Private Function func( x! ) As Single

f1 =③

End Function

答案：(1), (2), (3)

(3分) 4. 用随机数模拟掷骰子，统计掷50 次，骰子各点出现的次数。(提示 :骰子点数只能是1~6 一位随机整数 )

Option Base 1

Private Sub Command1_Click( )

Dim①

For i = 1 To 50

n =②

d(n)=③

Next i

For i = 1 To 6

Print i; " 点出现的次数:"; d(i)

Next i

End Sub

答案： (1), (2), (3)

(3 分) 5. 执行程序单击命令按钮后，调试窗口中显示的结果是①；将A、B语句交换位置,运行程序后调试窗口的内容是②。

Option Explicit

Sub qq(k,x)

Dim i As Integer

x=1

For i=1 To k

x=x*i

Next i

End Sub

Private Sub Command1_Click()

Dim n%, i%, x%

n=1 : x=1

Call qq(i,x)'A

n=n+x'B

Next i

Debug.Print "n=" & n

End Sub

答案： (1), (2)

(2 分) 6. 下列程序执行后，输出的结果为①; 将 A、 B 语句互换后，执行结果是②。

Private Sub Command1_Click( )

Dim x As Integer

x = 1

Call sort(x) ,A

Print x;

call sort((x)) ,B

Print x;

End Sub

Private Sub sort(y As Integer)

y = y+1

End Sub

答案： (1), (2)

(2 分) 7. 运行下列程序，在窗体上显示的第一行是①_；第二行是②。

Private Function t(n As Integer, k As Integer) As Integer

t = 0

Do While k > 0

t = n Mod 10

n = n \ 10

k = k - 1

Loop

End Function

Private Sub Form_Click()

Print t(1234, 2)

Print t(1234, 4)

End sub

答案：(1), (2)

(2分)

8. 执行程序，单击窗体后在窗体上显示的第一行是①，第二行是形参表中的ByVal 关键字删除，再执行程序后在窗体上显示的第一行是②；若将 Sub 过程

③，第二行

是④。

Private Sub Value (ByVal m As Integer,ByVal n As Integer)