vb函数与过程习题精选

第三章函数与过程习题一、选择题1．如果要声明一个全局性的符号常量，则应将该声明放在()。A．过程中B．窗体模块的通用声明段中C．标准模块的通用声明段中D．窗体模块或标准模块的通用声明段中2．定义过程的语句为：SubSuba(XAsSingle，YAsSingle)则正确的调用语句为()。A．Suba10，12B．CallSuba(A，Sin(1.57))C．CallSubaX，YD．CallSuba(12，10，x)3．在窗体的通用段声明变量时，不能使用()关键字。A．DimB．PublicC．PrivateD．Static4．Sub过程与函数过程最主要的区别是()。A．后者可以有参数，而前者则不行B．前者可以用Call语句直接调用，而后者则不行C．两种过程的参数传递方式不同D．前者的过程名不能返回值，而后者的过程名则可以返回值5．要在过程调用后返回两个值，下列过程定义正确的是()。A．SubProc(ByValn，ByValm)B．SubProc(n，ByValm)C．SubProc(n，m)D．SubProc(ByValn，m)6．在程序模块的开头声明OptionExplicit，则()。A．这个模块里所用到的变量必须声明后才能使用B．整个工程里所用到的变量必须声明后才能使用C．这个模块里所用到的变量不需要声明就能使用D．整个工程里所用到的变量不需要声明就能使用7．若希望在离开某过程后还能保存该过程中局部变量的值，则应使用()关键字在该过程中定义局部变量。A．DimB．PrivateC．PublicD．Static8．在一个多窗口程序中，可以在标准模块或某个窗体模块的通用声明处分别用()语句定义一个在所有窗体模块中都可以引用的变量IntA。A．PrivateIntAAsInteger，PublicIntAAsIntegerB．PublicIntAAsInteger，PrivateIntAAsIntegerC．PublicIntAAsInteger，PublicIntAAsIntegerD．PrivateIntAAsInteger，PrivateIntAAsInteger9．在应用程序中用“PrivateFunctionFun(XAsInteger，YAsInteger)”定义了Fun函数。调用Fun函数的过程中的变量I、J均定义为Integer型，能正确引用Fun函数的是()。①PrintFunI，J②CallFun(I，3．65)③PrintFun(3.14，234)④CallFun(245，231.5)A．①③B．②③④C．①②③D．①②③④10．若在应用程序的标准模块、窗体模块和Sub1过程的说明部分分别用PublicGAsInteger、PrivateGAsInteger和DimGAsInteger语句说明了3个同名变量G。如果在Sub1过程中使用赋值语句G=3596，则该语句是给在()说明部分定义的变量G赋值。A．标准模块B．Sub1过程C．窗体模块D．标准模块、窗体模块和Sub1过程11．下面关于SendKeys命令的说法中正确的是()。A．能把字符发送到任何窗口中B．只能发送到活动窗口中C．能把PrintScreen发送到当前窗口中D．不能发送控制键，如Ctrl键12．要使每一个新建的窗体和模块里自动出现Option．Explicit关键字，可以()。A．选择工具菜单中的选项命令，在弹出的对话框中选中要求变量声明复选框B．选择文件菜单中的选项命令，在弹出的对话框中选中要求变量声明复选框C．选择工程菜单中的选项命令，在弹出的对话框中选中要求变量声明复选框D．选择编辑菜单中的选项命令，在弹出的对话框中选中要求变量声明复选框13．下列关于Int函数和Fix函数的说法中，正确的是()。A．如果调用的参数大于O，则Int()返回小于或者等于这个参数的第1个负整数，Fix()返回大于或者等于这个参数的第1个负整数B．如果调用的参数小于O，则Fix()返回小于或者等于这个参数的第1个负整数，Int()返回大于或者等于这个参数的第1个负整数C．如果调用的参数小于O，则两者返回的值相同D．如果调用的参数小于O，则Int()返回小于或者等于这个参数的第1个负整数，Fix()返回大于或者等于这个参数的第1个负整数14．在进行参数传递的时候，ByVal和ByRef的含义分别是()。A．前者表示按地址，后者表示按数值B．前者表示按数值，后者表示按地址C．前者表示按地址，后者也表示按地址D．前者表示按数值，后者也表示按数值15．下列对不带参数的Add过程进行调用的方法中，()是不正确的。A．CallAddB．Add()C．AddD．CallAdd()16．在VB中，过程通常有三种，它们是()。A．事件过程、子过程和函数过程B．事件过程、函数过程和属性过程C．Sub过程、Function过程和Property过程D．Sub过程、函数过程和通用过程17．以下关于Sub过程的说法中，只有()是正确的。A．一个Sub过程必须有一个ExitSub语句B．一个Sub过程必须有一个EndSub语句C．在Sub过程中可以定义Function过程D．退出Sub过程也可以使用GoTo语句18．Sub过程的定义()。A．一定要有形参B．不一定要有过程的名称C．要指明过程是公有的还是私有的，如不指明则默认是公有的D．一定要指定返回值的类型19．以下叙述中，()是正确的。A．过程的定义可以嵌套，但过程的调用不能嵌套B．过程的定义不能嵌套，但过程的调用可以嵌套C．过程的定义与调用均不能嵌套D．过程的定义与调用均可以嵌套20．用Static关键字定义的过程是指()。A．声明的过程名是静态的B．声明的形参是静态的C．声明过程中的局部变量是静态的D．声明过程的返回值是静态的21．下列关于函数过程的叙述中正确的是()。A．函数名只能被赋值一次B．如果没有对函数名赋值，就没有函数值返回到调用过程中C．函数名可以被多次赋值D．定义函数的类型是指定义形参的类型22．下列定义MySub过程的语句中，()是正确的。A．DimSubMySub(x，y)B．PublicMySub(x，y)C．PrivateSubMySub(x，y)AsIntegerD．SubMySub(x，y)23．下列定义Myfun．函数过程的语句中，()是错误的。A．PrivatePublicMyfun(a)AsIntegerB．StaticFunctionMyfun(a)C．FunctionMyfun(aAsInteger)AsIntegerD．PrivateFunctionMyfun(aAsInteger)24．在VB中调试VB应用程序时，除了()外，其他都是可以利用的工具和方法。A．使用窗体设计器B．使用立即窗口C．设置断点D．单步执行25．在窗体上有一个命令按钮，编写如下程序：PrivateSubCommand1_Click()DimnAsLong，rAsLongN=InputBox(请输入一个数)N=Clng(n)r=fun(n)PrintrEndSubFunctionfun(ByValnumAsLong)AsLongDimkAsLongk=1num=Abs(num)DoWhilenumk=k*(numMod10)num=num\10Loopfun=kEndFunction该程序运行后，单击命令按钮，在对话框中输入100，输出结果为()。A．0B．100C．200D．30026．有一个按钮事件及一个Sub过程：PrivateSubCommand1_Click()ind2EndSubSubind(aAsInteger)StaticxAsIntegerx=x+aPrintx；EndSub程序运行后，单击命令按钮3次，输出结果为()。A．222B．123C．246D．24827．以下是在一个按钮事件过程中调用一个函数过程：PrivateSubCommand1_Click()a=100b=25x=gys(a，b)PrintxEndSubFunctiongys(ByValyAsInteger，ByValyAsInteger)AsIntegerDoWhiley0remi=xModyx=yy=remiLoopgys=xEndFunction程序运行后的结果是()。A．OB．25C．50D．10028．有如下程序：PrivateSubCommand1_Click()DimaAsIntegera=2Fori=1To3Printf(a)NextiEndSubFunctionf(aAsInteger)b=0StaticCb=b+1c=c+1f=a+b+CEndFunction程序运行后，单击命令按钮，其输出结果为()。A．4B．4C．4D.445684681629．阅读下面的程序。PrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=1：a(2)=2：a(3)=3：a(4)=4subPa()Fori=1To4Printa(i)NextiEndSubSubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSub程序运行后，单击命令按钮，输出结果为()。A．1B.5C.2D.出错26437648830．有如下函数与调用过程：PrivateSubCommand1_Click()i=Val(InputBox(请输入一个数))a=fact(i)PrintaEndSubFunctionfact(xAsInteger)AsLongDimPAsLong，iAsIntegerP=1Fori=1ToXP=P*iNextifact=PEndFunction程序运行后，若输入5，则运行结果为()。A．120B．60C.80D.10031．有一个函数:Functiontotal(xAsInteger)AsLongDimssAsLong，iAsIntegerss=0Fori=1Toxss=ss+iNextitotal=ssEndFunction下面是调用它的事件过程。PrivateSubCommand1_Click()DimiAsInteger，sumAsLongFori=1To5sum=sum+total(i)NextiPrint和数为：；sumEndSub该程序的运行结果为()。A．55B．15C.5D.3532．有一个过程如下：SubCmax(X，Y，max)max=Iif(xY，x，Y)EndSub调用过程如下：PrivateSubCommand1_Click()i=Val(InputBox(请输入第1个数))j=Val(InputBox(请输入第2个数))Cmaxi，j，aPrintaEndSub程序运行后，分别输入12、56，结果为()。A．12B．56C.24D.11233．单击窗体时，下列程序的执行结果为()。SubProcl(xAsInteger，ByValyAsInteger，zAsInteger)x=3*zy=2*zz=x+yPrintx；y；zEndSubPrivateSubForm_Click()DimxAsInteger，yAsInteger，zAsIntegerx=1：Y=2：Z=3CallProcl(X，X，Z)CallProcl(X，Y，Y)EndSub如果在定义过程时，在y前面加上ByVal关键字，则运行结果会变为()。A．6612B．965C．965D．910106101O6101064109101534．单击命令按钮时，下列程序代码的执行结果为()。DimaAsInteger，bAsInteger，CAsIntegerPrivateSubCommand1_Click()a=2：b=4：c=6CallProcl(a，b)Printa=；a；b=；b；c=；cCallProc2(a，b)Printa=；a；b=；b；c=；cEndSubPublicSubProcl(XAsInteger，YAsInteger)Di