vb函数与过程习题精选.docx

1、vb函数与过程习题精选第三章 函数与过程 习题一、选择题1如果要声明一个全局性的符号常量，则应将该声明放在( )。 A过程中 B窗体模块的通用声明段中 C标准模块的通用声明段中 D窗体模块或标准模块的通用声明段中2定义过程的语句为： Sub Suba(X As Single，Y As Single) 则正确的调用语句为( )。 ASuba 10，12 BCall Suba(A，Sin(1.57) CCall Suba X，Y DCall Suba(1 2，1 0，x)3在窗体的通用段声明变量时，不能使用( )关键字。 ADim BPublic CPrivate DStatic4Sub过程与函数

2、过程最主要的区别是( )。 A后者可以有参数，而前者则不行 B前者可以用Call语句直接调用，而后者则不行 C两种过程的参数传递方式不同 D前者的过程名不能返回值，而后者的过程名则可以返回值5要在过程调用后返回两个值，下列过程定义正确的是( )。 ASub Proc(ByVal n，ByVal m) BSub Proc(n，ByVal m) CSub Proc(n，m) DSub Proc(ByVal n，m)6在程序模块的开头声明Option Explicit，则( )。 A这个模块里所用到的变量必须声明后才能使用 B整个工程里所用到的变量必须声明后才能使用 C这个模块里所用到的变量不需要声

3、明就能使用 D整个工程里所用到的变量不需要声明就能使用7若希望在离开某过程后还能保存该过程中局部变量的值，则应使用( )关键字在该过程中定义局部变量。 ADim BPrivate CPublic DStatic8在一个多窗口程序中，可以在标准模块或某个窗体模块的通用声明处分别用( )语句定义一个在所有窗体模块中都可以引用的变量IntA。 APrivate IntA As Integer，Public IntA As Integer BPublic IntA As Integer，Private IntA As Integer CPublic IntA As Integer，Public Int

4、A As Integer DPrivate IntA As Integer，Private IntA As Integer9在应用程序中用“Private Function Fun(X As Integer，Y As Integer)”定义了Fun函数。调用Fun函数的过程中的变量I、J均定义为Integer型，能正确引用Fun函数的是( )。 Print Fun I，J Call Fun(I，365) Print Fun(3.14，234) Call Fun(245，231.5) A B C D10若在应用程序的标准模块、窗体模块和Sub1过程的说明部分分别用Public G As Inte

5、ger、Private G As Integer和Dim G As Integer语句说明了3个同名变量G。如果在Sub1过程中使用赋值语句G=3596，则该语句是给在( )说明部分定义的变量G赋值。A标准模块 BSub1过程 C窗体模块 D标准模块、窗体模块和Sub1过程11下面关于SendKeys命令的说法中正确的是( )。 A能把字符发送到任何窗口中 B只能发送到活动窗口中 C能把PrintScreen发送到当前窗口中 D不能发送控制键，如Ctrl键12要使每一个新建的窗体和模块里自动出现OptionExplicit关键字，可以( )。 A选择工具菜单中的选项命令，在弹出的对话框中选中要

6、求变量声明复选框 B选择文件菜单中的选项命令，在弹出的对话框中选中要求变量声明复选框 C选择工程菜单中的选项命令，在弹出的对话框中选中要求变量声明复选框 D选择编辑菜单中的选项命令，在弹出的对话框中选中要求变量声明复选框13下列关于Int函数和Fix函数的说法中，正确的是( )。 A如果调用的参数大于O，则Int()返回小于或者等于这个参数的第1个负整数，Fix() 返回大于或者等于这个参数的第1个负整数 B如果调用的参数小于O，则Fix()返回小于或者等于这个参数的第1个负整数，Int() 返回大于或者等于这个参数的第1个负整数 C如果调用的参数小于O，则两者返回的值相同 D如果调用的参数小

7、于O，则Int()返回小于或者等于这个参数的第1个负整数，Fix() 返回大于或者等于这个参数的第1个负整数14在进行参数传递的时候，ByVal和ByRef的含义分别是( )。 A前者表示按地址，后者表示按数值 B前者表示按数值，后者表示按地址 C前者表示按地址，后者也表示按地址 D前者表示按数值，后者也表示按数值15下列对不带参数的Add过程进行调用的方法中，( )是不正确的。 ACall Add BAdd() CAdd DCall Add()16在VB中，过程通常有三种，它们是( )。 A事件过程、子过程和函数过程 B事件过程、函数过程和属性过程 CSub过程、Function过程和Pro

8、perty过程 DSub过程、函数过程和通用过程17以下关于Sub过程的说法中，只有( )是正确的。 A一个Sub过程必须有一个Exit Sub语句 B一个Sub过程必须有一个End Sub语句 C在Sub过程中可以定义Function过程 D退出Sub过程也可以使用GoTo语句18Sub过程的定义( )。 A一定要有形参 B不一定要有过程的名称 C要指明过程是公有的还是私有的，如不指明则默认是公有的 D一定要指定返回值的类型19以下叙述中，( )是正确的。 A过程的定义可以嵌套，但过程的调用不能嵌套 B过程的定义不能嵌套，但过程的调用可以嵌套 C过程的定义与调用均不能嵌套 D过程的定义与调用

9、均可以嵌套20用Static关键字定义的过程是指( )。 A声明的过程名是静态的 B声明的形参是静态的 C声明过程中的局部变量是静态的 D声明过程的返回值是静态的21下列关于函数过程的叙述中正确的是( )。 A函数名只能被赋值一次 B如果没有对函数名赋值，就没有函数值返回到调用过程中 C函数名可以被多次赋值 D定义函数的类型是指定义形参的类型22下列定义MySub过程的语句中，( )是正确的。 ADim Sub MySub(x，y) BPublic MySub(x，y) CPrivate Sub MySub(x，y)As Integer DSub MySub(x，y)23下列定义Myfun函数

10、过程的语句中，( )是错误的。 APrivate Public Myfun(a) As Integer BStatic Function Myfun(a) CFunction Myfun(a As Integer)As Integer DPrivate Function Myfun(a As Integer)24在VB中调试VB应用程序时，除了( )外，其他都是可以利用的工具和方法。 A使用窗体设计器 B使用立即窗口 C设置断点 D单步执行25在窗体上有一个命令按钮，编写如下程序： Private Sub Command1_Click() Dim n As Long，r As Long N=I

11、nputBox(请输入一个数) N=Clng(n) r=fun(n) Print r End SubFunction fun(ByVal num As Long)As LongDim k As Longk=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num10 Loop fun=k End Function该程序运行后，单击命令按钮，在对话框中输入100，输出结果为( )。 A0 B100 C200 D30026有一个按钮事件及一个Sub过程： Private Sub Command1_Click() ind 2 End Sub Sub i

12、nd(a As Integer) Static x As Integer x=x+a Print x； End Sub程序运行后，单击命令按钮3次，输出结果为( )。 A2 2 2 B1 2 3 C2 4 6 D2 4 827以下是在一个按钮事件过程中调用一个函数过程： Private Sub Command1_Click() a=100 b=25 x=gys(a，b) Print x End SubFunction gys(ByVal y As Integer，ByVal y As Integer)As IntegerDo While y0remi=x Mod yx=yy=remiLoopg

13、ys=xEnd Function程序运行后的结果是( )。 AO B25 C50 D10028有如下程序： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print f(a) Next i End SubFunction f(a As Integer)b=0Static Cb=b+1 c=c+1 f=a+b+C End Function程序运行后，单击命令按钮，其输出结果为( )。 A4 B4 C4 D.4 4 5 6 8 4 6 8 1629阅读下面的程序。 Private Sub Command1_Click(

14、) Dim a(1 To 4)As Integer a(1)=1：a(2)=2：a(3)=3：a(4)=4 subP a() For i=1 To 4 Print a(i) Next i End SubSub subP(b()As Integer)For i=1 To 4 b(i)=2*iNext iEnd Sub程序运行后，单击命令按钮，输出结果为( )。A1 B.5 C.2 D.出错 2 6 4 3 7 6 4 8 830有如下函数与调用过程：Private Sub Command1_Click()i=Val(InputBox(请输入一个数)a=fact(i)Print aEnd SubF

15、unction fact(x As Integer)As LongDim P As Long，i As IntegerP=1For i=1 To X P=P*iNext ifact=PEnd Function程序运行后，若输入5，则运行结果为( )。 A120 B60 C.80 D.10031有一个函数:Function total(x As Integer)As Long Dim ss As Long，i As Integer ss=0 For i=1 To x ss=ss+i Next i total=ss End Function下面是调用它的事件过程。 Private Sub Comm

16、and1_Click() Dim i As Integer，sum As Long For i=1 To 5 sum=sum+total(i) Next i Print 和数为：；sum End Sub该程序的运行结果为( )。A55 B15 C.5 D.3532有一个过程如下： Sub Cmax(X，Y，max) max=Iif(xY，x，Y) End Sub调用过程如下： Private Sub Command1_Click() i=Val(InputBox(请输入第1个数)j=Val(InputBox( 请输入第2个数)Cmax i，j，aPrint a End Sub程序运行后，分别输

17、入12、56，结果为( )。A12 B56 C.24 D.11233单击窗体时，下列程序的执行结果为( )。Sub Procl(x As Integer，ByVal y As Integer，z As Integer)x=3*zy=2*zz=x+yPrint x；y；zEnd SubPrivate Sub Form_Click()Dim x As Integer，y As Integer，z As Integer x=1：Y=2：Z=3 Call Procl(X，X，Z)Call Procl(X，Y，Y)End Sub如果在定义过程时，在y前面加上ByVal关键字，则运行结果会变为( )。 A

18、6 6 12 B9 6 5 C9 6 5 D9 10 10 6 10 1O 6 10 10 6 4 10 9 10 1534单击命令按钮时，下列程序代码的执行结果为( )。Dim a As Integer，b As Integer，C As IntegerPrivate Sub Command1_Click()a=2：b=4：c=6Call Procl(a，b)Print a=；a；b=；b；c=；cCall Proc2(a，b)Print a=；a；b=；b；c=；cEnd SubPublic Sub Procl(X As Integer，Y As Integer)Dim C As Inte

19、gerX=2*X：Y=Y+2：Z=X+YEnd SubPublic Sub Proc2(x As Integer，ByVal Y As Integer)Dim C As Integerx=2*X：Y=Y+2：z=X+YEnd SubAa=2 b=4 c=6 Ba=4 b=6 c=10 Ca=4 b=6 c=6 Da=4 b=6 c=14a=4 b=6 c=10 a=8 b=8 c=16 a=8 b=6 c=6 a=8 b=8 c=635在窗体模块的通用声明处用下面的语句声明变量、数组，正确的语句有( )。 Public a(5)As Integer Public n As Integer Pu

20、blic st As String Public b()As Integer A2 B3 C4 D136运行程序产生死循环时，( )可以终止程序的运行。 A按Ctrl+C键 B按Ctrl+Z键 C按Ctrl+Break键 D单击“停止运行”按钮37在语句Public Sub Sort(i As Integer)中，i是一个按( )传递的参数。 A地址 B值 C常量 D变量38假定有以下两个过程： Sub s1(ByVal x As Integer，ByVal y As Integer) Dim t As Integer t=xx=yy=tEnd SubSub s2(x As Integer,y

21、 As Integer)Dim t As Integert=xx=y y=t End Sub则以下说法中正确的是( )。 As1可以实现交换两个变量的操作，s2则不能 Bs2可以实现交换两个变量的操作，s1则不能 Cs1和s2均可以实现交换两个变量的操作 Ds1与s2都不能实现交换两个变量的操作39以下几种方法中，只有( )不能进入中断模式。 A使用单步调试方式运行程序 B在程序运行时按Ctrl+Break键 C单击“运行”按钮 D程序中设置了断点，当程序运行到断点处时40要跟踪程序代码的运行，可采用除( )以外的任何一种方法。 A单步执行 B设置断点 C设置监视表达式 D观察程序的运行结果4

22、1窗体上有一个文本框Textl，有如下的事件过程： Private Sub Text1_KeyPress(keyascii As Integer) Dim str1 As String Str1=Chr(keyascii) keyascii=Asc(Ucase(str1) Text1Text=String(2，keyascii) End Sub程序运行后，在文本框中输入字母b，则在文本框中显示的是( )。 Abbb BBBB CBB Dbb42有一个鼠标事件过程如下，程序运行后，为了能在文本框内得到Hello，应在窗体上执行( )操作。 。 Private Sub Form_MouseDown

23、(button As Integer，shift As Integer，_ X As Single，Y As Single) If shift=1 And button=2 Then Text1Text=Hello End If End Sub A同时按下Shift键与鼠标左键 B同时按下Shift键与鼠标右键 C同时按下Ctrl+Alt键与鼠标左键 D同时按下Ctrl+Alt键与鼠标右键43如果窗体有如下事件过程，则程序运行后，为了能在窗体上输出Ok，必须( )。 Private Sub Form_MouseMove(button As Integer，shift As Integer，_

24、X As Single，Y As Single) If buttnn=2 Then PrintOk End If End Sub A只能按左键并拖动 B只能按右键并拖动 C同时按下鼠标左、右键并拖动 D按鼠标左或右键并拖动二、填空题1在过程定义中出现的变量名叫做 参数，而在调用过程时传送给过程的 、 、 或 叫做实际参数。2静态变量只能在 中声明和使用。3在用Public、Private、Dim、Static四种关键字声明的变量中， 声明的变量作用域最大。4在VB开发环境中，标题栏中可以指出当前正处在 模式、 模式和中断模式。5模块级变量声明使用关键字Dim或 。6根据变量的定义位置和所使用的

25、定义语句的不同，VB中的变量可以分为3类，即 、 和全局变量。7在过程的定义中，如想使用按值传递的参数传递方式，则必须在相应的形参前加上 关键字。8在调用过程时，如果不用Call命令，则在调用命令中必须省略加在实际参数前、后的 。9为了能在过程调用结束后仍然能保存过程中某个变量的值，则应将该变量声明成 变量。1O在程序输入或编译时没有出现，而只在运行时出现的错误称为 错误。11为了调试VB应用程序，VB设置了多种跟踪程序运行的工具，其中最主要的有 。12有一个Sub过程如下： Sub s(x As Single，y As Single) t= x x=ty y=t Mod y End Sub

26、调用的事件过程如下： Private Sub Command1_Click() Dim a As Single，b As Single a=5 b=4 s a,b Print a,b End Sub则程序运行后，单击命令按钮时输出 。13有如下Sub过程与调用过程：Private Sub Command1_Click()ind 2End SubSub ind(a As Integer)Static X As IntegerX=X+aPrint X；End Sub程序运行后，单击命令按钮3次，其输出结果为 。 14下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(Text1)输入完毕后

27、，用Enter键使焦点跳到第2个文本框中，而不是用Tab键来切换。试补充以下程序。Private Sub KeyDown(keycode As Integer，shift As Integer)If keycode Then Text2 End IfEnd Sub15以下程序用来计算1至指定数(由调用程序传人)之间所有奇数的和，试将程序补充完整。 Function mult( )Dim Sum As IntegerSum=0Dim i As IntegerFor i=1 To If i Mod 2 Then Next imult=SumEnd Function若要计算并输出100之内所有奇数的

28、和，则正确的调用语句是 。16运行下面的程序，单击窗体后在窗体上显示的第1行结果是 ，第2行结果是 。Private Function Digit(n As Integer，k As Integer)As IntegerDigit=0Do While k0 Digit=n Mod 10 n=n 10 k=k-1LoopEnd FunctionPrivate Sub Form_Click()Print Digit(1234，2)Print Digit(1234，3)End Sub17运行下面的程序，单击窗体后在窗体上显示的第1行结果是 ，第3行结果是 。Private Sub Test(x As

29、 Integer)Dim i As Integer If x0 Then Call Test(x-1) For i=1 To x Print x； Next i PrintEnd IfEnd SubPrivate Sub Form_Click() Test 3End Sub18执行下面的程序后，第1行输出 ，第3行输出 。Private Sub Form_Click()Dim a As Integer，i As Integera=2For i=1 To 9 Call Subl(i，a) Print iaNext iEnd SubPrivate Sub Sub1(ByVal X As Integer，Y As Integer)For i=3 To 1 Step -1 y=y+x x=x-1