过程

　　1．在过程定义中用 ________表示形参的传值。

　　A）Var

　　B）ByDef

　　C）ByVal

　　D）ByValue

　　2．若已经编写一个Sort子过程，在该工程中有多个窗体，为了方便调用Sort子程序，应该将子过程放在 ________中。

　　A）窗体模块

　　B）类模块

　　C）工程

　　D）标准模块

　　3．下面的子过程语句说明合法的是________。

　　A）Sub f1(ByVal n%()）

　　B）Sub f1(n%）As Integer

　　C）Function f1%(f1%）

　　D）Function f1(ByVal n%)

　　4．要想从子过程调用后返回两个结果，下面子过程语句说明合法的是________。

　　A）Sub f(ByVal n%, ByVal m%）

　　B）Sub f(n%, ByVal m%)

　　C）Sub f(ByVal n%, m%）

　　D）Sub f(n%, m%)

　　5．有子过程语句说明：Sub fSum(sum%,ByVal m%,ByVal n%)

　　且在事件过程中有如下变量说明：Dim a%,b%,c!

　　则下列调用语句中正确的是________。

　　A）fsum a,a,b

　　B）fsum 2,3,4

　　C）fsum a+b,a,b

　　D）Call fsum (c,a,b)

　　6．有如下程序，其运行的结果是________。

　　Public Function f(m%,n%)

　　Do While m<>n

　　Do while m>n : m=m-n : Loop

　　Do while m　　Loop

　　F=m

　　End Function

　　Private Sub Command1_Click( )

　　Print f(24,18)

　　End Sub

　　A)0

　　B)2

　　C)3

　　D)6

　　7．假定有如下的Sub过程：

　　Sub S(x As Single,y As Single)

　　t = x

　　x =t/y

　　y =t Mod y

　　End Sub

　　在窗体上画一个命令按钮，然后编写如下事件过程：

　　Private Sub Commandl_Click ( )

　　Dim a As Single

　　Dim b As Single

　　a =5

　　b =4

　　S a,b

　　Print a,b

　　End Sub

　　程序运行后，单击命令按钮，输出结果为________。

　　A）5 4

　　B）1 1

　　C ）1.25 4

　　D）1.25 1

　　8．下面的程序运行结果是 ________。

　　Private Sub Command1_Click(） Public Sub f1(n%,ByVal m%)

　　Dim x%, y% n = n Mod 10

　　x = 12 : y = 34 m = m / 10

　　Call f(x,y） End Sub

　　Print x,y

　　End Sub

　　A） 2 34

　　B）12 34

　　C ） 2 3

　　D）12 3

　　9．下面的程序运行结果是 ________。

　　Private Sub Command1_Click(）

　　Print p1(3,7）

　　End sub

　　Public Function p1!(x!, n%)

　　If n = 0 Then

　　p1 = 1

　　Else

　　If n Mod 2 = 1 Then

　　p1 = x * p1(x, n/2）

　　else

　　p1 = p1(x, n/2）/ x

　　End if

　　End if

　　End Function

　　A） 18

　　B） 7

　　C ） 14

　　D）27

　　10．下面的程序运行结果是 ________。

　　Dim a% , b% , c%

　　Public Sub p1(x%, y%)

　　Dim c%

　　x = 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 Command1_Click(）

　　a = 2 : b = 4 : c = 6

　　Call p1(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

　　11．下面的程序运行结果是 ________。

　　Public Sub Proc(a%())

　　Static i%

　　Do

　　a(i）= a(i）+ a(i+1)

　　i = i + 1

　　Loop While i < 2

　　End Sub

　　Private Command1_click()

　　Dim m% , i% , x%(）

　　Redim x%()

　　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） 3 4 7 5 6

　　B） 3 5 7 4 5

　　C） 2 3 4 4 5

　　D） 4 5 6 7 8

　　12．阅读程序：

　　Function F(a As Integer)

　　b = 0

　　Static c

　　b = b+1

　　c = c+1

　　f = a+b+c

　　End Function

　　Private Sub Commandl_Click ()

　　Dim a As Integer

　　a =2

　　For i =1 To 3

　　Print F(a);

　　Next i

　　End Sub

　　运行上面的程序，单击命令按钮，输出结果为________。

　　A）4 4 4

　　B）4 5 6

　　C ）4 6 8

　　D）4 7

参考答案