[计算机类试卷]国家二级VB机试（过程）模拟试卷5及答案与解析.doc

1、国家二级 VB机试（过程）模拟试卷 5及答案与解析 一、选择题 1 现有如下程序： Private Sub Command1_Click() Public Function f(x As Integer) s=0 If x=10 Then For j=1 To 5 t=x+1 s=s+f(5+i) Else Next t=x+2 Print s End If End Sub f=t End Function 运行程序，则窗体上显示的是 （ A） 38 （ B） 49 （ C） 61 （ D） 70 2 假定有以下 通用过程： Function Fun(n As Integer)As Integ

2、er x=n*n： Fun=x-11 End Function 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer For i=1 To 2 y=Fun(i)Print y； Next i End Sub 程序运行后，单击命令按钮 ，在窗体上显示的内容是 （ A） 1 3 （ B） 10 8 （ C） -10 -7 （ D） 0 5 3 求 1!+2!+10! 的程序如下： Private Function s(x As Integer) Private Sub Command1

3、_Click() f=1 Dim i As Integer， y As Long For i=1 To x For i=1 To 10 f=f*i ( ) Next Next s=f Print y End Function End Sub 为实现功能要求，程 序的括号中应该填入的内容是 （ A） Call s(i) （ B） Call s （ C） y=y+s(i) （ D） y=y+s 4 在窗体上画一个名称为 Command1的命令按钮，并编写如下程序： Function Fun(x) Private Sub Command1_Click() y=0 n=InputBox(“请输入一个数

4、 “) If x=y For k=1 To 9 x=x-Y Print fun(a(k-1)， a(k)； “； Loop Next k fun=x End Sub End Function 程序运行时的输出结果是 （ A） 4 0 1 0 3 0 0 4 0 （ B） 0 3 3 5 1 3 5 1 2 （ C） 9 -5 3 -5 7 -2 -4 7 -2 （ D） 9 3 3 5 7 3 5 7 2 6 设有如下函数： Function DelSpace(ch As String)As Integer Dim n， st$， c$ st=“： n=0 For k=1 To Len(ch)

5、 c=Mid(ch， k， 1) If c0 Then For i=1 To 500 p=True Ifp(i)Then s=s+1 Else Next p=False Print s End If End Sub End Function 关于上述程序，以下叙述中正确的是 （ A）程序功能是统计 1-500范围内能被 7整除的整数个数 （ B） Command1 Click事件过程中 lf语句的条件表达式不完整 （ C） Function过程定义有误，函数过程 p的名称与该过程中的变量名 p相同 （ D）函数过程 p的返回值为 Boolean类型 8 设有下面程序代码： Private Su

6、b Command1_Click() Dim str As String， ch As String str=“Visual Basic Programming“： ch=“a“ n=fun(ch， str)： Print str， n End Sub Privme Function fun(ch As String， sir As String)As Integer Dim strbufAs String， c As String， n As Integer For k=1 To Len(str) c=Mid$(str， k， 1) Ifc0) a=InputBox(“请输入整数 “) Pr

7、int n Mod 10； n=n 10 b=InputBox(“请输入整数 “) Wend pro a： pro b Print Call pro(a+b) End Sub End Sub 此程序功能是：输入 2个正整数，反序输出这 2个数的每一位数字，再反序输出这 2个数之和的每一位数字。例如：若输入 123和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2行 (即 2个数的反序 )，而未输出第 3行 (即 2个数之和的反序 )，程序需要修改。下面的修改方案中正确的是 （ A）把过程 pro的形式参数 n As Integer改为 ByVal n As

8、 Integer （ B）把 Call pro(a+b)改为 pro a+b （ C）把 n=n 10改为 n=n 10 （ D）在 pro b语句之后增加语句 c =a+b，再把 Call pro(a+b)改为 pro c 15 有下面程序代码： Private Sub Command1_Click() Private Sub proc(ByVal a As Integer) Dim x As Integer， s As Integer Static x As Integer x=1 x=x+1： a=a+x For k=1 To 3 End Sub x=x+1： proc x： s=s+x

