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

1、231.5） A B C D10若在应用程序的标准模块、窗体模块和Sub1过程的说明部分分别用Public G As Integer、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要使每一个

2、新建的窗体和模块里自动出现OptionExplicit关键字，可以（ ）。 A选择工具菜单中的选项命令，在弹出的对话框中选中要求变量声明复选框 B选择文件 C选择工程 D选择编辑13下列关于Int函数和Fix函数的说法中，正确的是（ ）。 A如果调用的参数大于O，则Int（）返回小于或者等于这个参数的第1个负整数，Fix（） 返回大于或者等于这个参数的第1个负整数 B如果调用的参数小于O，则Fix（）返回小于或者等于这个参数的第1个负整数，Int（） 返回大于或者等于这个参数的第1个负整数 C如果调用的参数小于O，则两者返回的值相同 D如果调用的参数小于O，则Int（）返回小于或者等于这个参数

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

4、用过程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过程的定义与调用均可以嵌套20用Static关键字定义的过

5、程是指（ ）。 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函数过程的语句中，（ ）是错误的。 APriv

6、ate 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=InputBox（请输入一个数 N=Clng

7、（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过程： ind 2 Sub ind（a As Integer） Static x As Integer x=x+a Print x；程序运行后，单击

8、命令按钮3次，输出结果为（ ）。 A2 2 2 B1 2 3 C2 4 6 D2 4 827以下是在一个按钮事件过程中调用一个函数过程： a=100 b=25 x=gys（a，b） Print xFunction gys（ByVal y As Integer，ByVal y As Integer）As IntegerDo While yremi=x Mod yx=yy=remiLoopgys=xEnd Function程序运行后的结果是（ ）。 AO B25 C50 D10028有如下程序： Dim a As Integer a=2 For i=1 To 3 Print f（a） Next i

9、Function f（a As Integer）b=0Static Cb=b+1 c=c+1 f=a+b+C程序运行后，单击命令按钮，其输出结果为（ ）。 A4 B4 C4 D.4 4 5 6 8 4 6 8 1629阅读下面的程序。 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）Sub subP（b（）As Integer）For i=1 To 4 b（i）=2*iNext iEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。A1 B.5 C.2 D.出错 2 6

10、 4 3 7 6 4 8 830有如下函数与调用过程：Private Sub Command1_Click（）i=Val（InputBox（）a=fact（i）Print aFunction fact（x As Integer）As LongDim P As Long，i As IntegerP=1For i=1 To X P=P*ifact=P程序运行后，若输入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

11、To x ss=ss+i total=ss下面是调用它的事件过程。 Dim i As Integer，sum As Long For i=1 To 5 sum=sum+total（i） Next i Print 和数为：；sum该程序的运行结果为（ ）。A55 B15 C.5 D.3532有一个过程如下： Sub Cmax（X，Y，max） max=Iif（xY，x，Y）调用过程如下： i=Val（InputBox（请输入第1个数j=Val（InputBox（ 请输入第2个数Cmax i，j，a程序运行后，分别输入12、56，结果为（ ）。A12 B56 C.24 D.11233单击窗体时，下

12、列程序的执行结果为（ ）。Sub Procl（x As Integer，ByVal y As Integer，z As Integer）x=3*zy=2*zz=x+yPrint x；y；zPrivate 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）如果在定义过程时，在y前面加上ByVal关键字，则运行结果会变为（ ）。 A6 6 12 B9 6 5 C9 6 5 D9 10 10 6 10 1O 6 10 10 6 4 10 9

13、10 1534单击命令按钮时，下列程序代码的执行结果为（ ）。Dim a As Integer，b As Integer，C As Integera=2：b=4：c=6Call Procl（a，b）a=a；b=b；c=cCall Proc2（a，b）Public Sub Procl（X As Integer，Y As Integer）Dim C As IntegerX=2*X：Y=Y+2：Z=X+YPublic Sub Proc2（x As Integer，ByVal Y As Integer）x=2*X：z=X+YAa=2 b=4 c=6 Ba=4 b=6 c=10 Ca=4 b=6 c=6

14、 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 Public 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

15、）中，i是一个按（ ）传递的参数。 A地址 B值 C常量 D变量38假定有以下两个过程： Sub s1（ByVal x As Integer，ByVal y As Integer） Dim t As Integer t=xy=tSub s2（x As Integer,y As Integer）Dim t As Integert=x y=t则以下说法中正确的是（ ）。 As1可以实现交换两个变量的操作，s2则不能 Bs2可以实现交换两个变量的操作，s1则不能 Cs1和s2均可以实现交换两个变量的操作 Ds1与s2都不能实现交换两个变量的操作39以下几种方法中，只有（ ）不能进入中断模式。 A使用

