1、国家二级 VB 机试（上机操作）-试卷 108 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml、标题为“框架练习”的窗体上画一个名称为 Framel、标题为“字体”的框架控件；在框架中画两个单选按钮，名称分别为 Optionl、Option2，标题分别为“宋体”、“黑体”，标题在单选按钮的左边。运行后的窗体如图 3158 所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtlfrm，工程文件名为 sitlvbp。 (2)在
2、名称为 Forml 窗体上，画一个名称为 Imagel 的图像框，在其中显示考生文件夹下的图片“pic2jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为 HScrolll、VScrolll，它们的刻度范围都是 13。如图 3 一159(a)所示。要求如下： （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。窗体上有名称为 Timerl 的定时器，以及名称为 Linel和 Line2 的两条水平直线。请用名称为 Shapel 的形状控件，在两条直线之间画一个宽和高都
3、相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：圆的顶端距窗体：Forml 顶端的距离为 360；圆的颜色为红色(红色对应的值为&H000000FF&或&HFF&)，如图 370 所示。 程序运行时，Shapel 将在 Linel 和 Line2 之间运动。当 Shapel 的顶端到达 Linel 时，会自动改变方向而向下运动；当 Shapel 的底部到达 Line2 时，会改变方向而向上运动。文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹
4、下有一个工程文件 sit4vbp，包含了所有控件和部分程序，如图 3-71 所示。程序功能如下： （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签，名称分别为 L,abell 和 L,abel2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再画两个名称分别为 Textl 和 Text2、初始值为空的文本框，如图 3167 所示。程序功能如下：单击“读数据”按钮，则将考生文件夹下 in5dat 文件的内容读到变量 s 中(此过程已给出)；单击“统计”按钮
5、，则自动统计 in5dat 文件中所含各字母(不区分大小写)出现的次数，并将出现次数最多的字母显示在 Text1 文本框内，它所出现的次数显示在 Text2 文本框内。“读数据”按钮的 Click事件过程已经给出，请为“统计”按钮编写适当的事件过程以实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，甭则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 108 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下
6、各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml、标题为“框架练习”的窗体上画一个名称为 Framel、标题为“字体”的框架控件；在框架中画两个单选按钮，名称分别为 Optionl、Option2，标题分别为“宋体”、“黑体”，标题在单选按钮的左边。运行后的窗体如图 3158 所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtlfrm，工程文件名为 sitlvbp。 (2)在名称为 Forml 窗体上，画一个名称为 Imagel 的图像框，在其中显示考生文件夹下的图片“pic2jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸
7、可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为 HScrolll、VScrolll，它们的刻度范围都是 13。如图 3 一159(a)所示。要求如下： （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，分别编写滚动条的Change 事件过程和窗体的 Load 事件过程。 参考代码： Dim length，high Priva
8、te Sub Form Load() length=Image 1Width high=ImagelHeight End Sub Private Sub HScrolll Change() ImagelWidth=HScro111Value*length End Sub Private Sub VScro111 Change() ImagelHeight=VScro111Value*high End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。窗体上有名称为 Timerl 的定时器
9、，以及名称为 Linel和 Line2 的两条水平直线。请用名称为 Shapel 的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：圆的顶端距窗体：Forml 顶端的距离为 360；圆的颜色为红色(红色对应的值为&H000000FF&或&HFF&)，如图 370 所示。 程序运行时，Shapel 将在 Linel 和 Line2 之间运动。当 Shapel 的顶端到达 Linel 时，会自动改变方向而向下运动；当 Shapel 的底部到达 Line2 时，会改变方向而向上运动。文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内
10、容，使其实现上述功能。注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sit4vbp，包含了所有控件和部分程序，如图 3-71 所示。程序功能如下： （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sit3vbp，在窗体上两条水平直线间画一个形状控件，并如表 442 设置其属性。 )解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签，名称分别为 L,
11、abell 和 L,abel2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再画两个名称分别为 Textl 和 Text2、初始值为空的文本框，如图 3167 所示。程序功能如下：单击“读数据”按钮，则将考生文件夹下 in5dat 文件的内容读到变量 s 中(此过程已给出)；单击“统计”按钮，则自动统计 in5dat 文件中所含各字母(不区分大小写)出现的次数，并将出现次数最多的字母显示在 Text1 文本框内，它所出现的次数显示在 Text2 文本框内。“读数据”按钮的 Click事件过程已经给出，请为“统计”按钮编写适当的事件过程以实现上述功能。注意：考生不得修改窗体文件中已经
12、存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，甭则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5vbp，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口的指定位置，编写“统计”按钮的单击事件过程。 参考代码： Private Sub Command2 CliCk() 考生编写 Dim a(26)As Integer n=Len(S) For i=1 To n c=UCase(Mid(S，i，1) If C=“A”And CMax Then Max=a(i) t=Chr(AsC(“A”)+i 一 1) End If Next j Text1Text=t Text2Text=Max End Sub 步骤 3：按键运行程序，先单击“读数据”按钮， 接着单击“统计”按钮，然后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。)解析：