9、 Next k Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果是 （ A） 6 （ B） 9 （ C） 15 （ D） 19 16 编写如下程序： Private Sub Command1_Click()Dim x As Integer x=10 Print funl(x， 12)+x End Sub Private Function fun1(m As Integer， n As Integer)As Integer If n10 Then m=n funl=m+n End Function 程序运行后，单击命令按钮 Command1，输出结果为 （ A

10、） 30 （ B） 32 （ C） 34 （ D） 36 17 在窗体上画一个名称为 Command1的命令按钮，再画两个名称分别为 Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub cornmand l Click() Private Sub proc(a As Integer， X=5： Y=3 ByVal b As Integer) Call proc(X， Y) X=a*a： Y=b+b Label1 Caption=X End Sub Label2 Caption=Y End Sub 程序运行后，单击命令按钮，

11、则两个标签中显示的内容分别是 （ A） 25和 3 （ B） 5和 3 （ C） 25和 6 （ D） 5和 6 18 设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20： y=2： f=x*y End Function 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10： y=5： y=f(x)Print x； y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 （

12、 A） 10 5 （ B） 20 40 （ C） 20 5 （ D） 10 40 19 命任何 一个滚动条滚动框件过程如下： Private Sub Command1_Click() Private Function fly As Integer) x=10 Print f(x) f=y*y End Sub End Function 运行上述程序，如下叙述中正确的是： （ A）程序运行出错， x变量的类型与函数参数的类型不符 （ B）在窗体上显示 100 （ C）函数定 义错，函数名 f不能又作为变量名 （ D）在窗体上显示 10 20 编写如下程序： Private Sub Command1

13、_Click() Dim x As Integer， y As Integer x=InputBox(“输入第一个数 “)： y=InputBox(“输入第二个数 “) Call f(x， y) Print x， y End Sub Sub f(a As Integer， ByVal b As Integer) a=a*2： x=a+b： b=b+100 End Sub 程序运行后，单击命令按钮 Command1，并输入数值 10和 15，则输出结果为 （ A） 10 115 （ B） 20 115 （ C） 35 15 （ D） 20 15 21 现有程序如下： Option Base1 P

14、rivate Sub Form Click() Sub f(m As Integer， n As Integer， Dim x(5， 6)As Integer， y(5)As Integer a() As Integer， b() As Integer) For i=1 To 5 For i=1 To m For j=1 To 6 b(i)=0 x(i， i)=Int(Rnd*9+1) For j=1 To n Nextj b(i)=b(i)+a(i， j) Next i Next j Call f(5， 6， x， y) Next i For i=l To 5 End Sub Print y

