1、国家二级 VB 机试（数据类型及运算）模拟试卷 14 及答案解析(总分：64.00，做题时间：90 分钟)一、选择题(总题数：32，分数：64.00)1.设有如图所示窗体和以下程序： Pirint Sub Command1_Click() Text1Text=“Visual Basic“ End Sub Private Sub Text LostFocus() If Text1Text10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.2B.3C.4D.516.设有以下函数过程： Fu
2、nction fun(a As Integer，b As Integer) Dim C As Integer IfaA.a、b 的最大公约数B.a、b 的最小公倍数C.a 除以 b 的余数D.a 除以 b 的商的整数部分17.在窗体上画一个名称为 Command1 的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Command1_Click() aS=“software and hardware“ b$=Right(a$，8) c$=Mid(aS，1，8)：MsgBox a$，b$，c$，1 End Sub 则在弹出的信息框标题栏中显示的标题是（分数：2.00）A.sof
3、tware and hardwareB.hardwareC.softwareD.118.以下程序段的输出结果是 X=1：Y=4 Do Until Y4 X=X*Y：Y=Y+1 Loop Print X（分数：2.00）A.lB.4C.8D.2019.下面函数的功能应该是：删除字符串 s 仃中所有与变量 ch 相同的字符，并返回删除后的结果。例如：若 str=“ABCDABCD”，ch=“B”，则函数的返回值为：“ABCDCD” Function delchar(str As String，ch As String)As String Dim k As Integer，temp As Strin
4、g，ret As String Ret=“ For k=1 To Len(str) Temp=Mid(str，k，1) Iftemp=ch Then ret=ret temp End If Next k delchar=ret End Function 但实际上函数有错误，需要修改。下面的修改方案中正确的是（分数：2.00）A.把 ret=ret temp 改为 ret=tempB.把 Iftemp=ch Then 改为 Iftemp=5 x=a*b Print b；x a=a+b：b=b+a Loop End Sub 程序运行后，单击窗体，输出结果是（分数：2.00）A.1 1 2 3B.1
5、 1 2 4C.1 1 3 8D.1 1 3 623.表达式 Int(Rnd(0)*50)所产生的随机数范围是（分数：2.00）A.(0，50)B.(1，50)C.(0，49)D.(1，49)24.现有如下一段程序： Option Base1 Private Sub Command1_Click() Dim a a=Array(3，5，7，9)：x=1 For i=4 To 1 Step -1 s=s+a(i)*x：x=x*10 Next Print s End Sub 执行程序，单击 Command1 命令按钮，执行上述事件过程，输出结果是（分数：2.00）A.9753B.3579C.35D
6、.7925.设有如下程序： Sub f(x As Integer，ByVal y As Integer) x=2*x：y=y+x End Sub Private Sub Command1_Click() Dim a As Integer，b As Integer a=6：b=35 Call f(a，b) Print a，b End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.00）A.6 47B.12 47C.6 35D.12 3526.以下不能输出“Program”的语句是（分数：2.00）A.Print Mid(“VBProgram“，3，7)B.Print
7、Right(“VBProgram“，7)C.Print Mid(“VBProgram“，3)D.Print Left(“VBProgram“，7)27.执行以下程序段 a$=“Visual Basic Programming“：b$=“C+“c$=UCase(Left$(a$，7)b$RightS(aS，12) 变量 c$的值为（分数：2.00）A.Visual BASIC ProgrammingB.VISUAL C+ProgrammingC.Visual C+ProgrammingD.VISUAL BASIC Programming28.可以产生 3050(含 30 和 50)之间的随机整数
8、的表达式是（分数：2.00）A.Int(Rnd*21+30)B.Int(Rnd*20+30)C.Int(Rnd*50-Rnd*30)D.Int(Rnd*30+50)29.能够产生 1 到 50 之间(含 1 和 50)随机整数的表达式是（分数：2.00）A.Int(Rnd*51)B.Int(Rnd(50)+1)C.Int(Rnd*50)D.Int(Rnd*50+1)30.表达式 Sgn(025)的值是（分数：2.00）A.-1B.0C.1D.0531.要计算 x 的平方根并放入变量 y，正确的语句是（分数：2.00）A.y=Exp(x)B.y=Sgn(x)C.y=Int(x)D.y=Sqr(x
9、)32.Print Right(“VB Programming“，2)语句的输出结果是（分数：2.00）A.VBB.ProgrammingC.ngD.2国家二级 VB 机试（数据类型及运算）模拟试卷 14 答案解析(总分：64.00，做题时间：90 分钟)一、选择题(总题数：32，分数：64.00)1.设有如图所示窗体和以下程序： Pirint Sub Command1_Click() Text1Text=“Visual Basic“ End Sub Private Sub Text LostFocus() If Text1Text10 Then Exit For Next Text1Text
10、=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.2B.3 C.4D.5解析：解析：本题考查循环控件结构。在 Command1 的 Click 事件过程中，变量 I 是循环控制变量，变量n 记录循环的次数。在 For 循环中，i 每次增加 3，n 增加 1，接下来通过 if 判断 i 是否大于 10，如果大于 10 则结束循环。I 和 n 的变化过程为：3 和 1、7 和 2、11 和 3，当 1 为 11 时，if 条件成立循环结束。16.设有以下函数过程： Function fun(a As Integer，b As Integer) Di
11、m C As Integer IfaA.a、b 的最大公约数B.a、b 的最小公倍数 C.a 除以 b 的余数D.a 除以 b 的商的整数部分解析：解析：本题考查循环结构的使用。在 fun 函数中，首先判断 a 和 b 的大小，并把 a 和 b 中大的保存在 a 当中，小的保存在 b 当中。然后进入循环，在循环体内部，c 如果不能整除 b 则每次增加 a，这是求a 和 b 的最小公倍数。17.在窗体上画一个名称为 Command1 的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Command1_Click() aS=“software and hardware“ b$=
12、Right(a$，8) c$=Mid(aS，1，8)：MsgBox a$，b$，c$，1 End Sub 则在弹出的信息框标题栏中显示的标题是（分数：2.00）A.software and hardwareB.hardwareC.software D.1解析：解析：本题考查常用内部函数，Mid、Right 和 Left 是常用的字符串截取函数。在事件过程代码中，b$=Right(a$，8)表示从 a 字符串的最右边开始取 8 个字符，因此 b 变量为“hardware”，c$=Mid(a$，1，8)表示从 a 字符串的第一个字符开始取长度为 8 的子字符串，即 b 为“software”。Ms
13、gBox a$，b$，c$，1 是弹出对话框，其中对话框的标题为 b，提示内容为 a。18.以下程序段的输出结果是 X=1：Y=4 Do Until Y4 X=X*Y：Y=Y+1 Loop Print X（分数：2.00）A.lB.4 C.8D.20解析：解析：本题考查循环控制结构。X 和 Y 的初值分别为 1 和 4，循环的结束条件是 Y 大于 4。在循环体内，X=X*Y，Y 自增 1，Y 的初值为 4，循环结束条件为 Y 大于 4，因此循环执行一次后 Y 变成 5，循环结束，此时 x=1*4=4。19.下面函数的功能应该是：删除字符串 s 仃中所有与变量 ch 相同的字符，并返回删除后的结
14、果。例如：若 str=“ABCDABCD”，ch=“B”，则函数的返回值为：“ABCDCD” Function delchar(str As String，ch As String)As String Dim k As Integer，temp As String，ret As String Ret=“ For k=1 To Len(str) Temp=Mid(str，k，1) Iftemp=ch Then ret=ret temp End If Next k delchar=ret End Function 但实际上函数有错误，需要修改。下面的修改方案中正确的是（分数：2.00）A.把 re
15、t=ret temp 改为 ret=tempB.把 Iftemp=ch Then 改为 Iftemp=5 x=a*b Print b；x a=a+b：b=b+a Loop End Sub 程序运行后，单击窗体，输出结果是（分数：2.00）A.1 1 2 3B.1 1 2 4C.1 1 3 8D.1 1 3 6 解析：解析：本题考查循环结构的使用。本题的循环比较简单，可以直接计算循环体内变量的变化过程。第一次进入循环，x=a*b=1，第一次输出 1 和 1，然后 a=a+b=2，b=b+a=3；再次进入循环，x=a*b=6，第二次 Print 输出 3 和 6，然后 a=a+b=5，b=b+a=
16、8；此时 a=5，循环结束。23.表达式 Int(Rnd(0)*50)所产生的随机数范围是（分数：2.00）A.(0，50)B.(1，50)C.(0，49) D.(1，49)解析：解析：本题考查常用函数的使用。Rnd 函数返回小于 1 但大于或等于 0 的值，因此 Int(Rnd(0)*50)是产生 0-49 的整数。24.现有如下一段程序： Option Base1 Private Sub Command1_Click() Dim a a=Array(3，5，7，9)：x=1 For i=4 To 1 Step -1 s=s+a(i)*x：x=x*10 Next Print s End Su
17、b 执行程序，单击 Command1 命令按钮，执行上述事件过程，输出结果是（分数：2.00）A.9753B.3579 C.35D.79解析：解析：本题考查数组的使用和循环结构。在 Command1 的 Click 事件过程中，首先定义变量 a，然后通过 Array 函数给变量 a 赋值。在循环内，s 保存累加和，x 表示权重，每次扩大 10 倍，随着循环次数增加 x 越来越大。循环结束后，s 的值为 3579。25.设有如下程序： Sub f(x As Integer，ByVal y As Integer) x=2*x：y=y+x End Sub Private Sub Command1_C
18、lick() Dim a As Integer，b As Integer a=6：b=35 Call f(a，b) Print a，b End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.00）A.6 47B.12 47C.6 35D.12 35 解析：解析：本题考查函数调用和传参类型。VB 中默认的参数传递类型为 ByRef 是按地址传递参数的，f过程的两个参数，参数 x 是 ByRef，参数 y 是 ByVal，因此在 f 过程中修改形参 x 会同步修改实参，修改形参 y 不会导致实参的修改。26.以下不能输出“Program”的语句是（分数：2.00）A.P
19、rint Mid(“VBProgram“，3，7)B.Print Right(“VBProgram“，7)C.Print Mid(“VBProgram“，3)D.Print Left(“VBProgram“，7) 解析：解析：本题考查的考点是有关取子串函数的。在 VB 中有三种取子串函数：LeR 函数用于在字符串左端开始取 n 个字符；Right 函数用于在字符串右端开始取 n 个字符(注意子串中字符的顺序与母串中相同)；Mid 函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。本题中选项 D 的结果是 VBprogr，不符合题意。27.执行以下程序段 a$=“Visu
20、al Basic Programming“：b$=“C+“c$=UCase(Left$(a$，7)b$RightS(aS，12) 变量 c$的值为（分数：2.00）A.Visual BASIC ProgrammingB.VISUAL C+Programming C.Visual C+ProgrammingD.VISUAL BASIC Programming解析：解析：本题考查的考点是有关取子串函数的。在 VB 中有 3 种取子串函数：LeR 函数用于在字符串左端开始取 n 个字符；Right 函数用于在字符串右端开始取 n 个字符(注意子串中字符的顺序与母串中相同)；Mid 函数可以实现在任何
21、位置取任何长度的子串，其中长度省略的话将会一直取到串尾。uCase 函数用于把字符串转换成大写表示。28.可以产生 3050(含 30 和 50)之间的随机整数的表达式是（分数：2.00）A.Int(Rnd*21+30) B.Int(Rnd*20+30)C.Int(Rnd*50-Rnd*30)D.Int(Rnd*30+50)解析：解析：随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用以下公式： Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound 是随机整数范围的
22、上限，lowerbound 是随机整数范围的下限。本题中 upperbound 为50，lowerbound 为 30。29.能够产生 1 到 50 之间(含 1 和 50)随机整数的表达式是（分数：2.00）A.Int(Rnd*51)B.Int(Rnd(50)+1)C.Int(Rnd*50)D.Int(Rnd*50+1) 解析：解析：随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用以下公式： Int(upperbound10werbound+1)*Rnd+lowerbound)，其中upperbound 是随机整数范围的上
23、限，lowerbound 是随机整数范围的下限。本题中 upperbound 为50，lowerbound 为 1。30.表达式 Sgn(025)的值是（分数：2.00）A.-1B.0C.1 D.05解析：解析：Sgn 函数会返回参数的符号，如果参数为正数返回 1，为负数返回-1。31.要计算 x 的平方根并放入变量 y，正确的语句是（分数：2.00）A.y=Exp(x)B.y=Sgn(x)C.y=Int(x)D.y=Sqr(x) 解析：解析：Exp 函数是求指数函数：Sgn 函数是求符号函数：Int 函数是取整函数，平方根函数(Sqr)可以返回 N 的算术平方根，N 必须大于或等于 0。32.Print Right(“VB Programming“，2)语句的输出结果是（分数：2.00）A.VBB.ProgrammingC.ng D.2解析：解析：Right()函数用于取出已有字符串最右边指定个数的字符串，本题中取出的是最后两位字符。
