1、国家二级 VB 机试（上机操作）-试卷 133 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上建立一个名称为 Commandl 的命令按钮数组，含三个命令按钮，它们的 Index 属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 300、800。窗体的标题为“按钮窗口”。运行后的窗体如 3-63 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitlvbp，窗体文件名为 sjtlf
2、rm。 (2)在名称为 Forml 的窗体上画一个名称为 Shal 的形状控件，然后建立一个菜单，标题为“形状”，名称为 shape0，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为 shape1 和 shape2，如图 264 所示，然后编写适当的程序。程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sit2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.0
3、0)2.(1)在考生文件夹中有工程文件 sit3vbp，其中的窗体如图 2127 所示。程序刚运行时，会生成一个有 10 个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮，再单击“查找”按钮，则找出数组中的最大值(或最小值)，并显示在标签 Label2 中。 请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件 sit4vbp。窗体上已有控件，如图 2-128 所示。请在属性窗口中将 Listl 设置为可以多项选择(允许使用 Shift 键或 Ctrl 键进行选择)
4、列表项。要求：双击 List1 中的某一项时，该项目被添加到 L,ist2 中，同时在 List1 中清除该项目。若单击“”按钮，List1 中所订的项目显示在 List2 中(List2 中已有项目不变)，Listl 中的内容不变。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，已给出了所有控件(如图 262 所示)和部分程序。程序运行时，请按以下顺序操作： （分数：2
5、.00）_国家二级 VB 机试（上机操作）-试卷 133 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上建立一个名称为 Commandl 的命令按钮数组，含三个命令按钮，它们的 Index 属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 300、800。窗体的标题为“按钮窗口”。运行后的窗体如 3-63 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitlvbp，窗体文件名为 s
6、jtlfrm。 (2)在名称为 Forml 的窗体上画一个名称为 Shal 的形状控件，然后建立一个菜单，标题为“形状”，名称为 shape0，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为 shape1 和 shape2，如图 264 所示，然后编写适当的程序。程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sit2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：【操作步骤
7、】 步骤 1：新建一个“标准 EXE”工程，如表 336 在窗体中用“复制”和“粘贴”画出控件数组并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 l：新建一个“标准 EXE”工程，在窗体 Form1 中画一个名为 Shal 的形状控件。 步骤2：选择【工具】【菜单编辑器】命令，打开菜单设计器，如表 337 所示，设置建立菜单项。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹中有工程文件 sit3vbp，其中的窗体如图 2127 所示。程序刚运行时，会生成一个有 10 个元素的整型数组。若选中“查找最大值”(或“查找最小值
8、”)单选按钮，再单击“查找”按钮，则找出数组中的最大值(或最小值)，并显示在标签 Label2 中。 请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件 sit4vbp。窗体上已有控件，如图 2-128 所示。请在属性窗口中将 Listl 设置为可以多项选择(允许使用 Shift 键或 Ctrl 键进行选择)列表项。要求：双击 List1 中的某一项时，该项目被添加到 L,ist2 中，同时在 List1 中清除该项目。若单击“”按钮，List1 中所订的项目显示在 List2 中
9、(List2 中已有项目不变)，Listl 中的内容不变。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“一，将问号“?”改为正确的内容。 参考代码： If Optionlvalue=True Then If a(i)=x Then x=a(i) End If ElseIf a(i)解析：三、综合应用题(总题数：1，分数：2.00)3.
10、在考生文件夹下有一个工程文件 sjt5vbp，已给出了所有控件(如图 262 所示)和部分程序。程序运行时，请按以下顺序操作： （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口指定位置编写以下代码： 参考代码： Private Sub Commandl C1iCk() Open”in5dat”For Input As 1 Line Input#1，S Close：#1 TextlText=S End Sub Private Sub Command2 C1ick() Dim i As Integer Dim sS A
11、S String ss=“” For i=1 To Len(S) If isletter(Mid(S，i，1)=True Then If i Mod 2=0 Then If Mid(S，i，1)=”a”Then SS=SS”Z” E1seIf Mid(S，i，1)=”A”Then ss=ss”Z” Else ss=ssChr(Asc(Mid(s，i，1)一 1) End If E1se If Mid(S，i，1)=“Z”Then ss=SS“A” E1seIf Mid(S，i，1)=”Z”Then sS=SS”a” Else ss=ssChr(Asc(Mid(s，i，1)+1) End If End If Else SS=SSMid(s，i，1) End If Next Text2Text=SS End Sub 步骤 2：按键运行程序，先单击“读入文件”按钮，接着单击“加密”按钮，然后单击“存结果”按钮保存结果，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
