第八章习题答.docVIP

习题八（P174） 一．选择题 1．要想在过程调用后返回两个结果，下面的过程定义语句合法的是 。 (A)Sub proc1(ByVal m) (B)Sub proc1(n，ByVal m) (C)Sub proc1(n，m) (D)Sub proc1(ByVal n，m) 2．在参数传递过程中，使用关键字 来修饰参数，可以使之按值传递。 (A)ByVal (B)By (C)Value (D)Reference 3．单击命令按钮时，下列程序代码的执行结果为 。 Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Function Private Function SecProc(x As Integer,y As Integer,Z As Integer) SecProc=FirProc(z,x,y)+x End Function Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=2:b=3:c=4 Print SecProc(c,b,a) End Sub (A)21 (B)18 (C)17 (D)34 4．单击命令按钮时， 下列程序代码的执行结果为 。 Private Sub Command1_Click() Print MyFunc(24,18) End Sub Public Function MyFunc(m As Integer,n As Integer) As Integer Do While mn Do While mn:m=m-n:Loop Do While mn:n=n-m:Loop Loop MyFunc=m End Function (A)2 (B)4 (C)6 (D)8 5．在窗体上画一个名称为Command1的按钮，编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=f(x) Print x;y End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 。 (A)10 5 (B)20 5 (C)20 40 (D)10 40 说明：此题无解。因为f(x)未定义，不知是什么。 6．在窗体上画一个名称为Command1的按钮和一个名为Text1的文本框，编写如下事件过程： Private Sub Command1_Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr(),n) Text1.Text=n End Sub 运行程序后，单击命令按钮，则在文本框中显示的内容是 。 (A)10 (B)15 (C)25 (D)24 说明：此题无解。因为Fun(arr(),n)未定义，不知是什么。 7．在窗体上画一个名称为Command1的按钮和一个名为Text1的文本框，编写如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) If n/2=n\2 Then f=fl(n) Else f=f2(n) End If Print f;n End Sub 运行程序后，在文本框内输入6，单击命令按钮，窗体上显示的是 。 (A)72 36 (B)108 36 (C)72 6 (D)108 6 说明：此题无解。因为f2(n)未定义，不知是什么。 8．在窗体上画一个名称为Command1的按钮，编写如下事件过程和通用过程： Private Sub Command1_Click() Dim i As Integer S=0 For i=1 To 5 s=s+f(i) Next Print s End Sub Function f(n As Integer) As Integer f=n-1 End Function 运行程序后，单击命令按钮，在窗体上显示的是 。 (A)11 (B)10 (C)9 (D)8 9．以下描述中正确的是。 (A)标准模块中的任何过程都可以在整个工程范围内被调用 (B)在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程 (C)如果工程包含Sub Main过