1、全国计算机等级考试二级 VISUAL+BASIC 题库 1+2015 年 3 月及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(总题数：40，分数：40.00)1.在表达式 y=InputBox(“a“,“b“,“c“)中，b 为输入函数对话框的（ ）（分数：1.00）A.标题B.提示C.默认值D.帮助文件名2.假设 A=3，B=7，C=2，则表达式： NOT(BA) 的值是（ ）（分数：1.00）A.TRUEB.FALSEC.表达式错误D.不确定3.在表达式 y=InputBox(“a“,“b“,“c“)中，c 为输入函数对话框的（ ）（分数：1.00）A.标题B.提示C
2、.默认值D.帮助文件名4.假定 Picture1 和 Text1 分别为图片框和文本框的名称，下列不正确的语句是（ ）（分数：1.00）A.Print 25B.Picture1.Print 25C.Text1.Print 25D.Text1.text= 255.以下语句的输出结果是(在立即窗口中)（ ） (CR为回车， 表示空格) a=27CR (CR为回车，下同) b=65CR Print a;b CR（分数：1.00）A.CR27CR65B.27 65CRC.27CR65CRD.以上都不对6.以下语句的输出结果是（ ） (CR为回车， 表示空格) a=“Beijing“ CR b=“Sha
3、ngHai“ CR Print a;b CR（分数：1.00）A.BeijingCRShangHaiB.CRbeijingCRShangHaiC.BeijingShangHaiCRD.Beijing7.语句 Print 5*555 的输出结果是（ ）（分数：1.00）A.5B.25C.0D.18.设 a、b、c 为整型变量，其值分别为 1、2、3，以下程序段的输出结果是（ ） A=b:b=c:c=a Print a;b;c（分数：1.00）A.1 2 3B.2 3 1C.3 2 1D.2 3 29.语句 Print Abs(6 2) + Int(-3.6 2) 的输出结果是（ ）（分数：1.0
4、0）A.-36B.1C.-1D.2310.以下语句的输出结果是（ ） A=Sqr(3) Print Format(a,“$#.#“)（分数：1.00）A.$1.732B.$1.732C.$1732D.$0001.73211.以下程序段的输出结果是（ ） A=Sqr(3) b=Sqr(2) c=ab Print c（分数：1.00）A.-1B.0C.FALSED.TRUE12.以下语句的输出结果是（ ）（分数：1.00）A.32548.5B.32,548.5C.032,548.50D.32,548.5013.执行以下程序段后，变量 c$的值为（ ） a$=“Visual Basic Progra
5、ming“ b$=“Quick“ c$=b$ b CR（分数：1.00）A.CR27CR65B.27 65CR C.27CR65CRD.以上都不对解析：6.以下语句的输出结果是（ ） (CR为回车， 表示空格) a=“Beijing“ CR b=“ShangHai“ CR Print a;b CR（分数：1.00）A.BeijingCRShangHaiB.CRbeijingCRShangHaiC.BeijingShangHaiCR D.Beijing解析：7.语句 Print 5*555 的输出结果是（ ）（分数：1.00）A.5B.25 C.0D.1解析：8.设 a、b、c 为整型变量，其值
6、分别为 1、2、3，以下程序段的输出结果是（ ） A=b:b=c:c=a Print a;b;c（分数：1.00）A.1 2 3B.2 3 1C.3 2 1D.2 3 2 解析：9.语句 Print Abs(6 2) + Int(-3.6 2) 的输出结果是（ ）（分数：1.00）A.-36B.1C.-1D.23 解析：10.以下语句的输出结果是（ ） A=Sqr(3) Print Format(a,“$#.#“)（分数：1.00）A.$1.732B.$1.732 C.$1732D.$0001.732解析：11.以下程序段的输出结果是（ ） A=Sqr(3) b=Sqr(2) c=ab Pri
7、nt c（分数：1.00）A.-1B.0C.FALSED.TRUE 解析：12.以下语句的输出结果是（ ）（分数：1.00）A.32548.5B.32,548.5C.032,548.50 D.32,548.50解析：13.执行以下程序段后，变量 c$的值为（ ） a$=“Visual Basic Programing“ b$=“Quick“ c$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,11)（分数：1.00）A.Visual BASIC ProgramingB.Quick Basic ProgramingC.QUICK Basic ProgramingD.Qu
8、ick BASIC Programing 解析：14.表达式 4 + 5 / 6 * 7 / 8 Mod 9 的值是（ ）（分数：1.00）A.4B.5 C.6D.7解析：15.InputBox 函数返回值的类型为（ ）（分数：1.00）A.数值B.字符串 C.变体D.数值或字符串(视输入的数据而定)解析：16.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a=InputBox$(“Enter the First integer“) b=InputBox$(“Enter the Second integer“) Print a+b
9、End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入 123 和 456，则输出结果是（ ）（分数：1.00）A.579B.123C.456D.123456 解析：17.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim a, b As Integer a = val(InputBox(“Enter the First integer“) b = val(InputBox(“Enter the Second integer“) Print a + b End Sub 程序运行后，单击命令按钮，先后在两个输入对话
10、框中分别输入 123和 456，则输出结果是和（ ）（分数：1.00）A.579 B.123C.456D.123456解析：18.执行下面的语句后，所产生的信息框的标题是（ ） a = MsgBox(“AAAA“, , “BBBB“, “, 5)（分数：1.00）A.BBBB B.空C.AAAAD.出错，不能产生信息框解析：19.假定 x 的值为 5，则在执行以下语句时，其输出结果为“Result“的正确表示 Select Case 语句是（ ）（分数：1.00）A.Select Case x Case 1 To 10 Print “Result“ End Select B.Select Ca
11、se x Case Is5,Is5 Print “Result“ End SelectC.Select Case x Case Is5,1,3 To 4 Print “Result“ End SelectD.Select Case x Case 1,3,Is5 Print “Result“ End Select解析：20.假定有以下循环结构: Do WHILE 条件=0 循环体 Loop 则正确的描述是（ ）（分数：1.00）A.如果“条件“是一个为 0 的常数，则一次循环体也不执行B.如果“条件“是一个为 0 的常数，则无限次执行循环体 C.如果“条件“是一个不为 0 的常数,则至少执行一次
12、循环体D.不论“条件“是否为“真“，至少要执行一次循环体解析：21.假定有以下程序段 For I = 1 To 3 For j = 5 To 1 Step - 1 Print I * j Next j Next I 则语句Print I*j 的执行次数是（ ）（分数：1.00）A.15 B.1C.17D.18解析：22.以下程序段的输出结果为（ ） x=1 y=4 Do Until y4 x=x*y y=y+1 Loop Print x（分数：1.00）A.1B.4 C.8D.20解析：23.设 a=6，则执行 x=Iif(a5，-1，0)后，x 的值为（ ）（分数：1.00）A.5B.6C.
13、0D.-1 解析：24.执行下面的程序段后，x 的值为（ ） x=5 For c = 1 To 20 Step 2 x=x+c/5 Next c（分数：1.00）A.21 B.22C.23D.24解析：25.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For I= 1 To 4 x=4 For j = 1 To 3 x=3 For k= 1 To 2 x=x+6 Next k Next j Next I Print x End Sub 程序运行后，单击命令按钮，输出结果是（ ）（分数：1.00）A.7B.15 C.157D.538
14、解析：26.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=0 Do Until x = -1 a=InputBox(“请输入 A 的值“) a=Val(a) b=InputBox(“请输入 B 的值“) b=Val(b) x=InputBox(“请输入 x 的值“) x = Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-1，则输出结果为（ ）（分数：1.00）A.2 B.3C.14D.15解析：27.阅读下面的程序段： For I=
15、1 To 3 For j = 1 To I For k =j To 3 a=a+1 Next k Next j Next I 执行上面的三重循环后，a 的值为（ ）（分数：1.00）A.3B.9C.14 D.21解析：28.在窗体上画一个文本框(其 Name 属性为 Text1)，然后编写如下事件过程： Private Sub Form_Load( ) Text1.Text = “ For I = 1 To 10 Sum = Sum + I Next I Text1.Text = Sum End Sub 上述程序的运行结果是（ ）（分数：1.00）A.在文本框 Text1 中输出 55 B.在
16、文本框 Text1 中输出 0C.出错D.在文本框 Text1 中输出不定值解析：29.在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name 属性为 Command1)，然后编写如下事件过程： Private Sub Command1_Click( ) x=0 Do While x 50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text = Str(n) Text2.Text = Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）（分数：1.00）A.1 和 0B.2 和 72 C
17、.3 和 50D.4 和 168解析：30.以下不能在“工程资源管理器“窗口中列出的文件类型是（ ）（分数：1.00）A.basB.ocx C.frmD.cls解析：31.以下关于窗体的描述中，错误的是（ ）（分数：1.00）A.执行 Unload Form 语句后,窗体 Form 消失,但仍在内存中 B.窗体的 Ioad 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、width 属性用于设置窗体的高和宽解析：32.下列可作为 VIsual Basic 变量名的是（ ）（分数：1.00）A.A#AB.4AC
18、.a3 D.const解析：33.函数 String(n，“strsdfsdfsdf“)的功能是（ ）（分数：1.00）A.把数值型数据转换为字符串B.返回由 n 个“s“字符 C.从字符串“strsdfsdfsdf“)中取出前 n 个字符D.从字符串中第 n 个字符的位置开始取子字符串解析：34.将数学表达式 Cos(a+b)+5|2*-a|写成 Visual Basic 的表达式，其正确的形式是（ ）（分数：1.00）A.Cos(a+b)+5abs(2*(-a)B.Cos(a+b)+5*|2*(-a)|C.Cos(a+b)+5*abs(2*(-a) D.(Cosa+b)+5*abs(2*(
19、-a)解析：35.在窗体上画一个命令按钮，名称为 Commandl。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click( ) a$ = “software and hardware“ b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a, , b, c, 1 End Sub 则在弹出的信息框的标题栏中显示的信息是（ ）（分数：1.00）A.software and hardwareB.softwareC.hardwafe D.1解析：36.执行如下语句：ainputBox(“Today“,“Tomorrow“,“Yes
20、terday“,“Day before yesterday“,5)将显示一个输入对话框，在对话框的输入区中显示的信息是（ ）（分数：1.00）A.TodayB.TomorrowC.Yesterday D.Day before yesterday解析：37.表示滚动条控件取值范围最大值的属性是（ ）（分数：1.00）A.Max B.LargeChangeC.ValueD.Max-Min解析：38.在窗体上画一个名称为 Listl 的列表框，一个名称为 Labell 的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是（ ）（
21、分数：1.00）A.Private Sub Listl_C1ick( )Labell.Captionlist1.listlndex End SubB.Private Sub Listl_C1ick( )Labell.NameListl.listindex End SubC.Private Sub Listl_C1ick( )Labell.Captionlist1.text End Sub D.Private Sub Listl_C1ick( )Labell.NameListltext End Sub解析：39.假定有以下函数过程： Function Fun(ByVal S As String)
22、 As String Dim s1 As String For I = 1 To Len(S) s1 = UCase(Mid(S, I, 1) + s1 Next I Fun = s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim Str1 As String, Str2 As String Strl = InputBox(“请输入一个字符串“) Str2 = Fun(Strl) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg“，则单击“
23、确定“按钮后在窗体上的输出结果为（ ）（分数：1.00）A.abcdefgB.ABCDEFGC.gfedcbaD.GFEDCBA 解析：40.以下叙述中错误的是（ ）（分数：1.00）A.用 Shell 函数可以调用能够在 Windows 下运行的应用程序B.用 Shell 函数可以调用可执行文件,也可以调用 VisualBasic 的内部函数C.调用 Shell 函数的格式应为:变量名Shell(字符串）D.用 Shell 函数不能执行 DoS 命令 解析：二、基本操作题(总题数：2，分数：18.00)41.请在名称为 Forml 的窗体上添加一个名称为 H1 的水平滚动条，并在属性窗口中设
24、置它的属性值，使其满足下列要求：它的最小刻度值为 1，最大刻度值为 100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动 10 个刻度。再在滚动条下面画两个名称分别为 L1 和 L2 的标签，并分别显示 1 和 100，运行时的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。 （分数：9.00）_正确答案：(步骤 1：打开 Visual Basic 开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图 31 所示。 步骤 2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图 32
25、所示。 步骤 3：按照题目的要求，在窗体上添加两个标签控件，如图 33 所示。 步骤 4：按照题目的要求设置两个标签的相关属性，如图 34 所示。 程序中用到的控件及属性见表 31。 步骤 5：按下键盘上的 F5 键运行程序，程序运行后的窗体界面如图 35 所示。 步骤 6：按题目要求保存工程和窗体，如图 36 所示。 )解析：42.在名称为 Forml 的窗体上添加两个名称分别为 Textl 和 Text2 的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Copy 和 Clear，标题分别为“复制”、“清除”，请编写适当的事
26、件过程，使得在程序运行时，单击“复制”选项菜单，则把 Textl 中的内容复制到 Text2 中，单击“清除”选项菜单，则清除 Text2 中的内容(即在 Text2 中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sit2vbp，窗体文件名为 sjt2frm。 （分数：9.00）_正确答案：(步骤 1：新建窗体，按表 32 建立菜单项并设置其属性，如图 37 所示。 步骤2：同步骤 1，输入第 3 项的标题和名称，单击确定即可。 步骤 3：添加文本框控件，按表 33 设置文本框的属性。 步
27、骤 4：打开代码编写窗口，编写程序代码，如图 38 所示。 )解析：三、简单应用题(总题数：2，分数：24.00)43.考生文件夹中有工程文件 sit3vbp。窗体上有一个名称为 Labell、标题为“标签控件”的标签；有一个名称为 Commandl、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件，则在标签Label2 中显示所单击控件的标题内容(标题内容前添加“单击”二字)，下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的?改为正确的内容。 （分数：12.00）_正确答案：( )解析：44.在考生文件夹下有一个工程文件 sjt4vbp，其窗体上有一个由八个图片框控件
28、组成的控件数组、两个命令按钮及一个计时器控件，如图 1 所示。 程序功能： 将计时器控件设置为每隔 05 秒触发一次Timer 事件。运行程序时，只显示下标为 0 的图片框控件数组元素，其他图片框均不可见。单击“开始”按钮，数组中的每个图片框自左至右依次显示，时间间隔为 05 秒，产生“月亮”从左向右移动的效果，如图 2 所示。月亮移到右端后再从左端重新开始。单击“停止”按钮，“月亮”停止移动。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 （分数：12.00）_正确答案：( )
29、解析：四、综合应用题(总题数：1，分数：18.00)45.在考生文件夹下有一个工程文件 sit5vbp，其窗体上有两个标签 Ll 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 cl，标题为“确定”；两个文本框名称分别为 Textl 和 Text2。其中 Textl用来输入口令(输入时，文本框内容显示“*”)，初始内容为空；Text2 的初始内容为 3。并给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得程序运行时，在Textl 中输入口令后，单击“确定”，如果输入的是“123456”则在 Textl 中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出错误提示对话框(如图所示)，并且 Text2 中的数字减 1。最多可输入3 次口令，若 3 次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：18.00）_正确答案：( )解析：
