1、国家二级 VB机试（数据类型及运算）模拟试卷 21及答案与解析 一、选择题 1 窗体上有两个名称分别为 Text1、 Text2的文本框。 Text1的 KeyUp事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Dim c As String c=UCase(Chr(KeyCode)： Text2 Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1中输入小写字母 a时，文本框 Text2中显示的是 （ A） A （ B） a （ C） C （ D） C 2 窗体上有名称分别为 T
2、ext1、 Text2的文本框，名称为 Commandl的命令按钮。运行程序，在 Text1中输入 “FormList”，然后单击命令按钮，执行如下程序： Private Sub Commandl_Click() Text2 Text=UCase(Mid(Text1 Text， 5， 4) End Sub 在 Text2中显示的是 （ A） form （ B） list （ C） FORM （ D） LIST 3 窗体上有 1个名称为 Commandl的命令按钮，事件过程如下： Private Sub Commandl_Click() m= 3 6 If Sgn(m)Then n=Int(m)
3、 Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为 （ A） 4 （ B） 3 （ C） 3 （ D） 3 6 4 设有如下程序： Private Sub Form_Click() num=InputBox(“请输入一个实数 “)： P=InStr(num， “ “) Ifp 0 Then Print Mid(num， P+1) Else Print“END“ End If End Sub 运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出“END”；否则 （ A）用字符方式输出该实数 （ B）输出该实
4、数的整数部分 （ C）输出该实数的小数部分 （ D）去掉实数中的小数点，保留所有数码输出 5 在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Private Sub Form_Click() Text1 Text=“： Text1 SetFocus Dim a As String s As String End Sub a=Text1 Text： s=“ For k=1 To Len(a) s=UCase(Mid(a， k， 1)+s Next k Text1 Text=s End Sub 程序运行后，在文本框中输入一个字符串，然后
5、单击窗体，则文本框中的内容 （ A）与原字符串相同 （ B）与原字符串中字符顺序相同，但所有字母均转换为大写 （ C）为原字符串的逆序字符串，且所有字母转换为大写 （ D）为原字符串的逆序字符串 6 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() a =InputBox(“请输入一个二进制数 “) n=Len(a ) For i=1 To n Dec=Dec*2+_(a， i， 1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入 一个二进制数，并单击 “确定 ”
6、按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是 （ A） Left （ B） Right （ C） Val （ D） Mid 7 以下程序的功能是随机产生 10个两位的整数： Option Base1 Privme Sub Commandl_Click() Dim a(10)As Integer,i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1 Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是 （ A） a(i)=Int
7、(Rnd*100) （ B） a(i)=Int(Rnd*90)+10 （ C） a(i)=Int(Rnd*100)+l O （ D） a(i)=Int(Rnd*01) 8 窗体上有一个名称为 Commandl的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令 按钮的单击事件过程如下： Private Sub Commandl_Click() Dim a(10)As Integer,x As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next x
8、=InputBox(“输入 100以内的整数： “) p=0 For i=1 TO 10 Ifa(i)=x Then p=i： Exit For End If Next Ifp=0 Then Print“没有找到与输入数据相同的数 !“ Else Print Str(x)+“在数组中的位置是 “+Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是 （ A）本程序实际产生的随机数是 0 99 （ B）若产生的随机数中有相同数，则 p是其中最后一个数的位置 （ C）程序有错， p的初值设置不对 （ D）程序有错， InputBox函数产生的数据与 x的类型小匹配 9
9、在 Visual Basic中，表达式 3*2 5 Mod 3的值是 （ A） 1 （ B） 0 （ C） 3 （ D）出现 错误提示 10 表达式 2*3 2+4*2 2+3 2的值是 （ A） 30 （ B） 31 （ C） 49 （ D） 48 11 设 a=4， b=5， c=6，执行语句 Print a b And b c窗体上显示的是 （ A） True （ B） False （ C）出错信息 （ D） 0 12 以下关系表达式中，其值为 True的是 （ A） XYZ “XYZ“ （ B） VisualBasic “visualbasic“ （ C） the=“there“ （
10、D） Integer “Int“ 13 把数学表达式 表 示为正确的 VB表达似乎应该是 （ A） (5x+3) (2y一 6) （ B） x*5+3 2*y 6 （ C） (5*x+3)(2*y 6) （ D） (x*5+3) (y*2 6) 14 下面程序运行时，若输入 395，则输出结果是 Privme Sub Commandl_Click() Dim x x=InputBox(“请输入一个 3位整数 “) Print x Mod 10， x 100， (x Mod 100) 10 End Sub （ A） 3 9 5 （ B） 5 3 9 （ C） 5 9 3 （ D） 3 5 9 1
11、5 设 a=2， b=3， c=4， d=5，下列表达式的值是 a b And c =d Or 2*a c （ A） True （ B） False （ C） 1 （ D） 1 16 设 a=10， b=5， c=1，执行语句 Print a b c窗体上显示的是 （ A） True （ B） False （ C） 1 （ D）出错 17 要求如果 x被 7除余 2，则输出 x的值，下列语句中不能实现此功能的语句是 （ A） Ifx mod 7=2 Then Print x （ B） Ifx (x 7)*7=2 Then Print x （ C） Ifx (x 7)*7=2 Then Prin
12、t x （ D） Ifx Int(x 7)*7 =2 Then Print x 18 满足下列条件之一的年份是闰年： 1)年份能被 4整除但不能被 100整除 2)年份能被 400整除若 y代表年份，下面判断闰年的正确表达式是 （ A） y Mod 4 And y Mod 100 Or y M0d 400 （ B） y Mod 4=0 Or y Mod 100 0 And y Mod 400=0 （ C） y Mod 100 0 And(y Mod 4=0 Or Y Mod 400=0) （ D） y Mod 4=0 And y Mod 100 0 Or y Mod 400=0 19 已知 a
13、=6， b=15， c=23，则语句 Print Sgn(a+b Mod 6 c a)&a+b的输出结果为 （ A） 6 （ B） 16 （ C） 31 （ D） 121 20 设 a=2， b=3， c=4， d=5， 表达式 Not a =c Or 4*c=b2 And b a+c的值是 （ A） 1 （ B） 1 （ C） True （ D） FalSe 21 已知： x=6 y=39则表达式 “y x*Sgn(x)”的值为 （ A） 6 5 （ B） 6 （ C） 6 （ D） 6 5 22 设： a=12， b=5， c=7，表达式 x=(a c+a Mod b)+Int(13 5)
14、的值是 （ A） 5 （ B） 6 （ C） 7 （ D） 9 23 表达式 12 2 4的值是 （ A） 1 5 （ B） 2 （ C） 4 （ D） 1 24 设： a=2， b=8， c=6， d=3，表达式 a b And Not(c d)Or d c的值是 （ A） 1 （ B） 0 （ C） True （ D） False 25 数学式 y2 x 10在 VB中应表示为 （ A） y*y x And 10 =x （ B） Sqr(y) x And x =10 （ C） Sqr(y) x Or x =10 （ D） y*y x Or x =10 26 设 a=10， b=4， c=5
15、， d=7，表达式 a b And Not c d+6的值为 （ A） Tme （ B） False （ C） 1 （ D） 0 27 以下叙述中错误的是 （ A）续行符与它前面的字符之间至少要有一个空格 （ B） Visual Basic中使用的 续行符为下划线 (_) （ C）以撇号 ()开头的注释语句可以放在续行符的后面 （ D） visual Basic可以自动对输入的内容进行语法检查 28 下列有语法错误的赋值语句是 （ A） y=7=9 （ B） s=m+n （ C） Text1 Text=10 （ D） m+n=12 29 输入 VB源程序时，若一个命令行中包含两个语句，则两个语
16、句之间的分隔符应使用 （ A）冒号 (： ) （ B）分号 (； ) （ C）下划线 (_) （ D）连字符 (-) 30 Visual Basic源程序的续行符为 （ A）冒号 (： ) （ B）分号 (； ) （ C）下划线 (_) （ D）连字符 (-) 国家二级 VB机试（数据类型及运算）模拟试卷 21答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 本题考查的考点是有关字符转换函数的。 UCase函数的功能为强制转成大写字母； Chr函数的功能是把整数按照 ASCII码转换成字母； Asc函数的功能是把字母转换成对应的 ASCII码。本题中变量 c的值是大写字母 “A”，最
17、终结果是大写字母 “C”。 【知识模块】 数据类型及运算 2 【正确答案】 D 【试题解析】 Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串， UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。 【知识模块】 数据类型及运算 3 【正确答案】 A 【试题解析】 Int函数的作用是去返回不大于参数的最大整数，例如Int(4 6)=4， hat( 4 6)= 5； VB中的：逻辑值 True和 False和整型值之间会自动进行类型转换，其中 1转换为 True， 0转换为 False。本题中由于 m为负数，所
18、以 Sgn(m)的值为 1，即条件为真，会返回不大于 m的最大整数值即 4。 【知识模块】 数据类型及运算 4 【正确答案】 C 【试题解析】 字符串匹配函数 Instr用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返回 0； Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数 “起始位置 ”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。 【知识模 块】 数据类型及运算 5 【正确答案】 C 【试题解析】 Mid(字符串，起始位置 ，个数 )函数用于从
19、已有字符串中取出从指定位置开始的含指定个数字符的字符串， UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第 k位个字符并且连接到结果字符串的前面，所以结果字符串是源符串的逆序字符串。 【知识模块】 数据类型及运算 6 【正确答案】 D 【试题解析】 Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指定位置开 始的含指定个数字符的字符串。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。 【知识模块】 数据类型及运算 7 【正确答案】 B 【试题解析】 随机数函数 Rnd的功能是用于产生一个小于
20、1但大于或等于 0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1)*Rnd+lowcrbound)，其中 upperbound是随机整数范围的上限， lowerbound，随机整数范围的下限。本题中 upperbound为 99，lowerbound为 10。 【知识模块】 数据类型及运算 8 【正确答案】 A 【试题解析】 随机数函数 Rnd的功能是用于产生一个小于 1但大于或等于 0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1)*Rnd+lowerbou
21、nd)，其中 upperbound是随机整数范围的上限， lowerbound是随机整数范围的下限。本题中 upperbound为 99，lowerbound为 0。 【知识模块】 数据类型及运算 9 【正确答案】 A 【试题解析】 本题考查的考点是有关算术运算的。按照运算符的优先级，首先执行 3*2得到 6，然后用 6整除 5得到 1，最后用 1对 3求余数得到最终结果 1。本题要注意 “ ”为整除运算符，以及 Mod取余运算的算法。 【知识模块】 数据类型及运算 10 【正确答案】 B 【试题解析】 本题考查的考点是有关算术运算的。按照运算符的优先级，首先执行 32得到 9，然后用 2乘以
22、 9得到 18：然后计算 4*2 2=4：最后计算 32得到9，三者相加得到最后结果 31。 【知识模块】 数据类 型及运算 11 【正确答案】 A 【试题解析】 本题考查的考点是有关逻辑运算和关系运算的。逻辑运算就是两个逻辑型的量进行运算，逻辑运算符的优先级低于关系运算符，故本题先计算 And两端的表达式结果，这两个表达式的结果都为 True，所以二者相与的结果也为True。 【知识模块】 数据类型及运算 12 【正确答案】 B 【试题解析】 本题考查的考点是有关字符串比较的。在 VB中可以采用简单的逻辑运算符进行两个字符串的比较，即 (小于 )、 =(小于或等于 )、 (大于 )、=(大于
23、或等于 )、 =(等于 )、 (不等于 )。在进行比较的时候，将会首先比较字符串第一位的 ASCII码，若相同则比较第二位 以此类推。 【知识模块】 数据类型及运算 13 【正确答案】 D 【试题解析】 VB中常用算术运算符有 8个，其中幂运算符 ( )优先级最高；其次是取负 ( )、乘 (*)、浮点除 ( )、整除 ( )、取模 (Mod)、加 (+)、减 ( )，要改变运算的优先级可使用圆括号。 【知识模块】 数据类型及运算 14 【正确答案】 B 【试题解析】 VB中常用算术运算符有 8个，其中幂运算符 ( )优先级最高：其次是取负 ( )、乘 (*)、浮点除 ( )、整除 ( )、取模
24、 (Mod)、加 (+)、减 ( )。 【知识模块】 数据类型及运算 15 【正确答案】 B 【试题解析】 一个表达式可能含有多种运算，计算机按一定的顺序对表达式求值。一般顺序如下：首先进行函数运算；接着进行算术运算，其次序为：幂 ( )取负 ( ) 乘、浮点除 (*、 ) 整除 ( ) 取模 (Mod) 加、减 (+、一 ) 连接 (&)；然后进行关系运算 (=、 =、 =)；最后进行逻辑运算，顺序为：NotAndOrX orEqvImp 。 【知识模块】 数据类型及运算 16 【正确答案】 B 【试题解析】 VB中的逻辑值 True和 False在参与关系运算时会自动进行类型转换，其中 T
25、rue转换为 1， False转换为 0。本题中先计算 a b(10 5为真 )结果为 True，此时系统自动转换其值为 1，然后计算 1 c(一 1 1为假 )，结果为False。 【知识模块】 数据类型及运算 17 【正确答案】 C 【试题解析】 整除运算符 “ ”的功能是取两数相除结果的整数部分，取模运算符“MOD”的功 能是取两数相除的余数部分，且前者的优先级高于后者。据此判断本题中的选项，只有 C选项使用了 “ ”普通算数除法运算符，而且没有对结果进行取整操作，是不能判断被 7除余 2的。 【知识模块】 数据类型及运算 18 【正确答案】 D 【试题解析】 逻辑运算的优先级低于关系运
26、算，而且逻辑运算中优先级从高到低是 NotAndOr ，据此判断 D选项符合题意。 【知识模块】 数据类型及运算 19 【正确答案】 D 【试题解析】 算术表达式的运算次序为：幂 ( ) 取负 ( ) 乘、浮点除 (*、 ) 整除 ( ) 取模 (Mod) 加、减 (+、一 ) 连接 (&)， Sgn函数会返回参数的符号。本题中 Sgn(a+b Mod 6 c a)函数的参数经计算为正数，故此函数返回值为1； &运算是字符串连接运算，其优先级低于算术运算，所以会先计算 a+b=21，然后将 1和 21自动转换为字符串然后连接起来。 【知识模块】 数据类型及运算 20 【正确答案】 D 【试题解
27、析】 在一个包含多种运算的表达式中，优先级顺序为：首先进行函数运算，接着进行算术运算，然后进行关系运算 (=、 =、 =、 )，最后进行 逻辑运算 (NotAndOrXorEqvhnp) 。按优先级顺序本题逐步运算结果为： Not a =c Or 4*c=b 2 And b a+cNot 2 =4 Or 16=9 And 36NOt Tme Or False And TrueFalse Or False And TrueFalse or FalseFFalse 。 【知识模块】 数据类型及运算 21 【正确答案】 C 【试题解析】 算术表达式的运算次序为：幂 ( ) 取负 ( ) 乘、浮点除
28、(*、 ) 整除 ( ) 取模 (Mod) 加、减 (+、一 ) 连接 (&)， Sgn函数会返回参数的符号。本题 y x的值为 6，最终结果为 6。 【知识模块】 数据类型及运算 22 【正确答案】 A 【试题解析】 在一个包含多种运算的表达式中，优先级顺序为：首先进行函数运算，接着进行算术运算，然后进行关系运算 (=、 =、 =、 )，最后进行逻辑运算 (NotAndOrXorEqvImp) 。本题最后结果可以表达为(1+2)+2，结果为 5。 【知识模块】 数据类型及运算 23 【正确答案】 D 【试题解析】 算术表达式的运算法序为：幂 ( ) 取负 ( ) 乖、浮点除 (*、 ) 整除
29、 ( ) 取模 (Mod) 加、减 (+、一 ) 连接 (&)，所以本题将会先计算 122得到 6，然后计算 6 4=1。 【知识模块】 数据类型及运算 24 【正确答案】 D 【试题解析】 在一个包含多种运算的表达式中，优先级顺序为：首先进行函数运算，接着进行算术运算，然后进行关系运算 (=、 =、 =、 )，最后进行逻辑运算 (NotAndOrXorEqvImp) 。按此规则本题简化为 False And Not True Or False，最终结果为 False。 【知识模块】 数据类型及运算 25 【正确答案】 A 【试题解析】 Sgn函数为求平方根函数，为了表达 x既小于 y的平方又
30、大于等于10，两个表达式之间应该使用 And联接。 【知识模块】 数据类型及运算 26 【正确答案】 B 【试题解析】 在一个包含多种运算的表达式中，优先级顺序为：首先进行函数运算，接着进行算术运算，然后进行关系运算 (=、 =、 =、 )，最后进行逻辑运算 (NotAndOrXor EqvImp) 。本题最后结果可以表达为 True And Not True，结果为 False。 【知识模块】 数据类型及运算 27 【正确答案】 C 【试题解析】 VisuaIBasic中的语句是执行具体操作的指令，通常一行输入一条语句。也可把多条语句放在一行，各语句间用冒号 (： )隔开。还可通过续行符 (
31、续行符由一个空格加一个下划线组成 “_”)将一条语句分别放在多行，续行符和前面的字符之间至少要有一个空格以免被认为是一个单词。续行符的后面不可以放以撇号 ()，开头的注释语句； Visual Basic可以自动对输入的内容进行语法检查，有语法错误会给出提示。 【知识模块】 数据类型及运算 28 【正确答案】 D 【试题解析】 赋值语句可以把指定的值赋给一个变量或一个对象的某个属性，其格式为 Let目标操作符 =源操作符。格式中的 “源操作符 ”可以是变量、表达式、常量、对象属性以及它们的组合，但目标操作符必须是单个的变量或者属性。 【知识模块】 数据类型及运算 29 【正确答案】 A 【试题解析】 Visual Basic中的语句是执行具体操作的指令，通常一行输入一条语句 。也可把多条语句放在一行，各语句间用冒号 (： )隔开。还可通过续行符 (续行符由一个空格加一个下划线组成 “_”)将一条语句分别放在多行。 【知识模块】 数据类型及运算 30 【正确答案】 C 【试题解析】 visual Basic中的语句是执行具体操作的指令，通常一行输入一条语句。也可把多条语句放在一行，各语句间用冒号 (： )隔开。还可通过续行符 (续行符由一个空格加一个下划线组成 “_”)将一条语句分别放在多行。 【知识模块】 数据类型及运算
