1、国家二级 VB 机试（数据类型及运算）模拟试卷 15 及答案解析(总分：64.00，做题时间：90 分钟)一、选择题(总题数：32，分数：64.00)1.以下表达式与 Int(35)的值相同的是（分数：2.00）A.Int(35)B.Val(35)C.Fix(35)D.Abs(35)2.以下能对正实数 d 的第 3 位小数四舍五入的表达式是（分数：2.00）A.001*Int(d+0005)B.001*In(000*(d+0005)C.001*Int(100*(d+005)D.001*Int(d+005)3.语句：Print Asc(Chr$(Mid$(“98765432“，4，2)的输出是（
2、分数：2.00）A.65B.AC.8765D.W4.语句：PrintInt(Rnd*5+20)的输出不可能是（分数：2.00）A.20B.22C.24D.255.产生 100 以内(不含 100)2 位随机整数的 Visual Basic 表达式是（分数：2.00）A.Int(Rnd(11*91)+10B.Int(Rnd(1)*90)+10C.Int(Rnd(1)*91)+11D.Int(Rnd(1)*90)+116.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form Load() Text1Text=“：Text2Text=“
3、：Text1SetFocus End Sub Private Sub Text1_Change() Text2Text：Mid(Text1Text，6) End Sub 程序运行后，如果在文本框 Text1 中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是（分数：2.00）A.ChinaBeijingB.ChinaC.BeijingD.ChinaB7.设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStrAs StringstrLAs Integer tStr=“ strL=Len(xStr)i=1
4、 Do While i=strL2 tStr=tStrMid(xStr，i，1)Mid(xStr，strL-i+1，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1=“abcdef“：Print UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.ABCDEFB.abcdefC.AFBECDD.DEFABC8.假定有以下函数过程： Function
5、Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S，i，1)+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Strl As StringStr2 As String Strl=InputBox(“请输入一个字符串“)：Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定
6、”按钮后在窗体上的输出结果为（分数：2.00）A.ABCDEFGB.abedefgC.GFEDCBAD.gfedeba9.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示内容：112 123 1234 则在横线处应填入的内容为（分数：2.00）A.Right(c1，i)B.Left(c1，i)C.Mid(c1，i，1)D.Mid(c1，i，i)10.设有如下通用
7、过程： Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tStr=“：strL=Len(xStr) i=strL2 Do While i=strL tStr=tStrMid(xStr，i+1，1) i=i+1 Loop Fun=tStrtStr End Function 在窗体上画一个名称为 Text1 的文本框和一个名称为Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1=“ABC
8、DEF“：Text1Text=LCase(Fun(S1) End Sub 程序运行后，单击命令按钮，文本框中显示的是（分数：2.00）A.ABCDEFB.abcdefC.defdefD.defabc11.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下： Private Type x Private Sub Command1_Click() a As Integer：b As Integer Dim Y As x End Type ya=InputBox(”) Ifya2=ya2 Then yb=ya*ya Else yb=Fix(ya2)
9、 End If Text1Text=yb End Sub 对以上程序，下列叙述中错误的是（分数：2.00）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的是偶数，yb 的值为该偶数的平方D.Fix(ya2)把 ya2 的小数部分四舍五入，转换为整数返回12.窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUP 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Dim e As String c=UCase(Chr(KeyCode)：Te
10、xt2Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是（分数：2.00）A.AB.aC.CD.c13.窗体上有名称分别为 Text1、Text2 的文本框，名称为 Command1 的命令按钮。运行程序，在 Text1 中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2Text=UCase(Mid(Text1Text，5，4) End Sub 在 Text2 中显示的是（分数：2.00）A.formB.listC.FORMD.LIS
11、T14.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下： Private Sub Command1_Click() m=-36 IfSgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为（分数：2.00）A.-4B.-3C.3D.3615.设有如下程序： Private Sub Form_Click() num=InputBox(“请输入一个实数“)：p=InStr(num，“) Ifp0 Then Print Mid(num，p+1) Else Print“END“ E
12、nd If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则（分数：2.00）A.用字符方式输出该实数B.输出该实数的整数部分C.输出该实数的小数部分D.去掉实数中小数点，保留所有数码输出16.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form Load() Private Sub Form Click() Text1Text=“：Text1SetFocus Dim a As String，S As String End Sub a=Text1Text：s=“ For k=l To Len(a) s=U
13、Case(Mid(a，k，1)+s Next k Text1Text=s End Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（分数：2.00）A.与原字符串相同B.与原字符串中字符顺序相同，但所有字母均转换为大写C.为原字符串的逆序字符串，且所有字母转换为大写D.为原字符串的逆序字符串17.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=InputBox(“请输入一个二进制数“)：n=Len(a$) For i=1 To n Dec=Dec*2+_(a$，i，1) Next i Print Dec
14、 End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是（分数：2.00）A.LeftB.RightC.ValD.Mid18.以下程序的功能是随机产生 10 个两位的整数： Option Base1 Private Sub Command1_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 Su
15、b 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（分数：2.00）A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10C.a(i)=Int(Rnd*100)+10D.am=Int(Rnd*101)19.窗体上有一个名称为 Command1 的命令按钮，单击该按钮时所实现的功能，是产生 10 个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a(10)As Integer，x As
16、 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 Ifp=0 Then Print“没有找到与输入数据相同的数!“ Else Print Str(x)+“在数组中的位置是“+Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是（分数：2.00）A.本程序实际产生的随机数是 0-99B.若产生的随机数中有相同数，则 p 是其中最后一个数的位置C.程序有错，p
17、 的初值设置不对D.程序有错，InputBox 函数产生的数据与 x 的类型不匹配20.表达式 5 Mod 3+35*2 的值是（分数：2.00）A.0B.2C.4D.621.设有如下程序段： x=2 For i=1 To Step 2 x=x+i Next i 运行以上程序后，x 的值是（分数：2.00）A.26B.27C.38D.5722.设 a=“MicrosoftVisualbasic”，则以下使变量 b 的值为“Visualbasic”的语句是（分数：2.00）A.b=Left(a，10)B.b=Mid(a，10)C.b=Right(a，10)D.b=Mid(a，11，10)23.设
18、 a=“a“，b=“b“，c=“c“，d=“d“，执行语句 x=IIf(ad)，“A“，“B“) 后，x 的值为（分数：2.00）A.aB.bC.AD.B24.设有如下语句： Dim a，b As Integer c=“VisualBasic“ d=#7202005# 以下关于这段代码的叙述中，错误的是（分数：2.00）A.a 被定义为 Integer 类型变量B.b 被定义为 Integer 类型变量C.c 中的数据是字符串D.d 中的数据是日期类型25.设 x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（分数：2.00）A.Print A=x+yB.Print“A=“；x+y
19、C.Print“A=“=Str(x+y)D.Print“A=“x+y26.下列表达式中不能判断 x 的是否为偶数的是（分数：2.00）A.x2=Int(x2)B.x Mod 2=0C.Fix(x2)=x2D.x2=027.如设置了文本框的属性 PasswordChar=“$“，则运行程序时向文本框中输入 8 个任意字符后，文本框中显示的是（分数：2.00）A.8 个“$”B.1 个“$”C.8 个“*”D.无任何内容28.为了计算 1+3+5+99 的值，某人编程如下： k=1：s=0 while k99C.循环前的赋值语句 k=1 错误，应改为 k=0D.循环中两条赋值语句的顺序错误，应改为
20、 s=s+k：k=k+229.如果执行一个语句后弹出如图所示的窗口，则这个语句是 （分数：2.00）A.InputBox(“输入框“，“请输入 VB 数据“)B.x=InputBox(“输入框“，“请输入 VB 数据“)C.InputBox(“请输入 VB 数据“，“输入框“)D.x=InputBox(“请输入 VB 数据“，“输入框“)30.下列可以打开随机文件的语句是（分数：2.00）A.Open“fileldat“For Input As #1B.Open“fileldat“For Append As #1C.Open“fileldat“For Output As #1D.Ooen“fi
21、leldat“For Random As #1 len=2031.下面可以产生 2030(含 20 和 30)的随机整数的表达式是（分数：2.00）A.Int(Rnd*10+20)B.Int(Rnd*11+20)C.Int(Rnd*20+30)D.Int(Rnd*30+20)32.假定用下面的语句打开文件： Open“Fileltxt“For Input As #1 则不能正确读文件的语句是（分数：2.00）A.Input #1，ch$B.Line Input #1，ch$C.ch$=Input$(5，#1)D.Read #1，ch$国家二级 VB 机试（数据类型及运算）模拟试卷 15 答案解
22、析(总分：64.00，做题时间：90 分钟)一、选择题(总题数：32，分数：64.00)1.以下表达式与 Int(35)的值相同的是（分数：2.00）A.Int(35)B.Val(35)C.Fix(35) D.Abs(35)解析：解析：Int 函数的作用是去返回不大于参数的最大整数，例如 Int(46)=4，Int(-46)=-5；Fix函数的作用是去掉参数的小数部分只保留整数部分，在参数为正数的时候，Int 函数和 Fix 函数的返回值是相同的。2.以下能对正实数 d 的第 3 位小数四舍五入的表达式是（分数：2.00）A.001*Int(d+0005)B.001*In(000*(d+000
23、5) C.001*Int(100*(d+005)D.001*Int(d+005)解析：解析：Int 函数会返回不大于参数的最大整数，要对第 3 位小数进行四舍五入，需要先将 d 自加0005，这样如果第三位小数大于 5 就将进位：接下来乘以 100，这样第 3 位小数就变成了第一位小数，对其做 Int 函数留下整数部分，最终再乘以 001 得到结果。3.语句：Print Asc(Chr$(Mid$(“98765432“，4，2)的输出是（分数：2.00）A.65 B.AC.8765D.W解析：解析：Mid 函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾，本题中是从第
24、4 位取长度为 2 的子串即“65”。Chr 函数可以将 ASCII 码转成对应的字符，ASC 函数将字符转换成对应的 ASCII 码。4.语句：PrintInt(Rnd*5+20)的输出不可能是（分数：2.00）A.20B.22C.24D.25 解析：解析：随机数函数 Rnd 用于产生一个小于 1 但大于或等于 0 的随机数值，Int 函数会返回不大于参数的最大整数值。由于 Rnd 函数酌值不能到达 1，所以整个表达式也不可能到达 25。5.产生 100 以内(不含 100)2 位随机整数的 Visual Basic 表达式是（分数：2.00）A.Int(Rnd(11*91)+10B.Int
25、(Rnd(1)*90)+10 C.Int(Rnd(1)*91)+11D.Int(Rnd(1)*90)+11解析：解析：随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用以下公式： Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound 是随机整数范围的上限，lowerbound 是随机整数范围的下限。6.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form Load() Text1Text=“：Text2
26、Text=“：Text1SetFocus End Sub Private Sub Text1_Change() Text2Text：Mid(Text1Text，6) End Sub 程序运行后，如果在文本框 Text1 中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是（分数：2.00）A.ChinaBeijingB.ChinaC.Beijing D.ChinaB解析：解析：Mid(string，start，length)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，如果 stan 参数超过了 string 参数中字符的数目，将返回空字符串，如果省略或
27、 length参数超过文本的字符数(包括 stan 处的字符)，将返回字符串中从 stan 到字符串结束的所有字符。本题程序运行后，当在文本框 Text1 中输入字符数达到或超过 6 时，在文本框 Text2 中将随即显示输入字符中从第 6 个字符开始的所有字符，全部字符输入后，文本框 Texf2 中的内容为“Beijing”。7.设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStrAs StringstrLAs Integer tStr=“ strL=Len(xStr)i=1 Do While i=strL2 tStr
28、=tStrMid(xStr，i，1)Mid(xStr，strL-i+1，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1=“abcdef“：Print UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.ABCDEFB.abcdefC.AFBECD D.DEFABC解析：解析：本题通用过程的功能是：从字符串变量 xStr 值的左右两端同时开始，由外向
29、里每次取出两个字符(左右各一个)，组成一个新的字符串。 本题程序运行后，当调用通用过程函数 Fun 后，返回值应为“afbecd”，转换为大写后在文本框中的显示结果为“AFBECD”。8.假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S，i，1)+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Strl As StringStr2
30、 As String Strl=InputBox(“请输入一个字符串“)：Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（分数：2.00）A.ABCDEFGB.abedefgC.GFEDCBAD.gfedeba 解析：解析：本题考查的考点是有关取子串函数的。本题也比较简单，循环次数就是字符串的长度，每次都在第 i 位取一个字母转换成小写，最后倒序连接起来，注意每次都把新取得的字符连接到 s1 的前面，所以为倒序连接。9.在窗体上画一个名称为 Command1
31、的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示内容：112 123 1234 则在横线处应填入的内容为（分数：2.00）A.Right(c1，i)B.Left(c1，i) C.Mid(c1，i，1)D.Mid(c1，i，i)解析：解析：本题考查的考点是有关取子串函数的。在 VB 中有 3 种取子串函数：Left 函数用于在字符串左端开始取 n 个字符；Right 函数用于在字符串右端开始取 n 个字
32、符(注意子串中字符的顺序与母串中相同)；Mid 函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。本题中显示出来的结果可以看出，第一行是字符串的第一个字符，第二行是字符串的前两个字符所以每行输出的应该是字符串的前 i 位。10.设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tStr=“：strL=Len(xStr) i=strL2 Do While i=strL tStr=tStrMid(xStr，i+1，1) i=i+1 Loop Fu
33、n=tStrtStr End Function 在窗体上画一个名称为 Text1 的文本框和一个名称为Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1=“ABCDEF“：Text1Text=LCase(Fun(S1) End Sub 程序运行后，单击命令按钮，文本框中显示的是（分数：2.00）A.ABCDEFB.abcdefC.defdef D.defabc解析：解析：本题考查的考点是有关字符串处理的。本题中过程中的循环变量 i 的初值是字符串长度的一半，终值是字符串长度，结合循环中的取子串
34、函数，整个循环的功能是取得字符串的后一半放入 tstr 中，然后连接上自身的值返回到调用程序。11.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下： Private Type x Private Sub Command1_Click() a As Integer：b As Integer Dim Y As x End Type ya=InputBox(”) Ifya2=ya2 Then yb=ya*ya Else yb=Fix(ya2) End If Text1Text=yb End Sub 对以上程序，下列叙述中错误的是（分数：2.00
35、）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的是偶数，yb 的值为该偶数的平方D.Fix(ya2)把 ya2 的小数部分四舍五入，转换为整数返回 解析：解析：本题考查的考点是有关自定义类型和 Fix 函数的。用户可以通过 Type 语句自定义类型，并可用自定义的类型声明变量。注意 Fix 函数是向下取整，Round 函数是四舍五入。12.窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUP 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integ
36、er) Dim e As String c=UCase(Chr(KeyCode)：Text2Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是（分数：2.00）A.AB.aC.C D.c解析：解析：本题考查的考点是有关字符转换函数的。UCase 函数的功能为强制转成大写字母：Chr 函数的功能是把整数按照 ASCII 码转换成字母；Asc 函数的功能是把字母转换成对应的 ASCII 码。本题中变量c 的值是大写字母“A”，最终结果是大写字母“C”。13.窗体上有名称分别为 Text1、Text2 的文本框，名称为
37、 Command1 的命令按钮。运行程序，在 Text1 中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2Text=UCase(Mid(Text1Text，5，4) End Sub 在 Text2 中显示的是（分数：2.00）A.formB.listC.FORMD.LIST 解析：解析：Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。14.窗体上有 1 个名称为 Command1
38、 的命令按钮，事件过程如下： Private Sub Command1_Click() m=-36 IfSgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为（分数：2.00）A.-4 B.-3C.3D.36解析：解析：Int 函数的作用是去返回不大于参数的最大整数，例如 Int(46)=4，Int(-46)=-5：VB中的逻辑值 True 和 False 和整型值之间会自动进行类型转换，其中-1 转换为 True，0 转换为 False。本题中由于 m 为负数，所以 sgn(m)的值为-1
39、，即条件为真，会返回不大于 m 的最大整数值即-4。15.设有如下程序： Private Sub Form_Click() num=InputBox(“请输入一个实数“)：p=InStr(num，“) Ifp0 Then Print Mid(num，p+1) Else Print“END“ End If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则（分数：2.00）A.用字符方式输出该实数B.输出该实数的整数部分C.输出该实数的小数部分 D.去掉实数中小数点，保留所有数码输出解析：解析：字符串匹配函数 lnstr 用于查找第二个参数在第一个参
40、数中第一次出现的位置，若未找到返回 0：Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。16.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form Load() Private Sub Form Click() Text1Text=“：Text1SetFocus Dim a As String，S As String End Sub a=Text1Text：s=“ F
41、or k=l To Len(a) s=UCase(Mid(a，k，1)+s Next k Text1Text=s End Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（分数：2.00）A.与原字符串相同B.与原字符串中字符顺序相同，但所有字母均转换为大写C.为原字符串的逆序字符串，且所有字母转换为大写 D.为原字符串的逆序字符串解析：解析：Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第 k 位个字符并且
42、连接到结果字符串的前面，所以结果字符串是源字符串的逆序字符串。17.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=InputBox(“请输入一个二进制数“)：n=Len(a$) For i=1 To n Dec=Dec*2+_(a$，i，1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是（分数：2.00）A.LeftB.RightC.ValD.Mi
43、d 解析：解析：Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。18.以下程序的功能是随机产生 10 个两位的整数： Option Base1 Private Sub Command1_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 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修
44、改是（分数：2.00）A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10 C.a(i)=Int(Rnd*100)+10D.am=Int(Rnd*101)解析：解析：随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用公式：Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中 upperbound是随机整数范围的上限，lowerbound 是随机整数范围的下限。本题中 upperbound 为 99，lowerbound 为10。19.窗体上有一个名称为 Co
45、mmand1 的命令按钮，单击该按钮时所实现的功能，是产生 10 个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a(10)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 Ifp=0 Then
46、 Print“没有找到与输入数据相同的数!“ Else Print Str(x)+“在数组中的位置是“+Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是（分数：2.00）A.本程序实际产生的随机数是 0-99 B.若产生的随机数中有相同数，则 p 是其中最后一个数的位置C.程序有错，p 的初值设置不对D.程序有错，InputBox 函数产生的数据与 x 的类型不匹配解析：解析：随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1)*R
47、nd+lowerbound)，其中upperbound 是随机整数范围的上限，lowerbound 是随机整数范围的下限。本题中 upperbound 为99，lowerbound 为 0。20.表达式 5 Mod 3+35*2 的值是（分数：2.00）A.0B.2 C.4D.6解析：解析：本题考查 VB 运算符和表达式。本题中的表达式运算符有 Mod 求余，整除和*乘法运算，整除和乘法优先级相同，因此先计箅 35 值为 0，然后乘以 2 值为 0，表达式变成：5 Mod 3+0，结果为2。21.设有如下程序段： x=2 For i=1 To Step 2 x=x+i Next i 运行以上程
48、序后，x 的值是（分数：2.00）A.26B.27 C.38D.57解析：解析：本题考查 For 循环。 x 的初值为 2，代码的功能是把循环变量的值和 x 做累加。For 循环执行 5 次，循环变量 i 的值分别为：1、3、5、7、9，因此循环结束后 x 的值为：2+1+3+5+7+9=27。22.设 a=“MicrosoftVisualbasic”，则以下使变量 b 的值为“Visualbasic”的语句是（分数：2.00）A.b=Left(a，10)B.b=Mid(a，10) C.b=Right(a，10)D.b=Mid(a，11，10)解析：解析：本题考查常用函数，Mid(a，M，N)
49、功能是从 a 字符串左起第 M 位下标开始取值(包含 M 位)，共取 N 位字符：Right(a，M)表示从右起第一位开始取值，向左取 M 位；Left(a，N)表示从 a 字符串左起第一位开始取值，向右取 N 位。题目要求取字符串右边的 11 个字符，可以使用 Mid 或者或者 Right 函数。选项 C 错误是由于少取了一个字符：选项 D 错误，只取了 10 个字符：选项 B 正确，表示从 a 字符串的第10 位下标开始取右边的字符串。23.设 a=“a“，b=“b“，c=“c“，d=“d“，执行语句 x=IIf(ad)，“A“，“B“) 后，x 的值为（分数：2.00）A.aB.bC.A D.B解析：解析：本题考查运算符、表达式和常用函数。IIf 语法是：IIf(逻辑表达式，表达式 1，表达式 2) 逻辑表达式：如果此表达式为真
