过 程

　　一、 单选题

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

　　A） Var

　　B） ByRef

　　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．下面程序运行的结果是 ________。

　　Private Sub Command1_Click()

　　Dim x%, y%

　　x = 12 : y = 34

　　Call f(x,y)

　　Print x,y

　　End Sub

　　Public Sub f1(n%,ByVal m%)

　　n = n Mod 10

　　m = m / 10

　　End Sub

　　A） 2 34

　　B） 12 34

　　C） 2 3

　　D） 12 3

　　6．在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：

　　Private X As Integer

　　Private Sub Command1_Click()

　　X = 5 : Y=3

　　Call proc(X,Y)

　　Label1.Caption = X

　　Label2.Caption = Y

　　End Sub

　　Private Sub proc(ByVal a As Integer, ByVal b As Integer)

　　X = a * a

　　Y = b + b

　　End Sub

　　程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。

　　A）5和3

　　B）25和3

　　C）25和6

　　D）5和6

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

　　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

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

　　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%()

　　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

　　9.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

　　Private Sub Command1_Click()

　　Static X As Integer

　　Static Y As Integer

　　Cls

　　Y=1

　　Y=Y+5

　　X=5+X

　　Print X,Y

　　End Sub

　　程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为______。

　　A）15 16

　　B）15 6

　　C）15 15

　　D）5 6

　　10. 下列叙述中正确的是______。

　　A）在窗体的Form_Load事件过程中定义的变量是全局变量

　　B）局部变量的作用域可以超出所定义的过程

　　C）在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程

　　D）在调用过程时，所有局部变量被系统初始化为0或空字符串