1、国家二级 VB机试（上机操作）模拟试卷 312及答案与解析 一、基本操作题 1 (1)在名称为 Forml的窗体上画 1个名称为 Frame1、标题为 “学位 ”的框架；框架内有 1个名称为 Option1的控件数组，该控件数组含有 4个标题分别为 “学士 ”、 “硕士 ”、 “博士 ”和 “其他 ”的单选按钮，它们的 Index属性分别为 0、 1、 2、 3，且标题为 “硕士 ”的单选按钮为选中状态。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。(2)在名称为 Form1、 标题为 “练习 ”的窗体上，画 1个名
2、称为 Image1的图像框，该图像框能自动调整其中图片内容的大小，并装入考生文件夹下名称为 “风景 ”的图片文件。再画 2个名称分别为Com mand1和 Command2，标题分别为 “加宽 ”和 “加高 ”的命令按钮。如图所示。 要求：编写两个按钮适当的事件过程，使得单击 “加宽 ”按钮时， Imagel的宽度增加15；单击 “加高 ”按钮时， Imagel的高度增加 15。在程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名 为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sj
3、t3 vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp，窗体中有一个矩形和一个圆，程序运行时，单击 “开始 ”按钮，圆可以横向或纵向运行 (通过选择单选按钮来决定 )，碰到矩形的边时，则向其相反方向运动，单击 “停止 ”按钮，则停止运动，如图所示。可以通过选 择单选按钮随时改变运动方向。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改已经存在的内容和控件属性
4、，最后将修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体上有两个命令按钮，标题分别是“读数据 ”和 “统计 ”，请添加两个标签，名称分别为 Label1和 Label2，标题分别为“出现次数最多的字母是 ”和 “它出现的次数为 ”；再添加两个名称分别为 Text1和Text2，初始内容为空的文本框，如图所示。 程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中 (此过程已给出 )。 单击“统计 ”按钮，自动统计 in5 dat文件中所含各字母 (不区分大小写 )出现的次数，并统计次数最多的字母显
5、示在 Text1文本框内，它所出现的次数显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给出，请为 “统计 ”按钮编写适当的事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩 。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 312答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，在窗体上添加一个框架控件，并按照表 4 1设置控件的属性，结果如图 4 1所示。步骤 2：在建立好的框架控件上依次添加 4个单
6、选按钮，并按照表 4 2设置控件属性，结果如图 4 2所示。为了使 “硕士 ”单选按钮处于选中状态，需要将其的 value属性值设置为 True。步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建 一个窗体，并设置窗体的相关属性，如表 4 3所示。 步骤 2：在建立好的窗体上添加一个 Image控件，并按照表 4 4设置控件属性，结果如图 4 3所示。 步骤 3：向窗体上添加两个按钮控件，按钮名称分别为 Command1和 Command2，并按照表 4 5设置两个按钮控件的相关属性，运行结果如图 4 4所示。步骤 4：双击 “加宽 ”按钮，打开代码编辑
7、窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码如下： Private Sub Command1_Click() Image1.Width=Image1.Width+15 End Sub 步骤 5：双击 “加高 ”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码如下： Private Sub Command2_Click() Image1.Height=Image1.Height+15 End Sub 步骤 5：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编
8、辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Form_Click() For i=1 To 5输入 5行 For j=1 To 6一 i循环实现输入空格，每行依次减少一个空格 Print”； Next j For j=1 To 2*1-1观察图像每行 *的个数 Print”*”； Next j Print Next i For i=1 To 4 For j=1 To i+1同问题 1 Print”； Next j For j=1 To (9-2*1)同问题 2 Print”*”； Next j Print Next i End Sub 程序结束 步骤 3：
9、调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Dim d As Integer Private Sub Commandl_Click() Timer1 Enabled=True当单击 ”开始 ”按钮时， Timer生效 End Sub Private Sub Command2_Click() Timer1.Enabled=False当单击 ”停止 ”按钮时， Timer失效 End Sub Private Sub Form_Load() d=1 End Sub Pri
10、vate Sub Timerl_Timer() If Optionl Then判断 Optionl是否被单击 Shape2 Top=Shape2.Top+d *50实现圆垂直移动 If Shape2 Top =Shape1 Top Or Shape2 Top+Shape2 Width =Shape1 Top+Shape1 Height Then判断 Shape2与 Shape1的位置 d=一 d当圆移出 Shape1时，改变移动方向 End If ElseIf Option2 Then Shape2 Left=Shape2.Left+ d*50实现水平移动 If Shape2 Left =Sh
11、ape1 Left Or Shape2 Left+Shape2 Width =Shape1 Left+Shape1 Width Then d=-d当圆移出 Shape1时，则改变移动方向 End If End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件，添加两个标签控件，名称分别为 Label1和Label2，标题分别为 “出现次数最多的字母是 ”和 “它出现的次数为 ”；再添加两个名称分别为 Text1和 Text2，初始值为空的文本框。 步骤 2：打开代码编辑窗口，在指定位置编写如下
12、代码。 Dim a(1 To 26)As Integer定义数组 a用于存放字母出现个数 Dim max As Integer n=Len(S)Len的功能是求字符串的长度 For i=1 To n k=Asc(Mid$(S， i， 1)依次获取字符 If(k =65 And k =90)Then a(k一 64)=a(k一 64)+1当为大写字母时，满足条件则计数 End If If(k =97 And k =122)Then a(k一 96)=a(k一 96)+1当为小写字母时，满足条件则计数 End If Next i max=0 For m=1 To 26循环查找出现次数最多的值 If max a(m)Then max=a(m) End If Next m Text2=max显示出现次数 For m=1 To 26找到出现次数最多的值的下标 If a(m)=max Then 1=m将下标记下 End If Next m Text1=Chr(1+64)通过下标找到对应的字母 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
