1、二级 VISUAL+BASIC-26 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：43，分数：100.00)1.在 Visual Basic 中，长整数的取值范围是_。（分数：2.00）A.-32 76832 767B.-2 147 483 648+2 147 483 647C.-32 76832 768D.-2 147 483 648+2 147 483 6482.单精度浮点数的正值取值范围为_。（分数：2.00）A.3.402 823E+381.401 298E-45B.4.94 065D-3241.797 693 134 862 316D+308C.1.40
2、1 298E-453.402 823E+38D.1.797 693 134 862 316D+3084.940 65D-3243.下列选项中，不是字符串常量的是_。（分数：2.00）A.“Visual Basic“B.“等级考试“C.“ “D./Basic/4.在 Visual Basic 中，为表示钱款而设置的数据类型是_。（分数：2.00）A.字节型B.对象型C.布尔型D.货币型5.下列符号常量的声明中，不合法的是_。（分数：2.00）A.Const a As Single=1.1B.Const a=“OK“C.Const a As Double=Sin(1)D.Const a As In
3、teger=“12“6.以下能正确定义数据类型 TelBook 的代码是_。（分数：2.00）A.Type TelBookName As String * 10TelNum As IntegerEnd TypeB.Type TelBookName As String * 10TelNum As IntegerEnd TelBookC.Type TelBookName String * 10TelNum IntegerEnd Type TelBookD.Typedef TelBookName String * 10TelNum IntegerEnd Type7.下列关于声明变量的说法中，错误的是
4、_。（分数：2.00）A.用显式声明变量的关键字 Dim、Private、Static 或 Public 来声明变量的类型B.用类型说明符标记变量类型，类型说明符有：%、 i（分数：2.50）A.i=1B.i=2C.i=3D.i=439.有如下程序： a=1:b=2:c=3 a=a+b:b=b+c:c=b+a If a 3 Or b3 Then a=b-a:b=c-a:c=b+a End If Print a+b+c 运行后，输出的结果是_。（分数：2.50）A.16B.3C.6D.840.有一程序段，其功能是：当 x0 时，y=x；当-2=x=0 时，y=-x，当 x=2 时，产生一个“输入
5、错误”信息框。则下列程序空白处应为_。 Private Sub Form_Click() x % =InputBox(“请输入 x 的值:“) If x0 Then y=x _ y=-x Else NsgBox“输入错误“ End If Print y End Sub（分数：2.50）A.Else x=-2 And x=0 ThenB.ElseIf x=-2 And x=0 ThenC.ElseIf x=-2 And x=0D.Else If x=-2 And x=0 Then41.执行下面的程序段后，变量 c 的值为_。 a=29 b=33 Select Case b/10 Case 0 c
6、=a* 10+b Case 1 To 9 c=a* 100+b Case 10 To 99 c=a* 1000+b End Select Print c（分数：2.50）A.29B.2933C.33D.332942.下述程序的功能是_。 x=“ (a+B* A)-(a* b+C)“ n=Len(x) m=0 For k=1 To n p $=Mid(x, k, 1) If p $=“(“Then m=m-1 ElseIf p $=“)“Then m=m+1 End If Next k If m0Then print “: - (“ Else print “: - )“ End If（分数：2.
7、50）A.统计输入的字符串中括号的总数B.统计输入的字符串中匹配的括号的对数C.检查输入的字符串中的括号是否能够匹配D.删除字符串的括号43.下述程序段中，与其他 3 个程序段作用不同的是_。（分数：2.50）A.s=0i=0While i100s=s+1WendB.s=0i=0While i100i=i+1WendC.s=0i=1Do Wbile i100s=s+1i=i+1LoopD.s=0i=0Do Until i=100s=s+1i=i+1Loop二级 VISUAL+BASIC-26 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：43，分数：100.00)1.
8、在 Visual Basic 中，长整数的取值范围是_。（分数：2.00）A.-32 76832 767B.-2 147 483 648+2 147 483 647 C.-32 76832 768D.-2 147 483 648+2 147 483 648解析：2.单精度浮点数的正值取值范围为_。（分数：2.00）A.3.402 823E+381.401 298E-45B.4.94 065D-3241.797 693 134 862 316D+308C.1.401 298E-453.402 823E+38 D.1.797 693 134 862 316D+3084.940 65D-324解析：
9、3.下列选项中，不是字符串常量的是_。（分数：2.00）A.“Visual Basic“B.“等级考试“C.“ “D./Basic/ 解析：4.在 Visual Basic 中，为表示钱款而设置的数据类型是_。（分数：2.00）A.字节型B.对象型C.布尔型D.货币型 解析：5.下列符号常量的声明中，不合法的是_。（分数：2.00）A.Const a As Single=1.1B.Const a=“OK“C.Const a As Double=Sin(1) D.Const a As Integer=“12“解析：6.以下能正确定义数据类型 TelBook 的代码是_。（分数：2.00）A.Ty
10、pe TelBookName As String * 10TelNum As IntegerEnd Type B.Type TelBookName As String * 10TelNum As IntegerEnd TelBookC.Type TelBookName String * 10TelNum IntegerEnd Type TelBookD.Typedef TelBookName String * 10TelNum IntegerEnd Type解析：7.下列关于声明变量的说法中，错误的是_。（分数：2.00）A.用显式声明变量的关键字 Dim、Private、Static 或 P
11、ublic 来声明变量的类型B.用类型说明符标记变量类型，类型说明符有：%、 i（分数：2.50）A.i=1 B.i=2C.i=3D.i=4解析：39.有如下程序： a=1:b=2:c=3 a=a+b:b=b+c:c=b+a If a 3 Or b3 Then a=b-a:b=c-a:c=b+a End If Print a+b+c 运行后，输出的结果是_。（分数：2.50）A.16 B.3C.6D.8解析：40.有一程序段，其功能是：当 x0 时，y=x；当-2=x=0 时，y=-x，当 x=2 时，产生一个“输入错误”信息框。则下列程序空白处应为_。 Private Sub Form_Cl
12、ick() x % =InputBox(“请输入 x 的值:“) If x0 Then y=x _ y=-x Else NsgBox“输入错误“ End If Print y End Sub（分数：2.50）A.Else x=-2 And x=0 ThenB.ElseIf x=-2 And x=0 Then C.ElseIf x=-2 And x=0D.Else If x=-2 And x=0 Then解析：41.执行下面的程序段后，变量 c 的值为_。 a=29 b=33 Select Case b/10 Case 0 c=a* 10+b Case 1 To 9 c=a* 100+b Cas
13、e 10 To 99 c=a* 1000+b End Select Print c（分数：2.50）A.29B.2933 C.33D.3329解析：42.下述程序的功能是_。 x=“ (a+B* A)-(a* b+C)“ n=Len(x) m=0 For k=1 To n p $=Mid(x, k, 1) If p $=“(“Then m=m-1 ElseIf p $=“)“Then m=m+1 End If Next k If m0Then print “: - (“ Else print “: - )“ End If（分数：2.50）A.统计输入的字符串中括号的总数B.统计输入的字符串中匹配的括号的对数C.检查输入的字符串中的括号是否能够匹配 D.删除字符串的括号解析：43.下述程序段中，与其他 3 个程序段作用不同的是_。（分数：2.50）A.s=0i=0While i100s=s+1Wend B.s=0i=0While i100i=i+1WendC.s=0i=1Do Wbile i100s=s+1i=i+1LoopD.s=0i=0Do Until i=100s=s+1i=i+1Loop解析：
