1、国家二级 VB机试（上机操作）模拟试卷 312及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Forml的窗体上画 1个名称为 Frame1、标题为“学位”的框架；框架内有 1个名称为Option1的控件数组，该控件数组含有 4个标题分别为“学士”、“硕士”、“博士”和“其他”的单选按钮，它们的 Index属性分别为 0、1、2、3，且标题为“硕士”的单选按钮为选中状态。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为sjt1frm。 (2)在名称为 Form1、标题为“练习
2、”的窗体上，画 1个名称为 Image1的图像框，该图像框能自动调整其中图片内容的大小，并装入考生文件夹下名称为“风景”的图片文件。再画 2个名称分别为 Command1 和 Command2，标题分别为“加宽”和“加高”的命令按钮。如图所示。 要求：编写两个按钮适当的事件过程，使得单击“加宽”按钮时，Imagel 的宽度增加 15；单击“加高”按钮时，Imagel的高度增加 15。在程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00
3、)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得
4、修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。（分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗体上有两个命令按钮，标题分别是“读数据”和“统计”，请添加两个标签，名称分别为 Label1和 Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为 Text1和 Text2，初始内容为空的文本框，如图所示。 程序功能如下：单击“读数据”按钮，则将考生文件夹下 in5dat 文件的内容读到变量 s中(此过程已给出)。 单击“统计”按钮，自动统计 in5dat 文件中所含各字母(不
5、区分大小写)出现的次数，并统计次数最多的字母显示在 Text1文本框内，它所出现的次数显示在 Text2文本框内。 “读数据”按钮的 Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 312答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Forml的窗体上画 1个名称为 Frame1、标题为“学位”的框架；框架内有 1个名称为Option1的控件数组，该控件数组含有 4个标题分别为“学士”、“硕士”、“博士”和“其他”的单选按钮，它们的 Ind
6、ex属性分别为 0、1、2、3，且标题为“硕士”的单选按钮为选中状态。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为sjt1frm。 (2)在名称为 Form1、标题为“练习”的窗体上，画 1个名称为 Image1的图像框，该图像框能自动调整其中图片内容的大小，并装入考生文件夹下名称为“风景”的图片文件。再画 2个名称分别为 Command1 和 Command2，标题分别为“加宽”和“加高”的命令按钮。如图所示。 要求：编写两个按钮适当的事件过程，使得单击“加宽”按钮时，Imagel 的宽度增加 15；单击“加高”按钮时，Imagel的
7、高度增加 15。在程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：新建一个窗体，在窗体上添加一个框架控件，并按照表 41 设置控件的属性，结果如图 41 所示。 步骤 2：在建立好的框架控件上依次添加 4个单选按钮，并按照表 42 设置控件属性，结果如图 42 所示。为了使“硕士”单选按钮处于选中状态，需要将其的 value属性值设置为 True。 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤
8、】 步骤 1：新建一个窗体，并设置窗体的相关属性，如表 43 所示。 步骤 2：在建立好的窗体上添加一个 Image控件，并按照表 44 设置控件属性，结果如图 43 所示。 步骤 3：向窗体上添加两个按钮控件，按钮名称分别为 Command1和 Command2，并按照表 45 设置两个按钮控件的相关属性，运行结果如图 44 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原
9、文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮来决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将
10、问号改为正确的内容。 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：调试并运行程序，关闭程序后按题目要求
11、存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Dim d As Integer Private Sub Commandl_Click() Timer1Enabled=True当单击”开始”按钮时，Timer 生效 End Sub Private Sub Command2_Click() Timer1.Enabled=False当单击”停止”按钮时，Timer 失效 End Sub Private Sub Form_Load() d=1 End Sub Private Sub Timerl_Timer()
12、If Optionl Then判断 Optionl是否被单击 Shape2Top=Shape2.Top+d *50实现圆垂直移动 If Shape2Top=Shape1Top Or Shape2Top+Shape2Width=Shape1 Top+Shape1Height Then判断 Shape2与 Shape1的位置 d=一 d当圆移出 Shape1时，改变移动方向 End If ElseIf Option2 Then Shape2Left=Shape2.Left+ d*50实现水平移动 If Shape2Left=Shape1Left Or Shape2Left+Shape2Width=
13、Shape1 Left+Shape1Width Then d=-d当圆移出 Shape1时，则改变移动方向 End If End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗体上有两个命令按钮，标题分别是“读数据”和“统计”，请添加两个标签，名称分别为 Label1和 Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为 Text1和 Text2，初始内容为空的文本框，如图所示。 程序功能如下：单击“读数据”按钮，则将考生文
14、件夹下 in5dat 文件的内容读到变量 s中(此过程已给出)。 单击“统计”按钮，自动统计 in5dat 文件中所含各字母(不区分大小写)出现的次数，并统计次数最多的字母显示在 Text1文本框内，它所出现的次数显示在 Text2文本框内。 “读数据”按钮的 Click事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件，添加两个标签控件，名称分别为Label1和 Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；再添加两个名称分别为 Text1和 Text2，初始值为空的文
15、本框。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 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 maxa(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：调试并运行程序，关闭程序后按题目要求存盘。)解析：
