1、国家二级 VB机试（上机操作）模拟试卷 81及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “框架练习 ”的窗体上画一个名称为 Framel、标题为 “字体 ”的框架控件；在框架中画两个单选按钮，名称分别为 Optionl、 Option2，标题分别为“宋体 ”、 “黑体 ”，标题在单选按钮的左边。运行后的窗体如图 3 158所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtl frm，工程文件名为 sitl vbp。 (2)在名称为 Forml窗体上，画一个名称为 I
2、magel的图像框，在其中显示考生文件夹下的图片 “pic2 jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为 HScrolll、 VScrolll，它们的刻度范围都是 1 3。如图 3一 159(a)所示。要求如下： 定义两个窗体级变量： length、 high，并编写窗体的 FormLoad事件过程，使 length、 high分别等于图像框的宽、高； 编写适当的事件过程，使得移动两个滚动条上的滚动块时，以刻度值 作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如： HScrolll的滚动块在刻度值为 2的位置时，图像框的
3、宽为初始宽度的 2倍。如图 3 159(b)所示。对于垂直滚动条也相同。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序巾的两个变量必须是length、 high，此外不能再使用其他变量，除 Form Load事件过程外，其他每个事件过程巾只能写一条语句。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有名称为 Timerl的定时器，以及名称为 Linel和 Line2的两条水平直线。请用名称为 Shapel的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满
4、足以下要求： 圆的顶端距窗体： Forml顶端的距离为 360； 圆的颜色为红色 (红色对应的值为 &H000000FF&或 &HFF&)，如图 3 70所示。程序运行时， Shapel将在 Linel和 Line2之间运动。当 Shapel的顶端到达 Linel时，会自动改变方向而向下运动；当 Shapel的底部到达 Line2时，会改变方向而向上运动 。文件中给出的程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确内容，使其实现上述功能。注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sit4 vbp，包含了所有控
5、件和部分程序，如图 3-71所示。程序功能如下： 单击 “读数据 ”按钮，可将考生文件夹下 in4 dat文件中的 100个整数读到数组 a中； 单击 “计算 ”按钮，则根据从名称为 Comb01的组合框中选中的项目，对数组 a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框 Text1中。 “读数据 ”按钮的 Click事件过程已经给出，请为 “计算 ”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程
6、文件 sjt5 vbp，窗体上有两个标题分别是 “读数据 ”和“统计 ”的命令按钮。请画两个标签，名称分别为 L,abell和 L,abel2，标题分别为 “出现次数最多的字母是 ”和 “它出现的次数为 ”；再画两个名称分别为 Textl和 Text2、初始值为空的文本框，如图 3167所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中 (此过程已给出 )； 单击 “统计 ”按钮，则自动统计 in5 dat文件中所含各字母 (不区分大小写 )出现的次数，并将出现次数最多的字母显示在 Text1文本框内，它所出现的次数显示在 Text2文本框内
7、。 “读数据 ”按钮的 Click事件过程已经给出，请为 “统计 ”按钮编写适当的事件过程以实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 统计，且必须用窗体右上角的关闭按钮结束程序，甭则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 81答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。
8、 步骤 2：打开代码编辑窗口，分别编写滚动条的 Change事件过程和窗体的 Load事件过程。 参考代码： Dim length， high Private Sub Form Load() length=Image 1 Width high=Imagel Height End Sub Private Sub HScrolll Change() Imagel Width=HScro111 Value*length End Sub Private Sub VScro111 Change() Imagel Height=VScro111 Value*high End Sub 步骤 3：按要求将文件
9、保存至考生文件夹中。 二 、简单应用题 2 【正确答案】 第 1小题【操作步骤】步骤 1：打开考生文件下的本题工程文件sit3 vbp，在窗体上两条水平直线间画一个形状控件，并如表 4 42设置其属性。步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=True Tf Shapel Top=Lin2 Y1 Then步骤 3：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，在代码编辑窗口，编写 “计算 ”按钮 的单击事件过程以及三个自定义过程。 参考代码
10、： Private Sub Command2 Click() Select Case Combol ListIndex Case 0 Text1=even() Case 1 Text1=odd() Case 2 Text1=all() End Select End Sub Function even() Dim s As Single， n As Integer s=0 For k=1 To 100 Tf a(k) 2=Fix(a(k) 2)Then s=s+a(k) n=n+ 1 End Tf Next s=s n even=CInt(s)End FunctiOil Function odd
11、() Dim s As Single， rl As Integer s=0 For k=1 To 100 Tf a(k) 2Fix(a(k) 2)Then s=s+a(k) n=n+1 End If Next s=s n odd=CInt(s)End Function Function all() Dim s As Single， n As Integer s=0 For k=1 To 100 s=s+a(k) Next s=s 1 00 all=CInt(S)Ignd Function步骤 2：按键运行程序，先单击 “读数据 ”按钮，然后选择组合框中的一项再单击 “计算 ”按钮，最后单击窗体
12、右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，按要求画出控件并设置属性。 步骤 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 Text1 Text=t Text2 Text=Max End Sub 步骤 3：按 键运行程序，先单击 “读数据 ”按钮， 接着单击 “统计 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
