南京工业大学VB期末考试复习vbch8

Next i End Sub

当发生Command1_Click事件时，输出的结果是________ 。

A. 1 2 B. 2 3 C. 4 9 D. 1 4

11. 假定有下面的过程:

Public Function Func(a As Integer,b As Integer)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 Command1_Click( ) Dim k As Integer,m As Integer Dim n As Integer k=4 m=1

n=Func(k,m)

Print n, Func(k, m) End Sub

当在Command1按钮上单击时，程序的输出是

A. 8 8 B. 8 20 C. 8 16 D. 8 17

12. 以下说法正确的是____________。

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

分)分)(1

(1

B. 在Visual Basic中，过程可以嵌套定义但不可以嵌套调用 C. 在Visual Basic中，过程可以不嵌套定义但可以嵌套调用 D. 在Visual Basic中，过程不可以嵌套定义也不可以嵌套调用

(1分)

13. 参数传递有值传递和地址传递，____________关键字表示地址传递。

A. ByVal B. ByBef C. Value D. Refrence

(1分)

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

A. 文件 B. 视图 C. 工程 D. 工具

(1分) 15. 要填加一个标准模快，可使用“____________”菜单中的“添加模块”命令。

A. 文件 B. 视图 C. 工程 D. 工具

(1分)

16. Sub过程与Function过程的本质区别是____________。

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

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

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

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

17、在窗体的General段声明变量时，不能使用____________关键字。 ( )

A、Dim B、Public C、Private D、Static

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

A、Unload Form2 B、Hide Form2 C、Unload.Form2 D、Form2.Unload

19、当一个工程含有多个窗体时，其中的启动窗体是________。 ( )

A、启动VB时建立的窗体 B、第一个添加窗体 C、最后一个添加的窗体

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

20. 给出下列程序代码，在单击命令按钮时的输出结果是________。 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. 1 6 2 11 3 16 B. 2 6 1 3 11 16 C. 1 2 3 4 5 6

D. 2 1 3 1 3 3

(1分)

21. 给出下列程序代码在第一次单击命令按钮时文本框Text1和Text2中的内容，第二次单击命令按钮时文本框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

21. 给出下列程序代码在第一次单击命令按钮时文本框Text1和Text2中的内容，第二次单击命令按钮时文本框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