1、二级 VISUAL+BASIC-50及答案解析(总分：100.00，做题时间：90 分钟)一、单项选择题(总题数：40，分数：100.00)1.语句 Print 5*5/5/5的输出结果是（分数：2.50）A.5B.25C.0D.12.表达式 4+5/6*7/8 Mod 9的值是（分数：2.50）A.4B.5C.6D.73.设有如下变量声明： Dim TestDate As Date 则为变量 TestDate正确赋值的表达式是（分数：2.50）A.TestDate=#1/1/2014#B.TestDate=#“1/1/2014“#C.TestDate=date(“1/1/2014“)D.Te
2、stDate=Format(“m/d/yy“，“1/1/2014“)4.设有如下声明： Dim X As Integer 如果 Sgn(X)的值为-1，则表示 X的值是（分数：2.50）A.整数B.大于 0的整数C.等于 0的整数D.小于 0的数5.在 Visual Basic 6.0中，数值 1234&的类型是（分数：2.50）A.整型B.长整型C.字符串型D.双精度型6.从键盘上输入两个字符串，分别保存在变量 str1、str2 中，则确定第二个字符串在第一个字符串中起始位置的函数是（分数：2.50）A.LeftB.MidC.StringD.InStr7.设 a=“Visual Basic
3、“，则以下使 b=“Basic“的语句是（分数：2.50）A.b=Left(a,8,12)B.b=Mid(a,8,5)C.b=Right(a,5,5)D.b=Left(a,8,5)8.以下能打开立即窗口的操作是（分数：2.50）A.按 Ctrl+D键B.按 Ctrl+E键C.按 Ctrl+F键D.按 Ctrl+G键9.在 Visual Basic中，声明全局变量所使用的关键字是（分数：2.50）A.DimB.PublicC.StaticD.Auto10.语句 Print-24/5*2的输出结果是（分数：2.50）A.6B.-6C.-1D.011.设有如下的记录类型： Type Student
4、number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是（分数：2.50）A.Student.name=“张红“B.Dim s As StudentS.name=“张红“C.Dim s As Type Students.name=“张红“D.Dim s As Types.name=“张红“12.下列表达式中值为-6 的是（分数：2.50）A.Fix(-5.678)B.Int(-5.678)C.Fix(-5.678+0.5)D.Int(-5.678-0.5)13.将代数表达式 Cos 2 (a+b)+5e 2
5、 写成 Visual Basic的表达式，其正确的形式是（分数：2.50）A.Cos(a+b)2+5*exp(2)B.Cos2(a+b)+5*exp(2)C.Cos(a+b)2+5*ln(2)D.Cos2(a+b)+5*ln(2)14.在标准模块中用 Public关键字定义的变量，其作用域为（分数：2.50）A.本模块所有过程B.整个工程C.所有窗体D.所有标准模块15.在窗体上画一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$=“software and hardware“ b$=Right(a$,12
6、) c$=Mid(b$,4) Print c$ End Sub 则输出结果是（分数：2.50）A.software and hardwareB.softwareC.hardwareD.116.下列符号常量的声明中不合法的是（分数：2.50）A.Const a As Single=3.5B.Const a As Double=Sin(1)C.Const a As Integer=“25“D.Const a=“OK“17.以下能对正实数 d的第 3位小数四舍五入的表达式是（分数：2.50）A.0.01*Int(d+0.005)B.0.01*Int(100*(d+0.005)C.0.01*Int(1
7、00*(d+0.05)D.0.01*Int(d+0.05)18.假定 Picture1和 Text1分别为图片框和文本框的名称，下列错误的语句是（分数：2.50）A.Print 25B.Picture1.Print 25C.Text1.Print 25D.Debug.Print 2519.以下语句的输出结果是(在立即窗口中) a=27 CR (CR为回车， 表示空格，下同) b=65 CR Print a:b CR（分数：2.50）A.2765B.2765C.2765D.276520.以下语句的输出结果是(在立即窗口中) s$=“China“ CR s$=“Beijing“ CR Print
8、s$ CR（分数：2.50）A.ChinaBeijingB.BeijingChinaC.BeijingD.China21.下列能正确输出 2,345.67的语句是（分数：2.50）A.Print Format$(2345.668,“00000.00“)B.Print Format$(2345.668,“#,#.#“)C.Print Format$(2345.668,“0,0000.00“)D.Print Format$(2345.668,“,#.#“)22.在窗体上画一个名称为 Command1的命令按钮和一个名称为 Text1的文本框，然后编写如下事件过程： Private Sub Comm
9、and 1_Click() a$=“pascal程序设计技巧“ b$=“c+编程指南“ c$=UCase(Left(b$,5)&Right$(a$,2) Text1.Text=C$ End Sub 运行上面的程序，单击命令按钮，文本框中显示的结果为（分数：2.50）A.指南 pascal程序设计B.C+编程C.C+编程技巧D.编程技巧23.以下语句的输出结果是 a=Sqr(3) Print Format(a,“$#.#“)（分数：2.50）A.$1.732B.$1.732C.$1732D.$0001.73224.以下程序段的输出结果是 a=Sqr(3) b=Sqr(2) e=ab Print
10、c（分数：2.50）A.-1B.0C.FalseD.True25.以下语句的输出结果是 Print Format$(32548.5,“000,000.00“)（分数：2.50）A.32548.5B.32,548.5C.032,548.50D.32,548.5026.执行以下程序段后，变量 c$的值为 a$=“Visual Basic Programing“ b$=“Quick“ c$=b$&UCase(Mid$(a$,7,6)&Right$(a$,11)（分数：2.50）A.Visual BASIC ProgramingB.Quick Basic ProgramingC.QUICK Basic
11、 ProgramingD.Quick BASIC Programing27.在窗体上画一个命令按钮(名称为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后，单击命令按钮，其结果为（分数：2.50）A.a=11B.FalseCa=D.a=b+c28.InputBox函数返回值的类型为（分数：2.50）A.数值B.字符串C.变体D.数值或字符串(视输入的数据而定)29.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=
12、InputBox(“Enter the First integer“) b=InputBox(“Enter the Second integer“) Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入 456和 123，则输出结果是（分数：2.50）A.579B.123C.456D.12345630.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command 1_Click() Dim a As Integer, b As Integer a=InputBox(“Enter the First integer“) b=Inp
13、utBox(“Enter the Second integer“) Print b+a End Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入 456和 123，则输出结果是（分数：2.50）A.579B.123C.456D.12345631.执行下面的语句后，所产生的信息框的标题是 a=MsgBox(“AAAA“,“BBBB“,“,5)（分数：2.50）A.BBBBB空C.AAAAD.出错，不能产生信息框32.假定程序中有如下语句： answer$=MsgBox(“String1“,“String2“,“string3“,2) 执行该语句后，将显示一个信息框，此时如果单击“确
14、定”按钮，则 answer$的值为（分数：2.50）A.String1B.String2C.String3D.133.设有语句 X=InputBox(“输入数值“,“示例“,0) 程序运行后，如果从键盘上输入 10并按回车键，则以下叙述中错误的是（分数：2.50）A.变量 X的值是数值 10B.在 InputBox对话框标题栏中显示的是“示例”C.0是默认值D.变量 X的值是字符串“10“34.下列叙述中正确的是（分数：2.50）A.MsgBox语句的返回值是一个整数B.执行 MsgBox语句并出现信息框后，可以执行其他操作C.MsgBox语句的第一个参数不能省略D.如果省略 MsgBox语句
15、的第三个参数(Title)，则信息框的标题为空35.为了使窗体右移 200(twip)，应使用的语句是（分数：2.50）A.Form1.Move Form1.Height+200B.Form1.Move 200C.Form1.Move Left+200D.Form1.Move Width+20036.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() MsgBox Str(123+321) End Sub 程序运行后，单击命令按钮，则在信息框中显示的提示信息为（分数：2.50）A.123+321B.字符串“444“C.数值 444D.空白3
16、7.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() X=InputBox(“请输入一个整数“) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入 123，则在窗体上输出的内容为（分数：2.50）A.123345B.468C.123D.34538.假定程序中有如下语句： answer=MsgBox(“第一个字符串“,vbAbortRetryIgnore Or vbCritical_ Or vbDefaultButton3,“第二个字符串“) 执行该语句后，将显示一个信息框，此时如果按回车键，则 answ
17、er的值为（分数：2.50）A.“第二个字符串“B.5C.3D.739.阅读程序： Private Sub Form_Click() msg1$=“继续吗?“ msg2$=“操作对话框“ r=MsgBox(msg1$,vbYesNo Or vbDefauhButton2,msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的某个按钮，这个按钮是（分数：2.50）A是B.关闭C.确定D否40.决定窗体标题条显示内容的属性是（分数：2.50）A.TextB.NameC.CaptionD.BackStyle二级 VISUAL+BASI
18、C-50答案解析(总分：100.00，做题时间：90 分钟)一、单项选择题(总题数：40，分数：100.00)1.语句 Print 5*5/5/5的输出结果是（分数：2.50）A.5B.25 C.0D.1解析：2.表达式 4+5/6*7/8 Mod 9的值是（分数：2.50）A.4B.5 C.6D.7解析：3.设有如下变量声明： Dim TestDate As Date 则为变量 TestDate正确赋值的表达式是（分数：2.50）A.TestDate=#1/1/2014# B.TestDate=#“1/1/2014“#C.TestDate=date(“1/1/2014“)D.TestDate
19、=Format(“m/d/yy“，“1/1/2014“)解析：4.设有如下声明： Dim X As Integer 如果 Sgn(X)的值为-1，则表示 X的值是（分数：2.50）A.整数B.大于 0的整数C.等于 0的整数D.小于 0的数 解析：5.在 Visual Basic 6.0中，数值 1234&的类型是（分数：2.50）A.整型B.长整型 C.字符串型D.双精度型解析：6.从键盘上输入两个字符串，分别保存在变量 str1、str2 中，则确定第二个字符串在第一个字符串中起始位置的函数是（分数：2.50）A.LeftB.MidC.StringD.InStr 解析：7.设 a=“Vis
20、ual Basic“，则以下使 b=“Basic“的语句是（分数：2.50）A.b=Left(a,8,12)B.b=Mid(a,8,5) C.b=Right(a,5,5)D.b=Left(a,8,5)解析：8.以下能打开立即窗口的操作是（分数：2.50）A.按 Ctrl+D键B.按 Ctrl+E键C.按 Ctrl+F键D.按 Ctrl+G键 解析：9.在 Visual Basic中，声明全局变量所使用的关键字是（分数：2.50）A.DimB.Public C.StaticD.Auto解析：10.语句 Print-24/5*2的输出结果是（分数：2.50）A.6B.-6C.-1 D.0解析：11
21、.设有如下的记录类型： Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是（分数：2.50）A.Student.name=“张红“B.Dim s As StudentS.name=“张红“ C.Dim s As Type Students.name=“张红“D.Dim s As Types.name=“张红“解析：12.下列表达式中值为-6 的是（分数：2.50）A.Fix(-5.678)B.Int(-5.678) C.Fix(-5.678+0.5)D.Int(-5.678-
22、0.5)解析：13.将代数表达式 Cos 2 (a+b)+5e 2 写成 Visual Basic的表达式，其正确的形式是（分数：2.50）A.Cos(a+b)2+5*exp(2) B.Cos2(a+b)+5*exp(2)C.Cos(a+b)2+5*ln(2)D.Cos2(a+b)+5*ln(2)解析：14.在标准模块中用 Public关键字定义的变量，其作用域为（分数：2.50）A.本模块所有过程B.整个工程 C.所有窗体D.所有标准模块解析：15.在窗体上画一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click()
23、a$=“software and hardware“ b$=Right(a$,12) c$=Mid(b$,4) Print c$ End Sub 则输出结果是（分数：2.50）A.software and hardwareB.softwareC.hardware D.1解析：16.下列符号常量的声明中不合法的是（分数：2.50）A.Const a As Single=3.5B.Const a As Double=Sin(1)C.Const a As Integer=“25“ D.Const a=“OK“解析：17.以下能对正实数 d的第 3位小数四舍五入的表达式是（分数：2.50）A.0.01
24、*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)解析：18.假定 Picture1和 Text1分别为图片框和文本框的名称，下列错误的语句是（分数：2.50）A.Print 25B.Picture1.Print 25C.Text1.Print 25 D.Debug.Print 25解析：19.以下语句的输出结果是(在立即窗口中) a=27 CR (CR为回车， 表示空格，下同) b=65 CR Print a:b CR（分数：2.50）A.2765B.2765C.2765D.2765
25、解析：20.以下语句的输出结果是(在立即窗口中) s$=“China“ CR s$=“Beijing“ CR Print s$ CR（分数：2.50）A.ChinaBeijingB.BeijingChinaC.Beijing D.China解析：21.下列能正确输出 2,345.67的语句是（分数：2.50）A.Print Format$(2345.668,“00000.00“)B.Print Format$(2345.668,“#,#.#“) C.Print Format$(2345.668,“0,0000.00“)D.Print Format$(2345.668,“,#.#“)解析：22.
26、在窗体上画一个名称为 Command1的命令按钮和一个名称为 Text1的文本框，然后编写如下事件过程： Private Sub Command 1_Click() a$=“pascal程序设计技巧“ b$=“c+编程指南“ c$=UCase(Left(b$,5)&Right$(a$,2) Text1.Text=C$ End Sub 运行上面的程序，单击命令按钮，文本框中显示的结果为（分数：2.50）A.指南 pascal程序设计B.C+编程C.C+编程技巧 D.编程技巧解析：23.以下语句的输出结果是 a=Sqr(3) Print Format(a,“$#.#“)（分数：2.50）A.$1.
27、732B.$1.732 C.$1732D.$0001.732解析：24.以下程序段的输出结果是 a=Sqr(3) b=Sqr(2) e=ab Print c（分数：2.50）A.-1B.0C.FalseD.True 解析：25.以下语句的输出结果是 Print Format$(32548.5,“000,000.00“)（分数：2.50）A.32548.5B.32,548.5C.032,548.50 D.32,548.50解析：26.执行以下程序段后，变量 c$的值为 a$=“Visual Basic Programing“ b$=“Quick“ c$=b$&UCase(Mid$(a$,7,6)
28、&Right$(a$,11)（分数：2.50）A.Visual BASIC ProgramingB.Quick Basic ProgramingC.QUICK Basic ProgramingD.Quick BASIC Programing 解析：27.在窗体上画一个命令按钮(名称为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后，单击命令按钮，其结果为（分数：2.50）A.a=11B.False Ca=D.a=b+c解析：28.InputBox函数返回值的类型为（分数：2
29、.50）A.数值B.字符串 C.变体D.数值或字符串(视输入的数据而定)解析：29.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“Enter the First integer“) b=InputBox(“Enter the Second integer“) Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入 456和 123，则输出结果是（分数：2.50）A.579B.123C.456D.123456 解析：30.在窗体上画一个命令按钮，然后编写如下事件过程： Pri
30、vate Sub Command 1_Click() Dim a As Integer, b As Integer a=InputBox(“Enter the First integer“) b=InputBox(“Enter the Second integer“) Print b+a End Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入 456和 123，则输出结果是（分数：2.50）A.579 B.123C.456D.123456解析：31.执行下面的语句后，所产生的信息框的标题是 a=MsgBox(“AAAA“,“BBBB“,“,5)（分数：2.50）A.BBBB B
31、空C.AAAAD.出错，不能产生信息框解析：32.假定程序中有如下语句： answer$=MsgBox(“String1“,“String2“,“string3“,2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则 answer$的值为（分数：2.50）A.String1 B.String2C.String3D.1解析：33.设有语句 X=InputBox(“输入数值“,“示例“,0) 程序运行后，如果从键盘上输入 10并按回车键，则以下叙述中错误的是（分数：2.50）A.变量 X的值是数值 10 B.在 InputBox对话框标题栏中显示的是“示例”C.0是默认值D.变量 X
32、的值是字符串“10“解析：34.下列叙述中正确的是（分数：2.50）A.MsgBox语句的返回值是一个整数B.执行 MsgBox语句并出现信息框后，可以执行其他操作C.MsgBox语句的第一个参数不能省略 D.如果省略 MsgBox语句的第三个参数(Title)，则信息框的标题为空解析：35.为了使窗体右移 200(twip)，应使用的语句是（分数：2.50）A.Form1.Move Form1.Height+200B.Form1.Move 200C.Form1.Move Left+200 D.Form1.Move Width+200解析：36.在窗体上画一个命令按钮，然后编写如下事件过程：
33、Private Sub Command1_Click() MsgBox Str(123+321) End Sub 程序运行后，单击命令按钮，则在信息框中显示的提示信息为（分数：2.50）A.123+321B.字符串“444“ C.数值 444D.空白解析：37.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() X=InputBox(“请输入一个整数“) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入 123，则在窗体上输出的内容为（分数：2.50）A.123345B.468 C.123D.345解析：
34、38.假定程序中有如下语句： answer=MsgBox(“第一个字符串“,vbAbortRetryIgnore Or vbCritical_ Or vbDefaultButton3,“第二个字符串“) 执行该语句后，将显示一个信息框，此时如果按回车键，则 answer的值为（分数：2.50）A.“第二个字符串“B.5 C.3D.7解析：39.阅读程序： Private Sub Form_Click() msg1$=“继续吗?“ msg2$=“操作对话框“ r=MsgBox(msg1$,vbYesNo Or vbDefauhButton2,msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的某个按钮，这个按钮是（分数：2.50）A是B.关闭C.确定D否 解析：40.决定窗体标题条显示内容的属性是（分数：2.50）A.TextB.NameC.Caption D.BackStyle解析：
