1、二级 VISUAL+BASIC 机试-116 及答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：30.00)完成下列问题：（分数：30.00）(1).在名称为 Form1，标题为“显示记录”的窗体上画一个名称为 Text1 的文本框其初始内容为空；再画一个名称为 Command1 的命令按钮数组(下标从 0 开始，有 4 个按钮，其对应的标题分别为“上一条记录”、“下一条记录”、“第一条记录”、“最后一条记录”)，程序执行时的效果如图 1 所示，且程序执行时按下回车键则相当于鼠标单击“下一条记录”按钮。请设置相应的属性。*注意：存盘时，将文件保存至考生文件
2、夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。（分数：15.00）_(2).在名称为 Form1 的窗体上，画一个名称为 Label1 的标签，其标题为“等级考试”，能根据标题内容自动调整标签的大小，外观如图 2 所示。再画一个名称为 Timer1 的计时器，其 Interval 属性设置为0，Enabled 属性设置为 True。*要求：编写窗体的 Load 事件过程和计时器的 Timer 事件过程，使得程序运行时，每隔 1s 标签交替隐藏或显示一次。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。要求程序中不得
3、使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。（分数：15.00）_二、简单应用题(总题数：1，分数：40.00)完成下列问题：（分数：40.00）(1).在考生文件夹下有工程文件 sjt3.vbp。程序运行时的窗体如图 3 所示。输入商品名称后，选中一种付款方式，则“成交”按钮变为可用，选择一种或多种“服务”后，单击“成交”按钮，则把相应信息显示在下面的图片框中，如图 4 所示。若不选任何“服务”，则显示如图 5 所示。单击“放弃”按钮，则恢复到图 3 状态。*程序已经给出但不完整，请在横线处填写正确的内容，以实现上述功能。要求：考生不得修改窗体文件中已经存在的控件和
4、程序，最后把修改后的文件按原文件名存盘。题目提供的源程序Private Sub Command1_Click()Dim flag As Booleanflag=FalsePicture1.Print Label1.Caption, Text1.TextPicture1.Print Frame1.Caption; “:“,For k=0 To 3If Optionl(k).Value=True ThenPicture1.Print Optionl(k).CaptionEnd IfNext kFor k=0 To 2If Check1(k).Value= (1) ThenIf Not flag T
5、henPicture1.Print Frame2.Caption; “:“,flag=TrueEnd IfPicture1.Print Check1(k).Caption; “;End IfNext kPicture1.PrintEnd SubPrivate Sub Command2_Click()(2) =“For k=0 To 3Optionl(k).Value=FalseNext kFor k=0 To 2Checkl(k).Value=0Next kPicture1.ClsCommand1.Enabled=FalseEnd SubPrivate Sub Option1_Click(In
6、dex As Integer)(3) End Sub（分数：20.00）_(2).在考生文件夹下有工程文件 sjt4.vbp，其中的列表框中已经有 2 个选项(均为数字)。程序功能是在文本框中输入一个整数 n(例如 30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于 n 的数。如图 6 所示。若再输入一个更大的整数(例如 100)，单击命令按钮，则按上述规律继续追加数字。如图 7 所示。*程序已经给出但不完整，请将其中的注释符去掉，在横线处填写正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经
7、存在的控件和程序，最后程序按原文件名存盘。题目提供的源程序Private Sub Command1_Click()Dim a%, b%, c%, n%n=Val(Text1.Text)a=Val( (1) )b=Val(List1.List(List1.ListCount-1)c=a+bDo While cna= (2) b=cList1.AddItem (3) c=a+bLoopEnd Sub（分数：20.00）_三、综合应用题(总题数：1，分数：30.00)1.在考生文件夹下有一个工程文件 sjt5.vhp。程序运行时，如图 8 所示，单击“显示数据”按钮，则将考生文件夹下 in5.dat
8、 文件的内容读入到 5 行 40 列的二维数组 a 中，并按 5 行显示在 Text1 文本框内；单击“统计”按钮，则计算每行中小于 50 的数之和，及这些数的平均值(平均值保留 2 位小数，是否四舍五入不限)，并将它们(共 10 个值)分别显示在 Label1 数组及 Text2 数组中。单击“保存”按钮，则保存计算结果。“显示数据”和“保存”按钮的 Click 事件过程已经给出，请编写“统计”按钮的 Click 事件过程实现上述功能。（分数：30.00）_二级 VISUAL+BASIC 机试-116 答案解析(总分：100.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：30
9、.00)完成下列问题：（分数：30.00）(1).在名称为 Form1，标题为“显示记录”的窗体上画一个名称为 Text1 的文本框其初始内容为空；再画一个名称为 Command1 的命令按钮数组(下标从 0 开始，有 4 个按钮，其对应的标题分别为“上一条记录”、“下一条记录”、“第一条记录”、“最后一条记录”)，程序执行时的效果如图 1 所示，且程序执行时按下回车键则相当于鼠标单击“下一条记录”按钮。请设置相应的属性。*注意：存盘时，将文件保存至考生文件夹下，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。（分数：15.00）_正确答案：(操作步骤第 1 步：新建一个标准
10、EXE 工程，修改窗体的 Caption 属性为“显示记录”。第 2 步：在窗体上画一个文本框控件，删除其 Text 属性内的文字。第 3 步：建立命令按钮控件数组。在窗体上画一个命令按钮，在该命令按钮上单击鼠标右键，在弹出的快捷菜单中选择“复制”命令；在窗体的空白位置单击鼠标右键，在弹出的快捷菜单中选择“粘贴”命令，此时会出现一个提示对话框，单击“是”按钮，同样再粘贴两次。第 4 步：设置命令按钮属性。按照命令按钮添加的顺序，依次将其 Caption 属性设置为“上一条记录”、“下一条记录”、“第一条记录”、“最后一条记录”(可查看命令按钮的 Index 属性，它是命令按钮数组的下标，根据下
11、标可确定按钮顺序)。将“上一条记录”按钮的 Enabled 属性设置为 False，将“下一条记录”的 Default 属性设置为 True。第 5 步：调试、运行并保存程序。)解析：解析 本题需要建立一个命令按钮控件数组。建立控件数组一般有两种方法：一是修改控件的名称属性和 Index 属性，让同一个控件数组的各控件名称相同，Index 属性从 0 开始连续编号；二是通过复制控件的方式设计控件数组。一个命令控件可用与否由其 Enabled 属性控制。如果一个命令按钮的Default 属性设置为 True，则该命令按钮为窗体的默认按钮，程序执行时按下回车键则相当于鼠标单击该按钮。(2).在名称
12、为 Form1 的窗体上，画一个名称为 Label1 的标签，其标题为“等级考试”，能根据标题内容自动调整标签的大小，外观如图 2 所示。再画一个名称为 Timer1 的计时器，其 Interval 属性设置为0，Enabled 属性设置为 True。*要求：编写窗体的 Load 事件过程和计时器的 Timer 事件过程，使得程序运行时，每隔 1s 标签交替隐藏或显示一次。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。（分数：15.00）_正确答案：(操
13、作步骤第 1 步：新建一个标准 EXE 工程。第 2 步：添加标签控件。在窗体上画一个标签控件，设置其 Caption 属性为“等级考试”，设置其AutoSize 属性为 True，设置 BorderStyle 属性为 1-Fixed Single。第 3 步：添加计时器控件。在窗体上画一个计时器控件，无须修改其属性。第 4 步：编写代码。Private Sub Form_Load( )Timer Interval=1000End SubPrivate Sub Timer1_Timer()Label1.Visible=Not Label1.VisibleEnd Sub第 5 步：调试并运行程序
14、，最后按题目要求保存工程。)解析：解析 若要标签控件能自动调整大小以适应文字内容，需要设置标签控件的 AutoSize 属性为True。标签控件的显示与否由其 Visible 属性控制。程序中利用 Timer 控件的 Timer 事件过程交替更改标签控件的 Visible 属性，可控制标签控件交替显示与隐藏。触发 Timer 事件的时间间隔由 Timer 控件的Interval 属性控制。二、简单应用题(总题数：1，分数：40.00)完成下列问题：（分数：40.00）(1).在考生文件夹下有工程文件 sjt3.vbp。程序运行时的窗体如图 3 所示。输入商品名称后，选中一种付款方式，则“成交”
15、按钮变为可用，选择一种或多种“服务”后，单击“成交”按钮，则把相应信息显示在下面的图片框中，如图 4 所示。若不选任何“服务”，则显示如图 5 所示。单击“放弃”按钮，则恢复到图 3 状态。*程序已经给出但不完整，请在横线处填写正确的内容，以实现上述功能。要求：考生不得修改窗体文件中已经存在的控件和程序，最后把修改后的文件按原文件名存盘。题目提供的源程序Private Sub Command1_Click()Dim flag As Booleanflag=FalsePicture1.Print Label1.Caption, Text1.TextPicture1.Print Frame1.Ca
16、ption; “:“,For k=0 To 3If Optionl(k).Value=True ThenPicture1.Print Optionl(k).CaptionEnd IfNext kFor k=0 To 2If Check1(k).Value= (1) ThenIf Not flag ThenPicture1.Print Frame2.Caption; “:“,flag=TrueEnd IfPicture1.Print Check1(k).Caption; “;End IfNext kPicture1.PrintEnd SubPrivate Sub Command2_Click()
17、(2) =“For k=0 To 3Optionl(k).Value=FalseNext kFor k=0 To 2Checkl(k).Value=0Next kPicture1.ClsCommand1.Enabled=FalseEnd SubPrivate Sub Option1_Click(Index As Integer)(3) End Sub（分数：20.00）_正确答案：(操作步骤第 1 步：打开工程文件 sjt3.vbp。第 2 步：分析并修改源程序。第 3 步：调试、运行并保存程序。11 2Text1.Text 3Command1.Enabled=True)解析：解析 本题需完成
18、 3 个事件过程的修改：一是单击单选按钮时执行 Option1_Click 过程，修改“成交”按钮为可用，即 Command1.Enabled=True；二是单击“成交”按钮执行 Command1_Click 过程，此过程在图片框中输出 Text1 中的内容，再根据单选按钮和复选框的选中状态输出其他信息，其中，当复选框的值为 1 时，表示该复选框被选中，1处应填 1；三是单击“放弃”按钮时，程序回到初始状态，需要清空文本框的内容，即 Text1.Text=“，并将所有单选按钮和复选框修改为未选中状态。(2).在考生文件夹下有工程文件 sjt4.vbp，其中的列表框中已经有 2 个选项(均为数字
19、)。程序功能是在文本框中输入一个整数 n(例如 30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于 n 的数。如图 6 所示。若再输入一个更大的整数(例如 100)，单击命令按钮，则按上述规律继续追加数字。如图 7 所示。*程序已经给出但不完整，请将其中的注释符去掉，在横线处填写正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。题目提供的源程序Private Sub Command1_Click()Dim a%, b%, c%, n%n=Val(Tex
20、t1.Text)a=Val( (1) )b=Val(List1.List(List1.ListCount-1)c=a+bDo While cna= (2) b=cList1.AddItem (3) c=a+bLoopEnd Sub（分数：20.00）_正确答案：(操作步骤第 1 步：打开工程文件 sjt4.vbp。第 2 步：分析并修改源程序。第 3 步：调试、运行并保存程序。1List1.List(List1.ListCount-2) 2b 3c)解析：解析 为了实现从列表框现有列表项的基础上继续追加数字，需要先取出列表框最后两个选项。列表框中选项的个数存储在 ListCount 属性中，由
21、于 List 属性的下标从 0 开始，所以最后一个选项为List1.List(List1.ListCount-1)，倒数第二个选项就应该是 List1.List(List1.ListCount-2)。取得最后两个选项 a 和 b 后就可以计算下一个数 c=a+h，若 c 还在规定的范围内，则 c 成了最后一个选项，b 成了倒数第二个选项。为了循环的连续性，将 b 赋给 a，c 赋给 b，再次计算 c=a+h，以此类推，直到找出所有满足要求的数。三、综合应用题(总题数：1，分数：30.00)1.在考生文件夹下有一个工程文件 sjt5.vhp。程序运行时，如图 8 所示，单击“显示数据”按钮，则将
22、考生文件夹下 in5.dat 文件的内容读入到 5 行 40 列的二维数组 a 中，并按 5 行显示在 Text1 文本框内；单击“统计”按钮，则计算每行中小于 50 的数之和，及这些数的平均值(平均值保留 2 位小数，是否四舍五入不限)，并将它们(共 10 个值)分别显示在 Label1 数组及 Text2 数组中。单击“保存”按钮，则保存计算结果。“显示数据”和“保存”按钮的 Click 事件过程已经给出，请编写“统计”按钮的 Click 事件过程实现上述功能。（分数：30.00）_正确答案：(操作步骤第 1 步：打开工程文件 sjt5.vbp。第 2 步：编写程序。参考程序如下：Priv
23、ate Sub Command2_Click( )考生应编写的程序For i=1 To 5 循环 5 行Sum=0 每行的和,计算每行数据前清零HCount=0 每行数据的个数，计算每行数据前清零For i=1 To 40 循环 40 列If a(i,j)50 ThenSum=Sum+a(i,j)HCount=HCount+1End IfNext jLabel1(i-1)=Sum 控件数组下标和行标之间相差 1Text2(i-1)=Format(Sum/HCount, “0.00“)Next iEnd Sub第 3 步：调试、运行并保存程序。)解析：解析 数据已经读入到数组 a(5，40)中，只需要遍历整个数组，找出满足要求的数。把二维数组第一维看作行，第二维看作列，采用双重循环遍历行和列。在对每一行进行求和或计数前必须先对求和、计数变量清零。从已知的读数据的代码可以看出，a 数组的行标和列标都是从 1 开始，而控件数组的下标从 0 开始，编写代码时要注意它们之间的对应关系。
