1、二级 VISUAL+BASIC-86 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：45，分数：100.00)1.窗体上有名称分别为 Text1、Text2 的文本框，名称为 Command1 的命令按钮。运行程序，在 Text1 中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2.Text=UCase(Mid(Text1.Text,5,4) End Sub 在 Text2 中显示的是（分数：3.00）A.formB.listC.FORMD.LIST2.窗体上有 1 个名称为 Co
2、mmand1 的命令按钮，事件过程如下： Private Sub Command1_Click() m=-3.6 If Sgn(m) Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为（分数：3.00）A.-4B.-3C.3D.3.63.设有如下程序： Private Sub Form_Click() num=InputBox(“请输入一个实数“):p=InStr(num, “.“) If p0 Then Print Mid(num,p+1) Else Print“END“ End If End S
3、ub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则（分数：3.00）A.用字符方式输出该实数B.输出该实数的整数部分C.输出该实数的小数部分D.去掉实数中小数点，保留所有数码输出4.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Text1.Text=“:Text1.SetFocus 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
4、(a,k,1)+s Next k Text1.Text=s End Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（分数：3.00）A.与原字符串相同B.与原字符串中字符顺序相同，但所有字母均转换为大写C.为原字符串的逆序字符串，且所有字母转换为大写D.为原字符串的逆序字符串5.在窗体上画一个命令按钮，然后编写如下事件过程： 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
5、 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是（分数：3.00）A.LeftB.RightC.ValD.Mid6.以下程序的功能是随机产生 10 个两位的整数： Option Base 1 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 运行以上程
6、序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（分数：3.00）A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd*101)7.窗体上有一个名称为 Command1 的命令按钮，单击该按钮时所实现的功能是产生 10 个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a(10)As Integer, x As Integ
7、er 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 对于上述事件过程，以下叙述中正确的是（分数：3.00）A.本程序实际产生的随机数是 0-99B.若产生的随机数中有相同数，则 p 是其中最后一个数的位置C.程序有错，p 的初值设
8、置不对D.程序有错，InputBox 函数产生的数据与 x 的类型不匹配8.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下： Private Type x a As Integer:b As Integer End Type Private Sub Command1_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=y.b End Sub 对以上程序，下列叙述中错误的是（分数：3.
9、00）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的是偶数，y.b 的值为该偶数的平方D.Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回9.窗体上有两个名称分别为 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 中输
10、入小写字母 a 时，文本框 Text2 中显示的是（分数：3.00）AABaCCDc10.窗体上有名称分别为 Text1、Text2 的文本框，名称为 Command1 的命令按钮。运行程序， 在 Text1 中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2.Text=UCase(Mid(Text1.Text, 5, 4) End Sub 在 Text2 中显示的是（分数：3.00）A.formB.listC.FORMD.LIST11.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下： Priv
11、ate Sub Command1_Click() m=-3.6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为（分数：2.00）A.-4B.-3C.3D.3.612.设有如下程序： Private Sub Form_Click() num=InputBox(“请输入一个实数“):p=InStr(num, “.“) If p0 Then Print Mid(num, p+1) Else Print“END“ End If End Sub 运行程序，单击窗体，根据提示输入一个数值。
12、如果输入的不是实数，则程序输出“END”；否则（分数：2.00）A.用字符方式输出该实数B.输出该实数的整数部分C.输出该实数的小数部分D.去掉实数中的小数点，保留所有数码输出13.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Text!.Text=“:Text1.SetFocus End Sub Private Sub Form_Click() Dim a As String, s As String a=Text1.Text:s=“ Fork=1 To Len(a) s=UCase(Mid(a,k,1)+s Next k Te
13、xt1.Text=s End Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（分数：2.00）A.与原字符串相同B.与原字符串中字符顺序相同，但所有字母均转换为大写C.为原字符串的逆序字符串，且所有字母转换为大写D.为原字符串的逆序字符串14.在窗体上画一个命令按钮，然后编写如下事件过程： 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 程序功能为：单击命令按钮，将产生一
14、个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是（分数：2.00）A.LeftB.RightC.ValD.Mid15.以下程序的功能是随机产生 10 个两位的整数： Option Base 1 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 运行以上程序，发现有错误，需要对产生随机数
15、的语句进行修改。以下正确的修改是（分数：2.00）A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd*101)16.窗体上有一个名称为 Command1 的命令按钮，单击该按钮时所实现的功能是产生 10 个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a(10) As Integer, x As Integer For i=1 To
16、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 对于上述事件过程，以下叙述中正确的是（分数：2.00）A.本程序实际产生的随机数是 0-99B.若产生的随机数中有相同数，则 p 是其中最后一个数的位置C.程序有错，p 的初值设置不对D.程序有错，Inpu
17、tBox 函数产生的数据与 x 的类型不匹配17.在 Visual Basic 中，表达式 3*2/5 Mod 3 的值是（分数：2.00）A.1B.0C.3D.出现错误提示18.表达式 2*32+4*2/2+32 的值是（分数：2.00）A.30B.31C.49D.4819.设 a=4，b=5，c=6，执行语句 Print ab And bc 窗体上显示的是（分数：2.00）A.TrueB.FalseC.出错信息D.020.以下关系表达式中，其值为 True 的是（分数：2.00）A.“XYZ“XYz“+3B.“VisualBasic“visualbasic“C.“the“=“thereD.
18、“Integer“Int“21.下面程序运行时，若输入 395，则输出结果是 Private Sub Command1_Click() Dim x%x=InputBox(“请输入一个 3 位整数“) Print x Mod 10, x/100, (x Mod 100)/10 End Sub（分数：2.00）A.3 9 5B.5 3 9C.5 9 3D.3 5 922.设 a=2，b=3，c=4，d=5，下列表达式的值是 ab And c=d Or 2*ac（分数：2.00）A.TrueB.FalseC.-1D.123.设 a=10，b=5，c=1，执行语句 Print abc 窗体上显示的是（
19、分数：2.00）A.TrueB.FalseC.1D.出错24.要求如果 x 被 7 除余 2，则输出 x 的值，下列语句中不能实现此功能的语句是（分数：2.00）A.If x mod 7=2 Then Print xB.If x-(x/7)*7=2 Then Print xC.If x-(x/7)*7=2 Then Print xD.If x-Int(x/7)*7=2 Then Print x25.满足下列条件之一的年份是闰年：1)年份能被 4 整除但不能被 100 整除 2)年份能被 400 整除若 y 代表年份，下面判断闰年的正确表达式是（分数：2.00）A.y Mod 4 And y M
20、od 100 Or y Mod 400B.y Mod 4=0 Or y Mod 1000 And y Mod 400=0C.y Mod 1000 And(y Mod 4=0 Or y Mod 400=0)D.y Mod 4=0 And y Mod 1000 Or y Mod 400=026.已知 a=6，b=15，c=23，则语句 Print Sgn(a+b Mod 6-c/a) Loop End Sub（分数：2.00）A.1 4 27B.1 1 1C.1 4 9D.0 0 042.以下叙述中错误的是（分数：2.00）A.续行符与它前面的字符之间至少要有一个空格B.Visual Basic
21、中使用的续行符为下划线(_)C.以撇号(“)开头的注释语句可以放在续行符的后面D.Visual Basic 可以自动对输入的内容进行语法检查43.下列有语法错误的赋值语句是（分数：2.00）A.y=7=9B.s=m+nC.Text1.Text=10D.m+n=1244.输入 VB 源程序时，若一个命令行中包含两个语句，则两个语句之间的分隔符应使用（分数：2.00）A.冒号(:)B.分号(:)C.下划线(_)D.连字符(-)45.Visual Basic 源程序的续行符为（分数：2.00）A.冒号(:)B.分号(;)C.下划线(_)D.连字符(-)二级 VISUAL+BASIC-86 (1)答案
22、解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：45，分数：100.00)1.窗体上有名称分别为 Text1、Text2 的文本框，名称为 Command1 的命令按钮。运行程序，在 Text1 中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2.Text=UCase(Mid(Text1.Text,5,4) End Sub 在 Text2 中显示的是（分数：3.00）A.formB.listC.FORMD.LIST 解析：解析 Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置
23、开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。2.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下： Private Sub Command1_Click() m=-3.6 If Sgn(m) Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为（分数：3.00）A.-4 B.-3C.3D.3.6解析：解析 Int 函数的作用是去返回不大于参数的最大整数，例如 Int(4.6)=4，Int(-4.6)=-5；VB
24、中的逻辑值 True 和 False 和整型值之间会自动进行类型转换，其中-1 转换为 True，0 转换为 False。本题中由于 m 为负数，所以 Sgn(m)的值为-1，即条件为真，会返回不大于 m 的最大整数值即-4。3.设有如下程序： Private Sub Form_Click() num=InputBox(“请输入一个实数“):p=InStr(num, “.“) If p0 Then Print Mid(num,p+1) Else Print“END“ End If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则（分数：3.00）
25、A.用字符方式输出该实数B.输出该实数的整数部分C.输出该实数的小数部分 D.去掉实数中小数点，保留所有数码输出解析：解析 字符串匹配函数 Instr 用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返回 0；Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。4.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Text1.Text=“:Te
26、xt1.SetFocus 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 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（分数：3.00）A.与原字符串相同B.与原字符串中字符顺序相同，但所有字母均转换为大写C.为原字符串的逆序字符串，且所有字母转换为大写 D.为原字符串的逆序字符串解析：解析 Mid(字符串，起始位置，个数)函数用
27、于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第 k 位个字符并且连接到结果字符串的前面，所以结果字符串是源字符串的逆序字符串。5.在窗体上画一个命令按钮，然后编写如下事件过程： 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 程序功能为：单击命令按钮，将产生一个输入对话框，此时如
28、果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是（分数：3.00）A.LeftB.RightC.ValD.Mid 解析：解析 Mid(字符串，起始位置，个数)函数用于从己有字符串中取出从指定位置开始的含指定个数字符的字符串。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。6.以下程序的功能是随机产生 10 个两位的整数： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer, i As Integer Randomize F
29、or i=1 To 10 a(i)=Int(Rnd*100)+1:Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（分数：3.00）A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10 C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd*101)解析：解析 随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用公式：Int(upperbound-lowerbound+1)*Rnd+lowerbound)，
30、其中upperbound 是随机整数范围的上限，lowerbound 是随机整数范围的下限。本题中 upperbound 为99，lowerbound 为 10。7.窗体上有一个名称为 Command1 的命令按钮，单击该按钮时所实现的功能是产生 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
31、=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 对于上述事件过程，以下叙述中正确的是（分数：3.00）A.本程序实际产生的随机数是 0-99 B.若产生的随机数中有相同数，则 p 是其中最后一个数的位置C.程序有错，p 的初值设置不对D.程序有错，InputBox 函数产生的数据与 x 的类型不匹配解析：解
32、析 随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound 是随机整数范围的上限，lowerbound 是随机整数范围的下限。本题中 upperbound 为99，lowerbound 为 0。8.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下： Private Type x a As Integer:b As Integer End Type Priv
33、ate Sub Command1_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=y.b End Sub 对以上程序，下列叙述中错误的是（分数：3.00）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的是偶数，y.b 的值为该偶数的平方D.Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回 解析：解析 本题考查的考点是有关自定义类型和 Fix 函数的。用户可以通过 Type
34、语句自定义类型，并可用自定义的类型声明变量。注意 Fix 函数是向下取整，Round 函数是四舍五入。9.窗体上有两个名称分别为 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 中显示的是（分数：3.00）AABaCC Dc解析：解析 本
35、题考查的考点是有关字符转换函数的。UCase 函数的功能为强制转成大写字母；Chr 函数的功能是把整数按照 ASCII 码转换成字母；Asc 函数的功能是把字母转换成对应的 ASCII 码。本题中变量c 的值是大写字母“A”，最终结果是大写字母“C”。10.窗体上有名称分别为 Text1、Text2 的文本框，名称为 Command1 的命令按钮。运行程序， 在 Text1 中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2.Text=UCase(Mid(Text1.Text, 5, 4) End Sub 在 Te
36、xt2 中显示的是（分数：3.00）A.formB.listC.FORMD.LIST 解析：解析 Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。11.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下： Private Sub Command1_Click() m=-3.6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为（分数
37、：2.00）A.-4 B.-3C.3D.3.6解析：解析 Int 函数的作用是去返回不大于参数的最大整数，例如 Int(4.6)=4，Int(-4.6)=-5；VB 中的逻辑值 True 和 False 和整型值之间会自动进行类型转换，其中-1 转换为 True，0 转换为 False。本题中由于 m 为负数，所以 Sgn(m)的值为-1，即条件为真，会返回不大于 m 的最大整数值即-4。12.设有如下程序： Private Sub Form_Click() num=InputBox(“请输入一个实数“):p=InStr(num, “.“) If p0 Then Print Mid(num,
38、p+1) Else Print“END“ End If End Sub 运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出“END”；否则（分数：2.00）A.用字符方式输出该实数B.输出该实数的整数部分C.输出该实数的小数部分 D.去掉实数中的小数点，保留所有数码输出解析：解析 字符串匹配函数 Instr 用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返回 0；Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然
39、后输出小数点后面的部分，即小数部分。13.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Text!.Text=“:Text1.SetFocus End Sub Private Sub Form_Click() Dim a As String, s As String a=Text1.Text:s=“ Fork=1 To Len(a) s=UCase(Mid(a,k,1)+s Next k Text1.Text=s End Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容（分数：2.00）A.与原字符串相
40、同B.与原字符串中字符顺序相同，但所有字母均转换为大写C.为原字符串的逆序字符串，且所有字母转换为大写 D.为原字符串的逆序字符串解析：解析 Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第 k 位个字符并且连接到结果字符串的前面，所以结果字符串是源字符串的逆序字符串。14.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=InputBox(“请输入一个二进制数“) n=Le
41、n(a$) For i=1 To n Dec=Dec*2+_(a$,i,1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是（分数：2.00）A.LeftB.RightC.ValD.Mid 解析：解析 Mid(字符串，起始位置，个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。15.以下程序的功能是随机产生 10 个两位的
42、整数： Option Base 1 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 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（分数：2.00）A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10 C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd*101)解析：解析 随机数函数 Rnd 的功能是
43、用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound 是随机整数范围的上限，lowerbound，随机整数范围的下限。本题中 upperbound 为99，lowerbound 为 10。16.窗体上有一个名称为 Command1 的命令按钮，单击该按钮时所实现的功能是产生 10 个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Privat
44、e 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=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 对于上述事件过程，以下叙述中正确的是（分数：2.00）A.本程序实际
45、产生的随机数是 0-99 B.若产生的随机数中有相同数，则 p 是其中最后一个数的位置C.程序有错，p 的初值设置不对D.程序有错，InputBox 函数产生的数据与 x 的类型不匹配解析：解析 随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound 是随机整数范围的上限，lowerbound 是随机整数范围的下限。本题中 upperbound 为99，lowerbound 为 0。17.在 Visual B
46、asic 中，表达式 3*2/5 Mod 3 的值是（分数：2.00）A.1 B.0C.3D.出现错误提示解析：解析 本题考查的考点是有关算术运算的。按照运算符的优先级，首先执行 3*2 得到 6，然后用6 整除 5 得到 1，最后用 1 对 3 求余数得到最终结果 1。本题要注意“/”为整除运算符，以及 Mod 取余运算的算法。18.表达式 2*32+4*2/2+32 的值是（分数：2.00）A.30B.31 C.49D.48解析：解析 本题考查的考点是有关算术运算的。按照运算符的优先级，首先执行 32 得到 9，然后用2 乘以 9 得到 18；然后计算 4*2/2=4；最后计算 32 得到
47、 9，三者相加得到最后结果 31。19.设 a=4，b=5，c=6，执行语句 Print ab And bc 窗体上显示的是（分数：2.00）A.True B.FalseC.出错信息D.0解析：解析 本题考查的考点是有关逻辑运算和关系运算的。逻辑运算就是两个逻辑型的量进行运算，逻辑运算符的优先级低于关系运算符，故本题先计算 And 两端的表达式结果，这两个表达式的结果都为True，所以二者相与的结果也为 True。20.以下关系表达式中，其值为 True 的是（分数：2.00）A.“XYZ“XYz“+3B.“VisualBasic“visualbasic“ C.“the“=“thereD.“I
48、nteger“Int“解析：解析 本题考查的考点是有关字符串比较的。在 VB 中可以采用简单的逻辑运算符进行两个字符串的比较，即(小于)、=(小于或等于)、(大于)、=(大于或等于)、=(等于)、(不等于)。在进行比较的时候，将会首先比较字符串第一位的 ASCII 码，若相同则比较第二位以此类推。21.下面程序运行时，若输入 395，则输出结果是 Private Sub Command1_Click() Dim x%x=InputBox(“请输入一个 3 位整数“) Print x Mod 10, x/100, (x Mod 100)/10 End Sub（分数：2.00）A.3 9 5B.5
49、 3 9 C.5 9 3D.3 5 9解析：解析 VB 中常用算术运算符有 8 个，其中幂运算符()优先级最高；其次是取负(-)、乘(*)、浮点除(/)、整除(/)、取模(Mod)、加(+)、减(-)。22.设 a=2，b=3，c=4，d=5，下列表达式的值是 ab And c=d Or 2*ac（分数：2.00）A.TrueB.False C.-1D.1解析：解析 一个表达式可能含有多种运算，计算机按一定的顺序对表达式求值。一般顺序如下：首先进行函数运算；接着进行算术运算，其次序为；幂()取负(-)乘、浮点除(*、/)整除(/)取模(Mod)加、减(+、-)连接( Loop End Sub（分数：2.00）A.1 4 27B.1 1 1 C.1 4 9D.0 0 0解析：解析 本题是一个简单的 Do 循环，共循环 3 次，每次都输出 kka；因为 a 的值始终不变均为0，所以无论 k 取何值，0 次幂的结果都
