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

. .

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

26、给出下列程序代码在第一次单击命令按钮时文本框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

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、1 1 1 1 2 3 2 2 2 1 2 3 3 3 3 1 2 3 B、1 1 1 1 1 1 2 2 2 2 2 2 3 3 3 3 3 3 C、1 2 3 1 2 3 1 2 3 D、1 1 1 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、1 2 3 B、1 3 4 C、2 2 4 D、1 3 3

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、2 2 2 B、0 0 0 C、2 4 8 D、2 4 6

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、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

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 \End Sub

Private Sub Command1_Click( ) a1 = 10: b1 = 17: c1 = 41 Call test(a1,b1+2,(c1)) Print \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. 1 2 B. 2 3

. . .