《VB过程练习题》PPT课件.ppt
第八章 过程 练习题 1.以下正确的描述是 在VB应用程序中：A.过程的定义可以嵌套，但过程的调用不能嵌套 B.过程的定义不可以嵌套，但过程的调用可以嵌套 C.过程的定义和调用均可以嵌套 D.过程的定义和调用均不能嵌套 2Sub过程与Function过程最根本的区别是：A 前者可以使用Call或直接使用过程名调用，后者不可以 B 后者可以有参数，前者不可以 C 两种过程参数的传递方式不同 D 前者无返回值，但后者有返回值 3在定义函数过程时，不可能用到的关键字是：A Exit B As C Sub D End 4在定义通用过程时，下列关键字中不能用来修饰形参的是：A ByVal B ByRef C Optional D Static,B,D,C,D,5.假定有如下的Sub过程Sub s(x as single,y as single)t=x x=t/y y=t mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_click()Dim a as single Dim b as single a=5 b=4 s a,b Print a,bEnd Sub程序运行后，单击命令按钮，输出的结果为A.5 4 B.1 1 C.1.25 4 D.1.25 1,D,6.阅读程序Function f(a as integer)b=0 Static c b=b+1 c=c+1 f=a+b+cEnd FunctionPrivate Sub Command1_Click()Dim a as integer a=2 For i=1 to 3 Print f(a)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为A.4 B.4 C.4 D.4 4 5 6 7 4 6 8 9,B,7.阅读程序 Sub subp(b()as integer)For i=1 to 4 b(i)=2*i Next i End Sub Private Sub Command1_Click()ReDim a(4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 Subp a()For i=1 to 4 Print a(i)Next i End Sub 运行上面程序，单击命令按钮，输出结果为A 2 B 5 C 10 D.出错 4 6 12 6 7 14 8 8 16,A,8假定有以下两个过程：Sub S1(x as integer,byval y as integer)Dim t as integer t=x:x=y:y=tEnd SubSub S2(x as integer,y as integer)Dim t as integer t=x:x=y:y=tEnd Sub则以下说法中正确的是A.用过程S1可以实现交换两个变量的值的操作，S2不能实现B.用过程S2可以实现交换两个变量的值的操作，S1不能实现C.用过程S1和S2都可以实现交换两个变量的值的操作D.用过程S1都不能实现交换两个变量的值的操作,B,9.假定有下面的过程：Function Func(a as integer,b as integer)as integer Static m as integer,i as integer m=0 i=2 i=i+m+1 m=i+a+bFunc=mEnd function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim k as integer,m as integer Dim p as integer k=4 m=1 p=func(k,m)Print p;p=func(k,m)Print pEnd Sub程序运行后，单击命令按钮，输出结果为 A 8 17 B 8 16 C 8 20 D 8 8,D,10.在窗体上面画一个命令按钮，然后编写如下程序：Sub inc(a as integer)Static x as intger x=x+a Print x;End SubPrivate Sub Command1_Click()Inc 2 Inc 3 Inc 4End Sub程序运行后，单击命令按钮，输出的结果为：,2 5 9,11.在窗体上画一个命令按钮，然后编写如下程序：Function fun(byval num as long)as long Dim k as long k=1 num=abs(num)Do while num k=k*(num mod 10)num=num10 Loop fun=kEnd FunctionPrivate Sub Command1_Click()Dim n as longDim r as longn=inputbox(“请输入一个数”)n=clng(n)r=fun(n)print rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入“234”，输出结果为：,24,12.在窗体上画一个命令按钮，然后编写如下程序：Funciton m(x as integer,y as integer)as integer m=iif(xy,x,y)End FunctionPrivate Sub Command1_Click()Dim a s integer,b as integer a=1 b=2 Print m(a,b)End Sub 程序运行后，单击命令按钮，输出结果为。,2,13.阅读下面程序，当Value过程形参前有ByVal关键字时，单击窗体，在窗体上显示的第一行内容是，第二行内容是。若将形参表中的ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示的第一行内容是，第二行内容是。Private Sub Value(ByVal m As Integer,ByVal n As Integer)m=m*2:n=n-5 Print m,n End Sub Private Sub Form_Click()Dim x As Integer,y As Integer x=10:y=15 Call Value(x,y)Print x,y End Sub,20 10,10 15,20 10,20 10,14.阅读下面程序。Private Sub Form_Click()Test 2End SubPrivate Sub Test(x As Inte x=x*2+1 If x6 Then Call Test(x)End If x=x*2+1 Form1.Print x，End Sub 运行程序，当单击窗体时，在窗体上显示的结果是：,23 47,
