电脑知识问答题4.docVIP

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