16、单步调试方式运行程序 B在程序运行时按Ctrl+Break键 C单击“运行”按钮 D程序中设置了断点，当程序运行到断点处时40要跟踪程序代码的运行，可采用除（ ）以外的任何一种方法。 A单步执行 B设置断点 C设置监视表达式 D观察程序的运行结果41窗体上有一个文本框Textl，有如下的事件过程： Private Sub Text1_KeyPress（keyascii As Integer） Dim str1 As String Str1=Chr（keyascii） keyascii=Asc（Ucase（str1） Text1Text=String（2，keyascii）程序运行后，在文本框中

17、输入字母b，则在文本框中显示的是（ ）。 Abbb BBBB CBB Dbb42有一个鼠标事件过程如下，程序运行后，为了能在文本框内得到Hello，应在窗体上执行（ ）操作。 。 Private Sub Form_MouseDown（button As Integer，shift As Integer，_ X As Single，Y As Single） If shift=1 And button=2 Then Text1Text=Hello End If A同时按下Shift键与鼠标左键 B同时按下Shift键与鼠标右键 C同时按下Ctrl+Alt键与鼠标左键 D同时按下Ctrl+Alt键与

18、鼠标右键43如果窗体有如下事件过程，则程序运行后，为了能在窗体上输出Ok，必须（ ）。 Private Sub Form_MouseMove（button As Integer，shift As Integer，_ If buttnn=2 Then PrintOk A只能按左键并拖动 B只能按右键并拖动 C同时按下鼠标左、右键并拖动 D按鼠标左或右键并拖动二、填空题1在过程定义中出现的变量名叫做 参数，而在调用过程时传送给过程的 、 、 或 叫做实际参数。2静态变量只能在 中声明和使用。3在用Public、Private、Dim、Static四种关键字声明的变量中， 声明的变量作用域最大。4在

19、VB开发环境中，标题栏中可以指出当前正处在 模式、 模式和中断模式。5模块级变量声明使用关键字Dim或 。6根据变量的定义位置和所使用的定义语句的不同，VB中的变量可以分为3类，即 、 和全局变量。7在过程的定义中，如想使用按值传递的参数传递方式，则必须在相应的形参前加上 关键字。8在调用过程时，如果不用Call命令，则在调用命令中必须省略加在实际参数前、后的 。9为了能在过程调用结束后仍然能保存过程中某个变量的值，则应将该变量声明成 变量。1O在程序输入或编译时没有出现，而只在运行时出现的错误称为 错误。11为了调试VB应用程序，VB设置了多种跟踪程序运行的工具，其中最主要的有 。12有一个

20、Sub过程如下： Sub s（x As Single，y As Single） t= x x=ty y=t Mod y 调用的事件过程如下： Dim a As Single，b As Single a=5 b=4 s a,b Print a,b则程序运行后，单击命令按钮时输出 。13有如下Sub过程与调用过程：ind 2Sub ind（a As Integer）Static X As IntegerX=X+aPrint X；程序运行后，单击命令按钮3次，其输出结果为 。 14下列过程的功能是：在对多个文本框进行输入时，对第1个文本框（Text1）输入完毕后，用Enter键使焦点跳到第2个文本框

21、中，而不是用Tab键来切换。试补充以下程序。Private Sub KeyDown（keycode As Integer，shift As Integer）If keycode Then Text2 End If15以下程序用来计算1至指定数（由调用程序传人）之间所有奇数的和，试将程序补充完整。 Function mult（ ）Dim Sum As IntegerSum=0Dim i As IntegerFor i=1 To If i Mod 2 Then mult=Sum若要计算并输出100之内所有奇数的和，则正确的调用语句是 。16运行下面的程序，单击窗体后在窗体上显示的第1行结果是 ，第

22、2行结果是 。Private Function Digit（n As Integer，k As Integer）As IntegerDigit=0Do While k Digit=n Mod 10 n=n 10 k=k-1Print Digit（1234，2）Print Digit（1234，3）17运行下面的程序，单击窗体后在窗体上显示的第1行结果是 ，第3行结果是 。Private Sub Test（x As Integer） If x0 Then Call Test（x-1） Print Test 318执行下面的程序后，第1行输出 ，第3行输出 。Dim a As Integer，i As Integera=2For i=1 To 9 Call Subl（i，a） Print iaPrivate Sub Sub1（ByVal X As Integer，Y As Integer）For i=3 To 1 Step -1 y=y+x x=x-1