第六部分过.docVIP

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 mn Do while mn : m=m-n : Loop Do while mn : n=n-m : Loop 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 Call f1(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