1、二级 VISUAL+BASIC 笔试-154 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.窗体上有两个水平滚动条 HV、HT，还有一个文本框 Text1 和一个标题为“计算”的命令按钮Command1，如图 2 所示，编写以下程序：（分数：2.00）A.B.C.D.2.以下不能输出“Program”的语句是（分数：2.00）A.Print Mid(“VBProgram“,3,7)B.Print Right(“VBProgram“,7)C.Print Mid(“VBProgram“,3)D.Print Left(“VBProgram“,7
2、)3.在窗体上画一个命令按钮，名称为 Command1，然后编写如下程序：Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox(“请输入:“)If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer) As IntegerIf X10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer, Shift As
3、 Integer, X As Single, Y As Single)Flag=TrueEnd Sub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入 5，则程序的输出结果为（分数：2.00）A.0B.5C.15D.无任何输出4.设在窗体中有一个名称为 List1 的列表框，其中有若干项目(如图 1 所示)。要求选中某一项后单击Command1 按钮，就删除选中的项，则正确的事件过程是（分数：2.00）A.B.C.D.5.在窗体上先后画两个图片框，名称分别为 Picture1 和 banana，banana 中添加了香蕉图片(见图 3)，且将 bananaDragMode 属性设置
4、为 1。要求程序运行时，可以用鼠标把 banana 拖拽到 Picture1 中(见图 4)。能实现此功能的事件过程是（分数：2.00）A.B.C.D.6.设有如下通用过程：Public Function Fun(xStr As String) As StringDim tStr As String, strL As IntegertStr=“strL=Len(xStr)i=1Do While i=strL/2tStr=tStr If arrItem90 Then Exit ForNextEnd Sub对于该事件过程，下列叙述中错误的是（分数：2.00）A.a 数组中的数据是 30 个 100
5、 以内的整数B.语句 For Each arrItem In a 有语法错误C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环22.工程中有两个窗体，名称分别为 Form1、Form2，Form1 为启动窗体，该窗体上有命令按翎Command1要求程序运行后单击该命令按钮时显示 Form2，则按钮的 Click 事件过程应该是（分数：2.00）A.Private Sub Command1_Click()Form2.ShowEnd SubB.Private Sub Command
6、1_Click()Form2.VisibleEnd SubC.Private Sub Command1_Click()Load Form2End SubD.Private Sub Command1_Click()Form2.LoadEnd Sub23.在软件开发中，需求分析阶段产生的主要文档是（分数：2.00）A.可行性分析报告B.软件需求规格说明书C.概要设计说明书D.集成测试计划24.设有语句：Open“d:/Test.txt“For Output As #1，下列叙述中错误的是（分数：2.00）A.若 d 盘根目录下无 Text.txt 文件，则该语句创建此文件B.用该语句建立的文件的文
7、件号为 1C.该语句打开 d 盘根目录下一个已存在的文件 Text.txt，之后就可以从文件中读取信息D.执行该语句后，就可以通过 Print #语句向文件 Test.txt 中写入信息25.算法的有穷性是指（分数：2.00）A.算法程序的运行时间是有限的B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用26.要使两个单选按钮属于同一个框架，正确的操作是（分数：2.00）A.先画一个框架，再在框架中画两个单选按钮B.先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中C.先画两个单选按钮，再用框架将单选按钮框起来D.以上三种方法都正确27.下列
8、关于栈的叙述中正确的是（分数：2.00）A.栈按“先进先出”的原则组织数据B.栈按“先进后出”的原则组织数据C.只能在栈底插入数据D.不能删除数据28.结构化程序设计的基本原则不包括（分数：2.00）A.多态性B.自顶向下C.模块化D.逐步求精29.为计算 1+3+5+99 的值，某人编程如下k=1s=0While k=99k=k+2:s=s+kWendPrint s在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（分数：2.00）A.WhileWend 循环语句错误，应改为 For k=1 To 99Next kB.循环条件错误，应改为 Whlie k99C.循环前的赋
9、值语句 k=1 错误，应改为 k=0D.循环中两条赋值语句的顺序错误，应改为 s=s+k:k=k+230.设窗体上有一个标签 Label1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1000，Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（分数：2.00）A.Private Sub Timer1_Timer()Label1.Caption=TrueEnd SubB.Private Sub Timer1_Timer()Label1.Caption=Time $End SubC.Privat
10、e Sub Timer1_Timer()Label1.Interval=1End SubD.Private Sub Timer1_Timer()For k=1 To Timer1.IntervalLabel1.Caption=TimerNext kEnd Sub31.以下程序的输出结果是Private Sub Command1_Click()ch$=“ABCDEF“proc chPrint chEnd SubPrivate Sub proc(ch As String)s=“For k=Len(ch)To 1 Step-1s=s Max, “Min=“; MinEnd Sub程序运行后，单击命令
11、按钮，将产生 100 个 1000 以内的随机整数，放入数组 arr 中，然后查找并输出这100 个数中的最大值 Max 和最小值 Min，请填空。（分数：4.00）填空项 1:_43.为了在运行时把 d:/pic 文件夹下的图形文件 a.jpg 装入图片框 Picture1，所使用的语句为 1。（分数：2.00）填空项 1:_44.设窗体上有一个名称为 Hscroll1 的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。Dim (10) As IntegerPrivate Sub
12、 Form_Load()pos=HScroll1.ValueEnd SubPrivate Sub HScroll1_Change()print (11) -pospos=HScroll1.ValueEnd Sub（分数：4.00）填空项 1:_45.下面程序对已知数组 b，删除数组中某指定值的元素，但程序不完整，请填空。Private Sub Command1_Click()Dim m, n%, i%, j%m=Array(1,3,5,29,34,50)n=Val(InputBox(“请输入要删除的值“)For i=0 To UBound(m)If (12) ThenFor j=i+1 To
13、UBound(m)(13) Next jReDim Preserve (14) MsgBox(“删除完成“)Exit ForEnd IfNext iEnd Sub（分数：6.00）填空项 1:_46.执行下列程序段后，显示的结果是_。Dim xIf x ThenPrint xElsePrint x+1End If（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-154 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.窗体上有两个水平滚动条 HV、HT，还有一个文本框 Text1 和一个标题为“计算”的命令按钮Command
14、1，如图 2 所示，编写以下程序：（分数：2.00）A.B.C. D.解析：解析 Value 属性是水平滚动条的默认属性，选项 A 的改法与本题程序没有区别；题目中传递参数时，传递的是水平滚动条的 Value 属性值，不是传递的控件，所以选项 B 的说法错误；将当前滚动条的Value 值传递给 cale 过程，能正确计算出值。所以本题的答案为 C。2.以下不能输出“Program”的语句是（分数：2.00）A.Print Mid(“VBProgram“,3,7)B.Print Right(“VBProgram“,7)C.Print Mid(“VBProgram“,3)D.Print Left(
15、“VBProgram“,7) 解析：解析 函数 Left(字符串，n)的功能是从字串左边第一个字符开始取 n 个字符，Left(“VB-Program“,7)输出结果是 VBProgr，所以本题的答案为 D。3.在窗体上画一个命令按钮，名称为 Command1，然后编写如下程序：Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox(“请输入:“)If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer) As I
16、ntegerIf X10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Flag=TrueEnd Sub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入 5，则程序的输出结果为（分数：2.00）A.0B.5 C.15D.无任何输出解析：解析 单击窗体，引发窗体的 MouseUp 事件，Flag 的值变为 True。单击命令按钮时，接收输入5，由于 Flag 为 True，执行 Pr
17、int f(intNum)语句，f()函数内执行第一个分支将 X 赋值给 Y，并且函数的返回值为 Y，所以输出的值是 5。4.设在窗体中有一个名称为 List1 的列表框，其中有若干项目(如图 1 所示)。要求选中某一项后单击Command1 按钮，就删除选中的项，则正确的事件过程是（分数：2.00）A.B.C. D.解析：解析 删除列表框的选项需要使用 RemoveItem 方法，其语法为：列表框名.RemoveItem 列表项索引号所以 C 为正确答案。Clear 方法为清空列表框中所有选项，不需要参数。5.在窗体上先后画两个图片框，名称分别为 Picture1 和 banana，bana
18、na 中添加了香蕉图片(见图 3)，且将 bananaDragMode 属性设置为 1。要求程序运行时，可以用鼠标把 banana 拖拽到 Picture1 中(见图 4)。能实现此功能的事件过程是（分数：2.00）A.B.C. D.解析：解析 题中用鼠标把 banana 图片框拖放到 Picture1 图片框中，此时将触发 DragDrop 事件，其事件过程为：Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)Source.Move Picture1.Left+X.Picture1.Top+YE
19、nd Sub其中，Source 为对象变量，标识正在被拖动对象的属性，所以本题的答案为 C。6.设有如下通用过程：Public Function Fun(xStr As String) As StringDim tStr As String, strL As IntegertStr=“strL=Len(xStr)i=1Do While i=strL/2tStr=tStr If arrItem90 Then Exit ForNextEnd Sub对于该事件过程，下列叙述中错误的是（分数：2.00）A.a 数组中的数据是 30 个 100 以内的整数 B.语句 For Each arrItem I
20、n a 有语法错误C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环解析：解析 For EachNext 语句专门用于数组或对象“集合”，其一般格式为：*用 For EachNext 语句可以对数组元素进行处理，包括查询、显示、读取。它所重复执行的次数由数组中元素的个数确定。本题程序中首先定义了一个包含 31 个元素的数组，然后通过循环语句赋给下标为130 的元素各一个 100 以内的非负整数，最后通过 For EachNext 语句输出数组中能够被 7 整除的数，当数组元素的
21、值大于 90 时退出 For 循环。故选项 A 不正确。22.工程中有两个窗体，名称分别为 Form1、Form2，Form1 为启动窗体，该窗体上有命令按翎Command1要求程序运行后单击该命令按钮时显示 Form2，则按钮的 Click 事件过程应该是（分数：2.00）A.Private Sub Command1_Click()Form2.ShowEnd Sub B.Private Sub Command1_Click()Form2.VisibleEnd SubC.Private Sub Command1_Click()Load Form2End SubD.Private Sub Com
22、mand1_Click()Form2.LoadEnd Sub解析：解析 Show 方法用于显示窗体，所以本题答案为 A。23.在软件开发中，需求分析阶段产生的主要文档是（分数：2.00）A.可行性分析报告B.软件需求规格说明书 C.概要设计说明书D.集成测试计划解析：解析 需求分析阶段的工作主要包括需求获取、需求分析、编写需求规格说明书和需求评审等 4个方面。产生的主要文档为软件需求规格说明书。24.设有语句：Open“d:/Test.txt“For Output As #1，下列叙述中错误的是（分数：2.00）A.若 d 盘根目录下无 Text.txt 文件，则该语句创建此文件B.用该语句建
23、立的文件的文件号为 1C.该语句打开 d 盘根目录下一个已存在的文件 Text.txt，之后就可以从文件中读取信息 D.执行该语句后，就可以通过 Print #语句向文件 Test.txt 中写入信息解析：解析 在该 Open 语句中以 Output 方式打开文件，表示向文件写入信息。25.算法的有穷性是指（分数：2.00）A.算法程序的运行时间是有限的 B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用解析：解析 算法具有有穷性：一个算法必须总是(对任何合法的输入值)在执行有穷步之后结束，且每一步都可在有限时间内完成，即运行时间是有限的；确定性：算法中每
24、一条指令必须有确切的含义，读者理解时不会产生歧义；可行性：一个算法是可行的，即算法中描述的操作都可以通过已经实现的基本运算执行有限次来实现；输入：一个算法有 0 个或多个输入，这些输入取自于某个特定的对象的集合；输出：一个算法有一个或多个输出。26.要使两个单选按钮属于同一个框架，正确的操作是（分数：2.00）A.先画一个框架，再在框架中画两个单选按钮 B.先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中C.先画两个单选按钮，再用框架将单选按钮框起来D.以上三种方法都正确解析：解析 为了实现两个单选按钮属于同一个框架组，应该先画一个框架，再在框架中画两个单选按钮。27.下列关于
25、栈的叙述中正确的是（分数：2.00）A.栈按“先进先出”的原则组织数据B.栈按“先进后出”的原则组织数据 C.只能在栈底插入数据D.不能删除数据解析：解析 在栈中，允许插入与删除的一端称为栈顶。栈顶元素总是最后被插入的元素，从而也是最先被删除的元素；即栈是按照“先进后出”或“后进先出”的原则组织数据的。28.结构化程序设计的基本原则不包括（分数：2.00）A.多态性 B.自顶向下C.模块化D.逐步求精解析：解析 结构化程序设计的原则包括“自顶而下，逐步求精，模块化”。多态性是面向对象程序语言的特征。29.为计算 1+3+5+99 的值，某人编程如下k=1s=0While k=99k=k+2:s
26、=s+kWendPrint s在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（分数：2.00）A.WhileWend 循环语句错误，应改为 For k=1 To 99Next kB.循环条件错误，应改为 Whlie k99C.循环前的赋值语句 k=1 错误，应改为 k=0D.循环中两条赋值语句的顺序错误，应改为 s=s+k:k=k+2 解析：解析 程序进行第一次循环时，k=3，s=s+k，这样 s 的值就少加了一个 1。按选项 A 修改的程序与原程序等效，其结果为 s=3+5+99+111；按选项 B 修改后程序运行的结果为 s=3+5+97+99；按选项C 修改后程序
27、运行的结果为 s=2+4+100；选项 D 正确。30.设窗体上有一个标签 Label1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1000，Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（分数：2.00）A.Private Sub Timer1_Timer()Label1.Caption=TrueEnd SubB.Private Sub Timer1_Timer()Label1.Caption=Time $End Sub C.Private Sub Timer1_Timer()Labe
28、l1.Interval=1End SubD.Private Sub Timer1_Timer()For k=1 To Timer1.IntervalLabel1.Caption=TimerNext kEnd Sub解析：解析 在 Timer 事件过程中是需要周期性处理的代码，本题中，计时器 Interval=1000，设置时间间隔是 1s。每隔 1s 自动调用一次 Timer 事件过程。利用 Time 函数获取系统日期并显示在 Label1 控件上，因此本题的答案为 B。31.以下程序的输出结果是Private Sub Command1_Click()ch$=“ABCDEF“proc chPr
29、int chEnd SubPrivate Sub proc(ch As String)s=“For k=Len(ch)To 1 Step-1s=s Max, “Min=“; MinEnd Sub程序运行后，单击命令按钮，将产生 100 个 1000 以内的随机整数，放入数组 arr 中，然后查找并输出这100 个数中的最大值 Max 和最小值 Min，请填空。（分数：4.00）填空项 1:_ （正确答案：(7)Maxarr(i) (8)Minarr(i)）解析：解析 程序为了查找并输出 100 个数中最大值 Max 和最小值 Min，先假定 arr(1)中的值就是最大值，同时也就是最小值。接下
30、来用数组中剩下的数一一跟 Max 和 Min 比较，如果发现有比 Max 更大的数，则把新的更大的数作为当前发现的最大数存入到 Max 中，等到把数组中剩下的所有数都比较完后，Max 中的值就是要找的最大值；同理可找最小值。第7空所在的 if 条件语句用于获得最大值 Max，因此此处应填写 Maxarr(i)；第8空所在的 if 条件语句用于获得最小值 Min，因此此处应填写 Minarr(i)。43.为了在运行时把 d:/pic 文件夹下的图形文件 a.jpg 装入图片框 Picture1，所使用的语句为 1。（分数：2.00）填空项 1:_ （正确答案：Picture1.Picture=L
31、oadPicture(“d:/pic/a.jpg“)）解析：解析 图片框的图形加载使用 LoadPicture 语句。44.设窗体上有一个名称为 Hscroll1 的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。Dim (10) As IntegerPrivate Sub Form_Load()pos=HScroll1.ValueEnd SubPrivate Sub HScroll1_Change()print (11) -pospos=HScroll1.ValueEnd Sub
32、（分数：4.00）填空项 1:_ （正确答案：(10)pos (11)HScroll.value）解析：解析 第10空位置是定义一个变量，程序仅使用了变量 pos，所以第10空填写 pos。为了能够在窗体上输出滚动块移动的距离，应该是用滚动条当前的值减去在滚动条移动之前的值，而程序装入时已执行 pos=HScroll1.Value 记录下了滚动条原先的值，所以第11个空填写 HScroll.Value。显示出滚动条移动的距离后，同时用 pos 记录下滚动条当前的值，当下次移动滚动条时，pos 里的值又成了新的“滚动条移动之前的值”，为下次计算做准备。45.下面程序对已知数组 b，删除数组中某指
33、定值的元素，但程序不完整，请填空。Private Sub Command1_Click()Dim m, n%, i%, j%m=Array(1,3,5,29,34,50)n=Val(InputBox(“请输入要删除的值“)For i=0 To UBound(m)If (12) ThenFor j=i+1 To UBound(m)(13) Next jReDim Preserve (14) MsgBox(“删除完成“)Exit ForEnd IfNext iEnd Sub（分数：6.00）填空项 1:_ （正确答案：(12)m(i)=n (13)m(j-1)=m(j) (14)m(UBound(
34、m)-1)）解析：解析 从数组中删除一个元素，首先要找到需要删除的元素的位置，再通过移动元素的方法覆盖被删除的元素，最后重定义数组的大小。题目中 For i=0 To UBound(m)循环语句就是循环数组中的每一个元素，判断是否有需要删除的元素，判断的方法是用数组元素的值与准备删除的值作相等比较，所以12空应填 m(i)=n；找到需要删除的元素后，应该从被删除的元素的后一个元素依次向前移动一个位置，以覆盖被删除的元素，所以13空应填 m(j-1)=m(j)，用下标来表示数组的前后位置关系。注意，由于 j的起始值为 i+1，所以此空不能填 m(j)=m(j+1)，不然的话，第一个被覆盖的元素就变成了被删除元素的后一个元素了，同时，当 j=UBound(m)时，会出现“下标越界”的错误。删除元素后，应重定义数组，使数组的上界减小 1，由于原数组的上界为 UBound(m)，所以14空应填 m(UBound(m)-1)。46.执行下列程序段后，显示的结果是_。Dim xIf x ThenPrint xElsePrint x+1End If（分数：2.00）填空项 1:_ （正确答案：1）解析：解析 x 没有赋值，默认为 0。而在 VB 中，0 作为逻辑常量 False，非 0 作为 True，所以执行Print x+1 语句，输出结果为 1。
