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

vbch8

满分：109分

姓名：________

1、单项选择题(本题共计65分)

1. 若在应用程序中用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. 无

(1分)

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

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. 2 2 2 B. 0 0 0 C. 2 4 8

D. 2 4 6

(1分)

3. Form1_Click事件发生时，写出在窗体上显示的第二行和第三行是__________。

Private a As Integer,c As Integer Private Sub Form_Click( )

Dim a As Integer,b As Integer a=10:b=10:c=10 Print a,b,c

Call test1(a,b) Print a,b,c End Sub

Private Sub test1(m As Integer,ByVal n As Integer) Dim c As Integer m=5:n=5:c=5 Print m,n,c End Sub

A. 5 5 5 5 10 10

B. 5 5 5 5 5 10

C. 5 5 10 5 10 10

D. 5 5 5 10 10 10

(1分)

4. 在窗体上画一个名称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. 没有显示

(1分)

5. 窗体中添加一个命令按钮，编写如下程序： 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

B. Sub=10 17 41 Main=11 17 44 C. Sub=12 11 41

D. Sub=11 21 44 Main=11 17 41

(1分)

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

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

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

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

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

(1分)

7. 执行VB工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是____________。

A. 若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体 B. 启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性” C. 启动窗体和其他窗体一样可以隐藏和关闭 D. 启动窗体一般作为用户工作的界面，不可更改

(1分)

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

A. 窗体 B. 标准 C. 类模块 D. 以上均可

(1分)

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

A. Show B. Release C. Hide D. Unload

(1分)

10. 阅读下列程序：

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