15、(i)； Next i End Sub 关于上述程序，以下叙述中正确的是 （ A）调用过程语句有错，参数 不匹配 （ B）程序有错，数组下标越界 （ C） Y数组中保存的是 x数组每行数据之和 （ D） x数组中数据的取值范围是 1-10 22 窗体上有一个名称为 Command1的命令按钮，一个名称为 Text1的文本框。编写如下程序： Private Sub Command1_Click() Private Function fun(ByRef n As Integer) Dim x As Integer If n Mod 3=0 Then x=Val(InputBox(“输入数据 “)

16、n=n+n Text1=Str(x+fun(x)+fun(x) Else End Sub n=n*n End If fun=n End Function 对于上述程序，以下叙述中错误的是 （ A）语句 fun=n有错，因为 n是整型， fun没有定义类型 （ B）运行程序，输入值为 5时，文本框中显示 655 （ C）运行程序，输入值为 6时，文本框中显示 42 （ D） ByRef表示参数按址传递 23 窗体上有一个名称为 Command1的命令按钮，并有如下程序代码： Private Sub Command1_Click() Sub ffByVal x， ByRef y， z) Stati

17、c a x=x+1： y=y+1： z=z+1 a=1： b=2： c=3 End Sub Call f(a， b， c) Print a； b； c End Sub 运行程序，单击命令按钮，窗体上显示的是 （ A） 1 3 3 （ B） 1 3 4 （ C） 2 3 3 （ D） 2 3 4 24 窗体上有一个名称为 Command1的命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim x As Integer， y As Integer Static z As Integer x=3： y=5： z=y Call f(x， y， z) Prin

18、t x； y； z End Sub Private Sub ffByVal a As Integer， ByRef b As Integer， c As Integer) a=a+a： b=b+b： c=c+c End Sub 运行程序，单击命令按钮时， 3个标签中显示的内容分别是 （ A） 3 5 5 （ B） 3 5 10 （ C） 3 10 5 （ D） 3 10 10 25 窗体上有一个名称为 Command1的命令按钮，其单击事件过程及相关的代码如下： Private Sub Command1_Click() Dim x As Integer， y As Integer x=Val(

19、InputBox(“输入整数 “) y=Val(InputBox(“输入整数 “) Print Str(fun(x， y)+x+y) End Sub Private Function fun(ByRef m As Integer， ByVal n As Integer) m=m*m： n=n+n： fun=m+n End Function 运行程序，单击命令按钮时，出现输入对话框，分别输入 3、 5，则窗体上显示的是 （ A） 27 （ B） 28 （ C） 33 （ D） 38 26 设有如下程序： Private Sub Inv(ByVal xStr As String， yStr As

20、String) Dim tStr As String Dim L As Integer L=Len(xStr) Do While L=1 tStr=tStr+Mid(xStr， L， 1)： L=L-1 Loop yStr=tStr End Sub Private Sub Form Click() Dim S1 As String S2 As String S1=“abcdef“Inv S1 S2 Print S2 End Sub 运行程序，单击窗体，输出结果为 （ A） abcdef （ B） atbecd （ C） fedcba （ D） defabc 27 设有如下程序： Private

21、 Sub sV(ByVal m As Integer， n As Integer) m=m*2： n=n-5： Print m： n End Sub Private Sub Form Click() Dim xAs Integer， y As Integer x=10： y=15： sV x， y Print x； y End Sub 运行程序，单击窗体，输出结果为 （ A） 20 10 10 10 （ B） 10 15 20 10 （ C） 20 15 10 15 （ D） 20 10 20 10 28 由高中数学可知，对于连续函数 f(x)，若 f(x1)与 f(x2)值的符号相反，则在

22、x1和 x2之间必存在 x0，使得 f(x0)=0(该点称为 “零点 ”)。设有 VB函数： Private Function f(x As Single)As Single可以返回 f(x)的值 (函数体没有给出 )。下面程序的功能是从键盘输入 2个实数 x1、 x2，判断在 x1、 x2之间是否存在零点。 Private Sub Command1_Click() Dim x1 As Single， x2 As Single xl=InputBox(“请输入一个实数 x1“) x2=InputBox(“请再输入一个实数 x2“) if(_)Then Print“在 “； x1； “与 “；

23、x2； “之间存在零点 “ Else Print“不能确定在 “； x1； “与 “； x2； “之间是否存在零点 “ End If End Sub Private Function f(x As Single)As Single End Function 为使上面程序可以实现该功能，程序代码中横线处应填写的代码是 （ A） f(x1)0 Or f(x2)0 29 编写如下程序： Private Sub Command1_Click() Private Function fun 1(ByVal m As Integer， Dim x As Integer， y As Integer n As

24、Integer)As Integer x=10： y=20 m=m*m： n=n+n Call funl(x， y) End Function Print x； y End Sub 程序运行后，单击命令按钮 Command1，输出结果为 （ A） 10 25 （ B） 10 40 （ C） 100 25 （ D） 100 40 30 设有以下过程： Private Sub proe(x As Integer， Optional Y As Integer) Print x， y End Sub 针对此过程，下面正确的过程调 用语句是 （ A） Call proc(a!， 23) （ B） Cal

25、l proc x， 12 （ C） proc b （ D） x=proc(12) 31 以下关于过程及过程参数的描述中，错误的是 （ A）过程的参数可以是控件名称 （ B）调用过程时使用的实参的个数应与过程形参的个数相同 (假定不含可变参数 ) （ C）只有函数过程能够将过程中处理的信息返回到调用程序中 （ D）窗体可以作为过程的参数 国家二级 VB机试（过程）模拟试卷 5答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 本 题考查的考点是有关函数调用和 If语句的。要注意在前 4次循环中每次调用 f函数时传递的参数分别为 6、 7、 8、 9，都是小于 10的，最后一次循环传递参数

26、 10，所以最终结果应该为 8+9+10+11+11=49。 【知识模块】 过程 2 【正确答案】 C 【试题解析】 本题共调用 Fun函数 2次，每次的函数值都是参数的平方减去 11的值，故此输出 -10， -7。 【知识模块】 过程 3 【正确答案】 C 【试题解析】 函数过程有一个返回值，一般出现在表达式中组成表达式的一部分。本题的题目要求 累加各个数的阶乘，而函数 s的作用是求参数的阶乘，因此应该在每次循环中累加 f函数的值，参数为循环变量 i。 【知识模块】 过程 4 【正确答案】 A 【试题解析】 本题是一个简单的函数调用，在函数中会判断参数 x的值，根据 x的值不同执行 If语句

27、的不同分支。由于实际参数为 100不满足 x10，会将形参 m的值也改变为 12，因返回的函数值为 24；由于函数 fun1的各个参数为地址传递，因此对于形参 m的值会影响实参 x的值，即 x的值也变为 12。 【知识模块】 过程 17 【正确答案】 A 【试题解析】 本题考查的考点是有关参数传递的。在 VB的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用 ByVal声明，说明此参数为传值调用；若用 ByRef声明，说明此参数为传址调用：没有说明传递类型，则默认为传址传递。即形参的结果会传递给实参。由于本题中的实参 Y采用传值传递，实参 X采用传址传递，而且 X是全

28、局变量，所以在被调过程中改变了 X的值而没有改变 Y的值。 【知识模块】 过程 18 【正确答案】 B 【试题 解析】 本题中函数 f中的形参 x和按钮的单击事件中的静态变量 x是不同的变量，相互之间互不影响。函数 f的参数 x使用的是地址传递的形式，即形参的变化会影响到实参；在命令按钮的单击事件中调用函数 f，会使得参数 x的值变成20，函数返回值为 40。 【知识模块】 过程 19 【正确答案】 A 【试题解析】 在调用子过程或者函数过程时，要求实参与形参必须是匹配的，即个数相同、类型相同、顺序一致。本题中命令按钮的 Click事件中隐式声明了变量x，所以 x是变体型；在调用函数 f的时候

29、将变体型的 x作为实参传送，但函 数 f中的形参 y是整型的，故此产生类型不匹配的情况。 【知识模块】 过程 20 【正确答案】 D 【试题解析】 在 Visual Basic中调用过程时，参数有两种传递形式：按值传递(ByvaI)和按址传递 (Byref)，默认为按址传递。其中，当参数按址传递时，如果在引用该参数的过程中改变了形参的值，同时也就改变了传递参数时实参变量的值。本题中 f的参数 a是按地址传递的， b是按值传递的，因此在 f中对 a的改变会影响实参 x，对 b的操作不会影响实参 y。 【知识模块】 过程 21 【正确答案 】 C 【试题解析】 本题中子过程 f的四个形参分别为整型

30、、整型、整型数组和整型数组，在窗体的单击事件中调用过程 f，四个实参和四个形参可以匹配，调用语句没有错误；在二重循环中为二维数组的每个元素赋值，数组下界从 1开始，因此不会越界；在二重循环中为数组 x的元素赋值为 0 9之间的值；在过程 f中用一个二重循环以此计算 x数组每行数据之和放在 y数组中。 【知识模块】 过程 22 【正确答案】 A 【试题解析】 本题中的函数 fun的功能是判断参数是否能被 3整除，若可以整除则将 n翻倍，否则将 n变为 n的 平方返回。在函数头部没有声明函数的返回值类型，默认为变体型，可以接受任何数据类型的赋值： ByRef表示参数按址传递，对形参的改变将会影响实

31、参；当输入 5的时候输出 5+25+625=655；当输入 6的时候输出 6+12+24=42。 【知识模块】 过程 23 【正确答案】 B 【试题解析】 在 Visual BaSic中调用过程时，参数有两种传递形式：按值传递(ByVaI)和按址传递 (Byref)，默认为按址传递。其中，当参数按址传递时，如果在引用该参数的过程中改变了形参的值，同时也就改变了传递参数 时实参变量的值。本题中 f的参数 x是按值传递的， y和 z是按地址传递的，因此在 f中对 x的改变不会影响实参 a，对 y和 z的操作会影响实参 b和 c。 【知识模块】 过程 24 【正确答案】 D 【试题解析】 在 Vis

32、ual BaSic中调用过程时，参数有两种传递形式：按值传递(Byval)和按址传递 (Byref)，默认为按址传递。其中，当参数按址传递时，如果在引用该参数的过程中改变了形参的值，同时也就改变了传递参数时实参变量的值。本题中 f的参数 a是按值传递的， b和 c是按地址传递的，因此在 f中对 a的改变不 会影响实参 x，对 b和 c的操作会影响实参 x和 y。 【知识模块】 过程 25 【正确答案】 C 【试题解析】 在 Visual BaSic中调用过程时，参数有两种传递形式：按值传递(Byval)和按址传递 (Byrcf)，默认为按址传递。其中，当参数按址传递时，如果在引用该参数的过程中

33、改变了形参的值，同时也就改变了传递参数时实参变量的值。本题中 fun的参数 m是按地址传递的， n是按值传递的，因此在 f中对 m的改变会影响实参 x，对 n的操作不会影响实参 y，即输出的是 str(19+9+5)=“33“。 【知识模块】 过程 26 【正确答案】 C 【试题解析】 在 Visual Basic中调用过程时，参数有两种传递形式：按值传递(Byval)和按址传递 (Byref)，默认为按址传递。其中，当参数按址传递时，如果在引用该参数的过程中改变了形参的值，同时也就改变了传递参数时实参变量的值。本题中 Inv的参数 xStr是按值传递的， ystr是按地址传递的，因此在 In

34、v中对 xStr的改变不会影响实参 S1，对 yStr的操作会影响实参 S2。过程 Inv的作用是在每次循环中取出 S1字符串靠后面的值连接到 tStr中，然 后将 tStr赋值给 yStr从而通过地址传递带回给 S2，即字符串的逆序。 【知识模块】 过程 27 【正确答案】 A 【试题解析】 在 Visual Basic中调用过程时，参数有两种传递形式：按值传递(Byval)和按址传递 (Byref)，默认为按址传递。其中，当参数按址传递时，如果在引用该参数的过程中改变了形参的值，同时也就改变了传递参数时实参变量的值。本题中 sV的参数 m是按值传递的， n是按地址传递的，因此在 sV中对

35、m的改变不会影响实参 x，对 n的操作会影响实参 y。 【知识模块】 过程 28 【正确答案】 C 【试题解析】 本题实际是要求判断两个函数值是否符号相反，由中学数学的知识司知，两数相反的标志是两数相乘结果小于 0。 【知识模块】 过程 29 【正确答案】 B 【试题解析】 在 Visual Basic中调用过程时，参数有两种传递形式：按值传递(Byval)和按址传递 (Byref)，默认为按址传递。其中，当参数按址传递时，如果在引用该参数的过程中改变了形参的值，同时也就改变了传递参数时实参变量的值。本题中 funl的参数 m是按值传递的， n是按地址传递的，因此在 funl中对 m的改变不会

36、影响实参 x，对 n的操作会影响实参 y。 【知识模块】 过程 30 【正确答案】 C 【试题解析】 Optional声明的参数是可选参数，在调用的时候可以省略对应的实参，但是可选参数必须放在形参列表的最后声明：在过程内可以使用 IsMissing函数来判断是否实际调用的时候省略了对应的实参。子过程可以独立使用，也可以使用 Call关键字来进行调用，但此时参数需要加括号。 【知识模块】 过程 31 【正确答案】 C 【试题解析】 本题考查的考点是有关过程参数的。过 程的参数可以为任何控件，包括窗体，在传递参数时，形参表与实参表中对应变量的名字不必相同，但参数的个数、对应位置和对应类型必须相同。除了函数过程可以把信息返回到调用程序中，一般过程也司以通过地址传递的方法把信息返回到调用程序中。 【知识模块】 过程