《VB过程练习题ppt课件》由会员分享,可在线阅读,更多相关《VB过程练习题ppt课件(11页珍藏版)》请在金锄头文库上搜索。
1、第八章第八章 过程过程 练习题练习题 1.以下正确的描述是以下正确的描述是 在在VB应用程序中:应用程序中: A.过程的定义可以嵌套,但过程的调用不能嵌套过程的定义可以嵌套,但过程的调用不能嵌套 B.过程的定义不可以嵌套,但过程的调用可以嵌套过程的定义不可以嵌套,但过程的调用可以嵌套 C.过程的定义和调用均可以嵌套过程的定义和调用均可以嵌套 D.过程的定义和调用均不能嵌套过程的定义和调用均不能嵌套 2Sub过程与过程与Function过程最根本的区别是:过程最根本的区别是: A 前者可以使用前者可以使用Call或直接使用过程名调用,后者不可以或直接使用过程名调用,后者不可以 B 后者可以有参数
2、,前者不可以后者可以有参数,前者不可以 C 两种过程参数的传递方式不同两种过程参数的传递方式不同 D 前者无返回值,但后者有返回值前者无返回值,但后者有返回值 3在定义函数过程时,不可能用到的关键字是:在定义函数过程时,不可能用到的关键字是: A Exit B As C Sub D End 4在定义通用过程时,下列关键字中不能用来修饰形参的是:在定义通用过程时,下列关键字中不能用来修饰形参的是: A ByVal B ByRef C Optional D StaticBDCD1.5.假定有如下的假定有如下的Sub过程过程Sub s(x as single,y as single) t=x x=t
3、/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 1D26.阅读程序阅读程序Function f( a as integer) b=0 Static c b=b+1 c=c+1 f=a+b+cEnd Fun
4、ctionPrivate 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 9B37.阅读程序阅读程序 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、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 16A48假定有以下两个过程:假定有以下两个过程: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=
6、x:x=y:y=tEnd Sub则以下说法中正确的是则以下说法中正确的是A.用过程用过程S1可以实现交换两个变量的值的操作,可以实现交换两个变量的值的操作,S2不能实现不能实现B.用过程用过程S2可以实现交换两个变量的值的操作,可以实现交换两个变量的值的操作,S1不能实现不能实现C.用过程用过程S1和和S2都可以实现交换两个变量的值的操作都可以实现交换两个变量的值的操作D.用过程用过程S1都不能实现交换两个变量的值的操作都不能实现交换两个变量的值的操作B59.假定有下面的过程:假定有下面的过程:Function Func(a as integer,b as integer) as intege
7、r 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、8 16 C 8 20 D 8 8D610. 在窗体上面画一个命令按钮,然后编写如下程序:在窗体上面画一个命令按钮,然后编写如下程序: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 711.在窗体上画一个命令按钮,然后编写如下程序:在窗体上画一个命令按钮,然后编写如下程序:Function fun(byval num a
9、s 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 812.在窗体上画一个命
10、令按钮,然后编写如下程序:在窗体上画一个命令按钮,然后编写如下程序: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 913.阅读下面程序,当阅读下面程序,当Value过程形参前有过程形参前有ByVal关键字时,单击窗体,在窗体关键字时,单击窗体,
11、在窗体上显示的第一行内容是上显示的第一行内容是 ,第二行内容是,第二行内容是 。若将形参表中的。若将形参表中的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 Sub20 10 10 15 20 10 20 10 1014.阅读下面程序。阅读下面程序。 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 11