[计算机类试卷]国家二级VB机试（选择题）模拟试卷13及答案与解析.doc

1、国家二级 VB机试（选择题）模拟试卷 13及答案与解析 一、选择题 1 要计算 X的平方根并放入变量 y，正确的语句是 （ A） y=Exp(x) （ B） y=Sgn(x) （ C） y=Int(x) （ D） y=Sqr(x) 2 Print Right(”VB Programming”， 2)语句的输出结果是 （ A） VB （ B） Programming （ C） ng （ D） 2 3 以下表达式与 Int(3 5)的值相同的是 （ A） CInt(3 5) （ B） Val(3 5) （ C） Fix(3 5) （ D） Abs(3 5) 4 以下能对正实数 d的第 3位小数四舍

2、五入的表达式是 （ A） 0 01*Int(d+0 005) （ B） 0 01*Int(100*(d+0 005) （ C） 0 01*Int(100*(d+0 05) （ D） 0 01*Int(d+0 05) 5 语句： Print Asc(Chr$(Mid$(”98765432”， 4， 2)的输出是 （ A） 65 （ B） A （ C） 8765 （ D） W 6 语句： Print Int(Rnd*5+20)的输出不可能是 （ A） 20 （ B） 22 （ C） 24 （ D） 25 7 产生 100以内 (不含 100)2位随机整数的 Visual Basic表达式是 （ A

3、） Int(Rnd(1)*91)+10 （ B） Int(Rnd(1)*90)+10 （ C） Int(Rnd(1)*91)+11 （ D） Int(Rnd(1)*90)+11 8 在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程序： Private Sub Form_Load() Text1 Text=”： Text2 Text=”： Text1 SetFocus End Sub Private Sub Text 1_Change() Text2 Text=Mid(Text1 Text， 6) End Sub 程序运行后，如果在文本框 Text1中输入 China

4、Beijing，则在文本框 Text2中显示的内容是 （ A） ChinaBeijing （ B） China （ C） Beijing （ D） ChinaB 9 设有如下通用过程： Public Function Fun(x Str As String)As String Dim tStr As String， strL As Integer tStr=” strL=Len(xStr)i=1 DO While i =strL 2 tStr=tStr&Mid(xStr,i， 1)&Mid(xStr,strL-i+1， 1) i=i+1 Loop Fun=tStr End Function 在

5、窗体上画一个名称为 Commandl的命令按钮。然后编写如下的事件过程： Private Sub Commandl_Click() Dim S1 As String S1=”abcdef”： Print UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，输出结果是 （ A） ABCDEF （ B） abcdef （ C） AFBECD （ D） DEFABC 10 假定有以下函数过程： Function Fun(S As String)As String Dim S1 As String For i=1 To Len(S) sl=LCase(Mid(S， i， 1)+sl

6、Next i Fun=Sl End Function 在窗体上画一个 命令按钮，然后编写如下事件过程： Private Sub Command l_Click() Dim Str l As String， Str2 As String Strl=InputBox(”请输入一个字符串 ”)： Str2=Fun(Strl) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串 “abcdefg”，则单击 “确定 ”按钮后在窗体上的输出结果为 （ A） ABCDEFG （ B） abcdefg （ C） GFEDCBA （ D） gfedcba 11 在窗体上

7、画一个名称为 Commandl的命令按钮，然后编写如下事件过程： Private Sub Command l_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print_ Next End Sub 程序运行 后，单击命令按钮，要求在窗体上显示内容： 1 12 123 1234则在横线处应填入的内容为 （ A） Right(c1， i) （ B） Left(c1， i) （ C） Mid(c1， i， 1) （ D） Mid(c1， i， i) 12 设有如下通用过程： Public Function Fun(xStr As String)As String

8、 Dim tStr As String， strL As Integer tStr=”： strL=Len(xStr) i=strL 2 Do While i =strL tStr=tStr&Mid(xStr， i+1， 1) i=i+1 Loop Fun=tStr&tStr End Function 在窗体上画一个名称为 Text1的文本框和一个名称为 Commandl的命令按钮。然后编写如下的事件过程： Private Sub Command 1_Click() Dim S1 As String S1=”ABCDEF”： Text1 Text=LCase(Fun(S1) End Sub 程

9、序运行后，单击命令按钮，文本框中显示的是 （ A） ABCDEF （ B） abcdef （ C） defdef （ D） defabc 13 窗体上有一个名称为 Text1的文本框，一个名称为 Commandl的命令按钮。窗体文件的程序如下： Private Type x a As Integer： b As Integer End Type Private Sub Command l_Click() Dim y As x y.a=InputBox(”) If y a 2=y a 2 Then y b=y a*y a Else y b=Fix(y a 2) End If Text1 Text

10、=y b End Sub 对以 上程序，下列叙述中错误的是 （ A） x是用户定义的类型 （ B） InputBox函数弹出的对话框中没有提示信息 （ C）若输入的是偶数， y b的值为该偶数的平方 （ D） Fix(y a 2)把 y a 2的小数部分四舍五入，转换为整数返回 14 窗体上有两个名称分别为 Text1、 Text2的文本框。 Text1的 KeyUp事件过程如下： Private Sub Text 1_KeyUp(KeyCode As Integer， Shift As Integer) Dim C As String c=UCase(Chr(KeyCode)： Text2

11、Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1中输入小写字母 a时，文本框 Text2中显示的是 （ A） A （ B） a （ C） C （ D） c 15 窗体上有名称分别为 Text1、 Text2的文本框，名称为 Commandl的命令按钳。运行程序，在 Text1中输入 “FormList“，然后单击命令按钮，执行如下程序： Private Sub Command l_Click() Text2 Text=UCase(Mid(Text1 Text， 5， 4) End Sub 在 Text2中显示的是 （ A） form （ B） list （ C） F

12、ORM （ D） LIST 16 窗体上有 1个名称为 CommandI的命令按钮，事件过程如下： Private Sub Command 1_Click() m=-3 6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为 （ A） -4 （ B） -3 （ C） 3 （ D） 3 6 17 设有如下程序： Private Sub Form_Click() num=InputBox(”请输入一个实数 ”)： P=InStr(num， “， “) If P 0 Then Print

13、 Mid(num， P+1) Else Print”END” End If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则 （ A）用字符方式输出该实数 （ B）输出该实数的整数部分 （ C）输出该实数的小数部分 （ D）去掉实数中小数点，葆留所有数码输出 18 在 窗体上画一个文本框，名称为 Textl，然后编写如下程序： Private Sub Form_Load() Textl Text=”： Textl SetFocus End Sub Private Sub Form_Click() Dim a As String， s As Str

14、ing a=Textl Text： s=“ For k=1 To Len(A) s=UCase(Mid(a， k， 1)+s Next k Textl Text=S End Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容 （ A）与原字符串相同 （ B）与原字符串中字符顺序相同，但所有字母均转换为大写 （ C）为原字符串的逆序字符串，且所有字母转换为大写 （ D）为原字符串的逆序字符串 19 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command l Click() a$=InputBox(”请输入一个二进制数 ”)： n=Len(

15、a$) For i=1 To n Dec=Dec*2+_(a$， i， 1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击 “确定 ”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是 （ A） Left （ B） Right （ C） Val （ D） Mid 20 以下程序的功能是随机产生 10个两位的整数： Option Base 1 Private Sub Command l_Click() Dim a(10)As Integer,i As Integer Ra

16、ndomize For i=1 To 10 a(i)=Int(Rnd*100)+1： Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是 （ A） a(i)=Int(Rnd*100) （ B） a(i)=Int(Rnd*90)+10 （ C） a(i)=Int(Rnd*100)+10 （ D） a(i)=Int(Rnd*101) 21 窗体上有一个名称为 commandl的命令按钮，单击该按钮时所实现的功能是产生 10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出

17、相应的提示。该命令按钮的单击事件过程如下： Private Sub Command l_Click() Dim a(1 0)As Integer,x As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next x=InputBox(”输入 100以内的整数： ”)： P=0 For i=1 To 10 If a(i)=x Then p=i： Exit For End If Next If p=0 Then Print”没有找到与输入数据相同的数 !” Else Print Str(x)+”在数组中的位置是 ”+Str(p) End If End Sub 对于

18、上述事件过程，以下叙述中正确的是 （ A）本程序实际产生的随机数是 0 99 （ B）若产生的随机数中有相同数，则 P是其 中最后一个数的位置 （ C）程序有错， P的初值设置不对 （ D）程序有错， InputBox函数产生的数据与 x的类型不匹配 22 窗体上有一个名称为 Text1的文本框，一个名称为 Commandl的命令按钮。窗体文件的程序如下： Private Type x aAs Integer： bAs Integer End Type Private Sub Command l_Click() Dim y As x y a=InputBox(”) If y a 2=y a 2

19、 Then y b=y a*y a Else y b=Fix(y a 2) End If Textl Text=y b End Sub 对以上程序，下列叙述中错误的是 （ A） x是用户定义的类型 （ B） InputBox函数弹出的对话框中没有提示信息 （ C）若输入的是偶数， y b的值为该偶数的平方 （ D） Fix(y a 2)把 y a 2的小数部分四舍五入，转换为整数返回 23 窗体上有两个名称分别为 Text1、 Text2的文本框。 Text1的 KeyUp事件过程如下： Private Sub Text 1_KeyUp(KeyCode As Integer,Shift As

20、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 24 窗体上有名称分别为 Text1、 Text2的文本框，名称为 Commandl的命令按钮。运行程序，在 Text1中输入 “FormList”，然后单击命令按钮，执行如下程序： Private Sub Command l_Click() Text2 Text=UCase(Mid(Text1 Text，

21、 5， 4) End Sub 在 Text2中显示的是 （ A） form （ B） list （ C） FORM （ D） LIST 25 窗体上有 1个名称为 Commandl的命令按钮，事件过程如下： Private Sub Command l_Click() m=-3 6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并 单击命令按钮，窗体上显示的内容为 （ A） -4 （ B） -3 （ C） 3 （ D） 3 6 26 设有如下程序： Private Sub Form_Click() num=Inp

22、utB0x(”请输入一个实数 ”)： P=InStr(num， ” ”) Ifp 0 Then Print Mid(num， P+1) Else Print”END” End If End Sub 运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出 “END”； 否则 （ A）用字符方式输出该实数 （ B）输出该实数的整数部分 （ C）输出该实数的小数部分 （ D）去掉实数中的小数点，保留所有数码输出 27 在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Textl Text=“： Textl SetFocus

23、 End Sub Private Sub Form Click() Dim a As String， s As String a=Text1 Text： s=“ For k=1 To Len(a) s=UCase(Mid(a， k， 1)+s Next k Text1 Text=s End Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容 （ A） 与原字符串相同 （ B）与原字符串中字符顺序相同，但所有字母均转换为大写 （ C）为原字符串的逆序字符串，且所有字母转换为大写 （ D）为原字符串的逆序字符串 28 在窗体上画一个命令按钮，然后编写如下事件过程： Pri

24、vate Sub Command l_Click() a$=InputBox(”请输入一个二进制数 ”) n=Len(a$) For i=1 To n Dec=Dec*2+_(a$， i， 1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击 “确定 ”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是 （ A） Left （ B） Right （ C） Val （ D） Mid 29 以下程序的功能是随机产生 10个两位的整数： Option Base 1 Privat

25、e Sub Command l_Click() Dim a(1 0)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(Rnd*100) （ B） a(i)=Int(Rnd*90)+10 （ C） a(i)=Int(Rnd*100)+10 （ D） a(i)=Int(Rnd*101) 30 窗体上有一个名称为 Commandl的命令按钮，单击该按钮时所实现

26、的功能是产生 10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Commandl_Click() Dim a(1 0)As Integer,X As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next x=InputBox(”输入 100以内的整数： ”) p=0 For i=l To 10 If a(i)=X Then p=i： Exit For End If Next If p=0 Then Print”没有找到与输入数据相同的数

27、!” Else Print str(x)+”在数组中的位置是 ”+Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是 （ A）本程序实际产生的随机数是 0 99 （ B）若产生的随机数中有相同数，则 P是其中最后一个数的位置 （ C）程序有错， P的初值设置不对 （ D）程序有错， InputBox函数产生的数据与 x的类型不匹配 31 在 Visual Basic中，表达式 3*2 5 Mod 3的值是 （ A） 1 （ B） 0 （ C） 3 （ D）出现错误提示 32 表达式 2*32+4*2 2+32的值是 （ A） 30 （ B） 3 1 （ C） 49

28、 （ D） 48 33 设 a=4， b=5， c=6，执行语句 Print a b And b c窗体上显示的是 （ A） True （ B） False （ C）出错信息 （ D） 0 34 以下关系表达式中，其值为 True的是 （ A） ”XYZ” ”XYz” （ B） ”VisualBasic” ”visualbasic” （ C） ”the”=”there” （ D） ”Integer” ”Int” 35 把数学表达式么 (5x+3)/(2y-6)表示为正确的 VB表达似乎应该是 （ A） (5x+3) (2y-6) （ B） x*5+3 2*y-6 （ C） (5*x+3)(2*

29、Y-6) （ D） (x*5+3) (y*2-6) 国家二级 VB机试（选择题）模拟试卷 13答案与解析 一、选择题 1 【正确答案】 D 【试题解 析】 Exp函数是求指数函数： Sgn函数是求符号函数： Int函数是取整函数，平方根函数 (Sqr)可以返回 N的算术平方根， N必须大于或等于 0。 2 【正确答案】 C 【试题解析】 Right()函数用于取出已有字符串最右边指定个数的字符串，本题中取出的是最后两位字符。 3 【正确答案】 C 【试题解析】 Int函数的作用是去返回不大于参数的最大整数，例如Int(4 6)=4， Int(-4 6)=-5； Fix函数的作用是去掉参数的小数

30、部分只保留整数部分，在参数为正数的时候， Int函数 和 Fix函数的返回值是相同的。 4 【正确答案】 B 【试题解析】 Int函数会返回不大于参数的最大整数，要对第 3位小数进行四舍五入，需要先将 d自加 0 005，这样如果第三位小数大于 5就将进位：接下来乘以 100，这样第 3位小数就变成了第一位小数，对其做 Int函数留下整数部分，最终再乘以 0 01得到结果。 5 【正确答案】 A 【试题解析】 Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾，本题中是从第 4位取长度为 2的子串即 “65”。 Chr函数可以将 ASC 码转成对应的字符， ASC函

31、数将字符转换成对应的 ASC 码。 6 【正确答案】 D 【试题解析】 随机数函数 Rnd用于产生一个小于 1但大于或等于 0的随机数值， Int函数会返回不大于参数的最大整数值。由于 Rnd函数的值不能到达 1，所以整个表达式也不可能到达 25。 7 【正确答案】 B 【试题解析】 随机数函数： Rnd的功能是用于产生一个小于 1但大于或等于 0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式： Int(upperbound-lowerbound+1 )*Rnd+lowerbound)，其中 upperbound是随机整数范围的上限， lowerbound是随机整数范围的下限。 8

32、 【正确答案】 C 【试题解析】 Mid(string， start， length)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，如果 start参数超过了 string参数中字符的数目，将返回空字符串，如果省略或 length参数超过文本的字符数 (包括 start处的字符 )，将返回字符串中从 start到字符串结束的所有字符。 本题程序运行后， 当在文本框 Textl中输入字符数达到或超过 6时，在文本框Text2中将随即显示输入字符中从第 6个字符开始的所有字符，全部字符输入后，文本框 Text2中的内容为 “Beijing”。 9 【正确答案】 C 【试题解析】

33、 本题通用过程的功能是：从字符串变量 xStr值的左右两端同时开始，由外向里每次取出两个字符 (左右各一个 )，组成一个新的字符串。 本题程序运行后，当调用通用过程函数 Fun后，返回值应为 “afbecd”，转换为大写后在文本框中的显示结果为 “AFBECD”。 10 【正确答案】 D 【试题解析】 本题考查的考点是有关取子串函数的。本题也比较简单，循环次数就是字符串的长度，每次都在第 i位取一个字母转换成小写，最后倒序连接起来，注意每次都把新取得的字符连接到 s1的前面，所以为倒序连接。 11 【正确答案】 B 【试题解析】 本题考查的考点是有关取子串函数的。在 VB中有 3种取子串函数：

34、 Left函数用于在字符串左端开始取 n个字符； Right函数用于在字符串右端开始取 n个字符 (注意子串中字符的顺序与母串中相同 )； Mid函数可以实现在任何位置取任何长度的子串，其中长度 省略的话将会一直取到串尾。本题中显示出来的结果可以看出，第一行是字符串的第一个字符，第二行是字符串的前两个字符 所以每行输出的应该是字符串的前 i位。 12 【正确答案】 C 【试题解析】 本题考查的考点是有关字符串处理的。本题中过程中的循环变量 i的初值是字符串长度的一半，终值是字符串长度，结合循环中的取子串函数，整个循环的功能是取得字符串的后一半放入 tstr中，然后连接上自身的值返回到调用程序。

35、 13 【正确答案】 D 【试题解析】 本题考查的考点是有关自定义类型和 Fix函数的。 用户可以通过Type语句自定义类型，并可用自定义的类型声明变量。注意 Fix函数是向下取整， Round函数是四舍五入。 14 【正确答案】 C 【试题解析】 本题考查的考点是有关字符转换函数的。 UCase函数的功能为强制转成大写字母； Chr函数的功能是把整数按照 ASC 码转换成字母； Asc函数的功能是把字母转换成对应的 ASC 码。本题中变量 c的值是大写字母 “A”，最终结果是大写字母 “C”。 15 【正确答案】 D 【试题解析】 Mid(字符串，起始位置 ，个数 )函数用于从已有 字符串中

36、取出从指定位置开始的含指定个数字符的字符串， UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。 16 【正确答案】 A 【试题解析】 Int函数的作用是去返回不大于参数的最大整数，例如Int(4 6)=4， Int(-4 6)=-5； VB中的逻辑值 True和 False和整型值之间会自动进行类型转换，其中 -1转换为 True， 0转换为 False。本题中由于 m为负数，所以Sgn(m)的值为 -1，即条件为真，会返回不大于 m的最大整数值即 -4。 17 【 正确答案】 C 【试题解析】 字符串匹配函数 Instr用于查找第二个参数在第一个参数中第

37、一次出现的位置，若未找到返回 0； Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数 “起始位置 ”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。 18 【正确答案】 C 【试题解析】 Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指定位置开始的含指定个数 字符的字符串， UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第 k位个字符并且连接到结果字符串的前面，所以结果字符串是源字符串

38、的逆序字符串。 19 【正确答案】 D 【试题解析】 Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。 20 【正确答案】 B 【试题解析】 随机数函数 gnd的功能是用于产 生一个小于 1但大于或等于 0的随机数。为了生成某个指定范围内的随机整数，可使用公式： Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中 upperbound是随机整数范围的上限，lowerbound是随机整数范围的下限。本题中 upperbound为

39、 99， lowerbound为10。 21 【正确答案】 A 【试题解析】 随机数函数 Rnd的功能是用于产生一个小于 1但大于或等于 0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int(upperbound-10werbound+1)*Rnd+lowerbound)，其中 upperbound是随机整数范围的上限， lowerbound是随机整数范围的下限。本题中 upperbotmd为 99，lowerbound为 0。 22 【正确答案】 D 【试题解析】 本题考查的考点是有关自定义类型和 Fix函数的。用户可以通过Type语句自定义类型，并可用自定义的类型声明变量。

40、注意 Fix函数是向下取整， Round函数是四舍五入。 23 【正确答案】 C 【试题解析】 本题考查的考点是有关 字符转换函数的。 UCase函数的功能为强制转成大写字母； Chr函数的功能是把整数按照 ASC 码转换成字母； Asc函数的功能是把字母转换成对应的 ASC 码。本题中变量 c的值是大写字母 “A”，最终结果是大写字母 “C”。 24 【正确答案】 D 【试题解析】 Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串， UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。 25 【正确答案】

41、A 【试题解析】 Int函数的作用是去返回不大于参数的最大整数，例如Int(4 6)=4， Int(-4 6)=-5； VB中的逻辑值 True和 False和整型值之间会自动进行类型转换，其中 -1转换为 True， 0转换为 False,，本题中由于 m为负数，所以Sgn(m)的值为 -1，即条件为真，会返回不大于 m的最大整数值即 -4。 26 【正确答案】 C 【试题解析】 字符串匹配函数 Instr用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返回 0； Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指 定位置开始的含指定个数字符的字符串，若不指定个数将

42、返回字符串中从参数 “起始位置 ”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。 27 【正确答案】 C 【试题解析】 Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串， UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第 k位个字符并且连接到结果字符串的前面，所以结果字符串是源字符串的逆序字符串。 28 【正确答案】 D 【试题解析】 Mid(字符串，起始位置 ，个数 )函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串

43、。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。 29 【正确答案】 B 【试题解析】 随机数函数 Rnd的功能是用于产生一个小于 1但大于或等于 0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中 upperbound是随机整数范围的上限， lowerbound，随机整数范围的下限。本题中 upperbound为 99，lowerbound为 10。 30 【正确答案】 A 【试题解析】 随机数函数 Rnd的功能是用于产生一个小于 1但大于或等于 0的随机数。为

44、了生成某个指定范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中 upperbound是随机整数范围的上限， lowerbound是随机整数范围的下限。本题中 upperbound为 99，lowerbotmd为 0。 31 【正确答案】 A 【试题解析】 本题考查的考点是有关算术运算的。按照运算符的优先级，首先执行 3*2得到 6，然后用 6整除 5得到 1，最后用 1对 3求余数得到最终结果 1。本题要注意 “ ”为整除运算符，以及 Mod取余运算的算法。 32 【正确答案】 B 【试题解析】 本题考查的考点是有

45、关算术运算的。按照运算符的优先级，首先执行 32得到 9，然后用 2乘以 9得到 18；然后计算 4*2 2=4；最后计算 32得到9，三者相加得到最后结果 31。 33 【正确 答案】 A 【试题解析】 本题考查的考点是有关逻辑运算和关系运算的。逻辑运算就是两个逻辑型的量进行运算，逻辑运算符的优先级低于关系运算符，故本题先计算 And两端的表达式结果，这两个表达式的结果都为。 True，所以二者相与的结果也为True。 34 【正确答案】 B 【试题解析】 本题考查的考点是有关字符串比较的。在 VB中可以采用简单的逻辑运算符进行两个字符串的比较，即 (小于 )、 =(小于或等于 )、 (大于 )、=(大于或等于 )、 =(等于 )、 (不等于 )。在进行比较的时候， 将会首先比较字符串第一位的 ASCII码，若相同则比较第二位 以此类推。 35 【正确答案】 D 【试题解析】 VB中常用算术运算符有 8个，其中幂运算符 ()优先级最高；其次是取负 (-)、乘 (*)、浮点除 ( )、整除 ( )、取模 (Mod)、加 (+)、减 (-)，要改变运算的优先级可使用圆括号。