1、国家二级 VB 机试（上机操作）-试卷 8 及答案解析(总分：10.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。在名称为 Forml 的窗体上画一个名称为 Ll 的标签，标题为”请确认”；再画两个命令按钮，名称分别为 Cl、C2，标题分别为”是”、”否”，高均为 300、宽均为 800。如图 2-76 所示。请在属性窗口中设置适当属性满足以下要求：窗体标题为”确认”，窗体标题栏上不显示最大化按钮和最小化按钮；在任何情况下，按回车键都相当于单击”是”按钮；按 Esc 键都相当于单击”
2、否”按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 （分数：2.00）_2.在名称为 Forml 的窗体上画一个文本框，名称为 Textl，其宽度为 1000；再画一个滚动条，名称为HSl。其刻度值的范围是 10002000。请编写滚动条的 Change 事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图 2-77 所示。程序中不能使用任何变量，事件过程中只能写一条语句。注意：保存时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2Frm （分数：2.00）_二、简单应
3、用题(总题数：2，分数：4.00)3.在考生文件夹下有一个工程文件 sjt3vbp，窗体上有两个列表框，名称分别为 Listl、List2，在List2 中已经预设了内容；还有两个命令按钮，名称分别为 C1、C2，标题分别为”添加”、”清除”，如图 2-78 所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击”添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击”清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。最后把修
4、改后的文件按原文件名存盘。 （分数：2.00）_4.在考生文件夹下有一个工程文件 sjt4vbp，请在 Forml 窗体上建立一个名称为 Opl 的单选按钮数组，含有三个单选按钮，其标题分别为”10!”、”11 !”、”12 !”，Index 属性分别为 0、1、2；再画一个名称为 C1 的命令按钮，标题为”计算”；画一个名称为 Textl 的文本框，如图 2-79 所示。程序的功能是在选定一个单选按钮并单击”计算”按钮后，可以计算出相应的阶乘值，在 Textl 中显示该阶乘值。请画出上述控件并编写程序。注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击
5、窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)5.在考生文件夹下有一个工程文件 sjt5vbp，其窗体上有一个文本框，名称为 Textl，可以多行显示；有一个名称为 CDl 的通用对话框；还有三个命令按钮，名称分别为 Cl、C2、C3，标题分别为”打开文件”、”转换”、”存盘”，如图 2-80 所示。命令按钮的功能是：”打开文件”：弹出打开文件对话框，默认打开文件的类型为”文本文件”。选择考生文件夹下的 in5txt 文件后，该文件中的内容显示在Textl 中；”转换”：把 Textl 中的所有小写英文字母转换成
6、大写；”存盘”：把 Textl 中的内容存入考生文件夹下的 out5dat 文件中。在窗体中已经给出了部分程序，要求：请去掉程序中的注释符，把程序中的?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。编写”转换”按钮的 Click 事件过程。最后把修改后的文件按原文件名存盘。注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的 in5txt 文件进行转换，并把转换结果通过单击”存盘”按钮存入考生文件夹下的 out5dat 文件中，否则无成绩。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 8 答案解析(总分：10.00，做题时间：90 分钟)一、基本操
7、作题(总题数：2，分数：4.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。在名称为 Forml 的窗体上画一个名称为 Ll 的标签，标题为”请确认”；再画两个命令按钮，名称分别为 Cl、C2，标题分别为”是”、”否”，高均为 300、宽均为 800。如图 2-76 所示。请在属性窗口中设置适当属性满足以下要求：窗体标题为”确认”，窗体标题栏上不显示最大化按钮和最小化按钮；在任何情况下，按回车键都相当于单击”是”按钮；按 Esc 键都相当于单击”否”按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。
8、 （分数：2.00）_正确答案：(正确答案：步骤 1：新建一个”标准 EXE”工程，如表 3-39 在窗体中画出控件并设置其相关属性。 )解析：2.在名称为 Forml 的窗体上画一个文本框，名称为 Textl，其宽度为 1000；再画一个滚动条，名称为HSl。其刻度值的范围是 10002000。请编写滚动条的 Change 事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图 2-77 所示。程序中不能使用任何变量，事件过程中只能写一条语句。注意：保存时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2Frm （分数：2.0
9、0）_正确答案：(正确答案：步骤 1：新建一个”标准 EXE”工程，在窗体 Forml 中加入一个水平滚动条和一个文本框，在属性设置窗口中设置其相关属性，其属性及值如表 3-40 所示。 步骤 2：双击窗体 Forml 上的水平滚动条，打开代码编辑窗口，输入以下代码： 参考代码： private Sub HSl_Chan ge( ) TextlWidth=HS1Value End Sub 步骤 3：按要求将文件保存至考生文件夹中。 )解析：二、简单应用题(总题数：2，分数：4.00)3.在考生文件夹下有一个工程文件 sjt3vbp，窗体上有两个列表框，名称分别为 Listl、List2，在Li
10、st2 中已经预设了内容；还有两个命令按钮，名称分别为 C1、C2，标题分别为”添加”、”清除”，如图 2-78 所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击”添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击”清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开本题对应工程文件 sjt3vbp。 步骤 2：打开代码编辑窗口
11、，去掉程序中的注释符”“，将问号”?”改为正确的内容。 参考代码： While (kList2ListCount) If List2Selected(k) =True Then List2RemoveItem List2ListIndex ListlRemoveItem ListlListIndex)解析：4.在考生文件夹下有一个工程文件 sjt4vbp，请在 Forml 窗体上建立一个名称为 Opl 的单选按钮数组，含有三个单选按钮，其标题分别为”10!”、”11 !”、”12 !”，Index 属性分别为 0、1、2；再画一个名称为 C1 的命令按钮，标题为”计算”；画一个名称为 Text
12、l 的文本框，如图 2-79 所示。程序的功能是在选定一个单选按钮并单击”计算”按钮后，可以计算出相应的阶乘值，在 Textl 中显示该阶乘值。请画出上述控件并编写程序。注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件中的本题工程文件 sjt4vbp，如表 3-41 在窗体中用”复制”和”粘贴”命令画出包含三个元素的单选按钮数组、一个文本框和一个命令按钮并设置属性。 )解析：三、综合应用题(总题数：1，分数：2.00)5.在考
13、生文件夹下有一个工程文件 sjt5vbp，其窗体上有一个文本框，名称为 Textl，可以多行显示；有一个名称为 CDl 的通用对话框；还有三个命令按钮，名称分别为 Cl、C2、C3，标题分别为”打开文件”、”转换”、”存盘”，如图 2-80 所示。命令按钮的功能是：”打开文件”：弹出打开文件对话框，默认打开文件的类型为”文本文件”。选择考生文件夹下的 in5txt 文件后，该文件中的内容显示在Textl 中；”转换”：把 Textl 中的所有小写英文字母转换成大写；”存盘”：把 Textl 中的内容存入考生文件夹下的 out5dat 文件中。在窗体中已经给出了部分程序，要求：请去掉程序中的注释
14、符，把程序中的?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。编写”转换”按钮的 Click 事件过程。最后把修改后的文件按原文件名存盘。注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的 in5txt 文件进行转换，并把转换结果通过单击”存盘”按钮存入考生文件夹下的 out5dat 文件中，否则无成绩。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件中的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符”“，将问号”?”改为正确的内容。 参考代码： CDlFilterIndex=2 TextlText=a CDlAction=2
15、 步骤 2：按指定位置编写”转换”按钮的单击事件过程。 参考代码： Private Sub C2_Click( ) Dim a As Stringt b As Stringl c As Stringf k As Integer，n As Integer a=TextlText b=“ n=Asc(“a”)-Asc(“A”) For k=1 To Len(a) c=Mid$(a，k，1) If c=“a”And c=“z”Then c=String(1，Asc(c)-n) End If b=b+cC Next k TextlText=b End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按F5键运行程序，先单击”打开文件”按钮，接着单击”转换”按钮，最后单击”存盘”按钮。)解析：
