1、国家二级 VB机试（上机操作）模拟试卷 398及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图 3137所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上画一个名称为 Hscrol11的水平滚动条，其最大刻度为 100，最小刻度为 0；再画两个单选按钮，名称分别为 Opti
2、on1、Option2，标题分别为“最大值”、“最小值”，且都未选中。再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图 3138所示)。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入数据”按钮，可把考生目录下的文件 in3dat 中的 100个整数读到数组 a中；2)从名称为 List1的列表框中选中一项(如图 3139所示)。 3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。 4)单击窗体右上角的关闭按钮结束程
3、序。 “读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中横线(横坐标)的名称为 IAne1，竖线(纵坐标)的名称为 Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shapel，它们的 Visible属性都为 False；从左到右的两个按钮的名称分别为 Command1、Command2；另有一个有五个元素的标签数组，名称为 Labe11，
4、其所有元素的 Visible属性都为：False。如图 3140(a)所示。程序运行时，单击“输入 5个数据”按钮，可输入五个整数(最好在 1002000 之间)，并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是 1200、500、800、1900、1500，则结果如图 3140(b)所示。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，其中，己给出了所有控件(如图 3141所示)和部分程序。（分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 398答案解析(总
5、分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图 3137所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上画一个名称为 Hscrol11的水平滚动条，其最大刻度为 100，最小刻度为 0；再画两个单选按钮，名称分别为 Option1、Option2，标题分别为“最大值”、“最小值”，且
6、都未选中。再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图 3138所示)。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，利用菜单设计器按表 481在窗体上建立一个二级菜单。 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按表 482在窗体中画出控件并设置其相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入数据”按钮，可把
7、考生目录下的文件 in3dat 中的 100个整数读到数组 a中；2)从名称为 List1的列表框中选中一项(如图 3139所示)。 3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文本框中。 4)单击窗体右上角的关闭按钮结束程序。 “读入数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中横线(横坐标)的名称为 IAne1，竖线(纵坐标)的名称为
8、 Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shapel，它们的 Visible属性都为 False；从左到右的两个按钮的名称分别为 Command1、Command2；另有一个有五个元素的标签数组，名称为 Labe11，其所有元素的 Visible属性都为：False。如图 3140(a)所示。程序运行时，单击“输入 5个数据”按钮，可输入五个整数(最好在 1002000 之间)，并作为刻度值显示在纵坐标的左面；单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是 1200、500、800、1900、1500，则结果如图 3140(b)所示。 （分数：2.
9、00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码： Private Sub Command2_Click() Dim k As Integerf i1，i2 As Integer i1a(1)：i2a(1) For k2 To 100 If a(k)i1 Then i1a(k) End If If a(k)52 Then i2a(k) End If Next k If List1Selected(0)True Then Text1Texti1i2 End
10、If If List1Select：ed(1)True Then Text1Texti1i2 End If If List1Selected(2)True Then Text1Texti1*i2 End Tf 步骤2：按F5键运行程序，单击“读入数据”按钮，然后在列表框中选择一项，并单击“计算”按钮，统计出结果。 步骤 3：单击窗体右上角的关闭按钮以结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjr4vbp，在代码编辑窗口，去掉程序中的注释符“”将问号“?”改为正确的内容。参考代码： For k1 To 5 Labe11
11、(k1)VisibleTrue Shape1(k1)Heights(k) aLine1Y1 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，其中，己给出了所有控件(如图 3141所示)和部分程序。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口指定位置编写以下代码。参考代码： Private Sub Command1_Click() Open“in5dat“For Input As 1 Line Input #1，s C
12、lose #1 Text1Texts End Sub Private Sub Command2_Click() Dim i As Integer，ss As String ss “ “ For i1 To Len(s) rf isletter(Nid(s，i，1)True Then If i Mod 20 Then Tf Mid(s，i，1)“a“Then ss ss “z“ Elsetf Hid(s,i,1)“A“Then ssss “z“ Else ss ss Chr(Asc(Mid(s，i，1)1) End If Else Tf Mid(s，i，1) “z“ Then ss ss “A“ Else If Mid(s，i，1)“z“Then ss ss “a“ Else s ss Chr(Asc(Mid(s，i，1)1) End If End If Else ss ss Mid(s， i， 1) End If Next Text2Textss End Sub 步骤2：按F5键运行程序，先单击“读入文件”按钮，接着单击“加密”按钮，然后单击“存结果”按钮保存结果，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
