1、国家二级 VB 机试（上机操作）-试卷 122 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)住名称为 Forml 的窗体上画两个文本框，其名称分别为 Text1 和 Text2，它们的高、宽分别为 300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求： Text2 可以显示多行文本，且有垂直和水平两个滚动条； 运行时在 Text1 中输入的字符都显示为“*”。 运行后的窗体如图 2148 所示。注意：
2、存盘时必须存放在考生文件夹下，上程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Forml 的窗体卜画一个图像框，名称为 Imagel，其高、宽分别为 1 900、1700，通过属性窗口把考生文件火下的图像文件 piclbmp 装入图像框；再画两个命令按钮，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图 2-149 所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置
3、如图 2100 所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按饥和至少一个复选框，并单击“确定”按钮：必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个上程文件 sit5vbp，相应的窗体文件为 sit5frm，此外还有一个名为dataintxt 的文本文件，其内容如下： 3243765828129857314253647586971324
4、3546576879805937 程序运行后单击窗体，将把文件 dataintxt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图 272 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。（分数：2.00）_国家二级 VB 机试（上机操作）-试卷 122 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)住名称为 Fo
5、rml 的窗体上画两个文本框，其名称分别为 Text1 和 Text2，它们的高、宽分别为 300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求： Text2 可以显示多行文本，且有垂直和水平两个滚动条； 运行时在 Text1 中输入的字符都显示为“*”。 运行后的窗体如图 2148 所示。注意：存盘时必须存放在考生文件夹下，上程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Forml 的窗体卜画一个图像框，名称为 Imagel，其高、宽分别为 1 900、1700，通过属性窗口把考生文件火下的图像文件 piclb
6、mp 装入图像框；再画两个命令按钮，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图 2-149 所示。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工柙，在窗体 Form1 中画两个文本框，并分别设置它们的相关属性，其属性及值如表 379 所示。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 380 在窗体中画出控件并设置其相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能
7、是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图 2100 所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按饥和至少一个复选框，并单击“确定”按钮：必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sit3vbp。 步骤 2：打开代码编辑窗口，编写“确定”按钮的
8、 Click 事件过程，代码如下。 参考代码： Private Sub CommandlC1ick() If OplValue Then TextlFontName=OplCaption E1seI f Op2Value Then TextlFontName=Op2Caption End If If ChlValue=1 Then TextlFontUnderline=True Else TextlFontUnderiime=False End If If Ch2Value=1 Then TextlFontItal iC=True E1Se TextlFontItaliC=False End
9、If End Sub 步骤 3：按键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 【特别提示】文本框的 FontUnderline 属性值和 Fontltalic 属件值一设置为 True，将始终有效，直至将该属性值设置为 False。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Private Sub CommandlClick() Dim n As Long CD1F
10、ileName=” CD1Filter=所有文件|*|文本文件|*txt|Word 丈档|*doc” CD1FilterIndex=2 CD1Action=1 If CD1FileName”Then Open CDIFileName For Input As# n=LOF(1) Textl=Inputs(n，#1) ciose#1 End If End Sub 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个上程文件 sit5vbp，相应的窗体文件为 sit5frm，此外还有一个名为dataintxt 的文本文件，其内容如下
11、 32437658281298573142536475869713243546576879805937 程序运行后单击窗体，将把文件 dataintxt 中的数据输入到二维数组 Mat 中，在窗体上按 5 行、5 列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图 272 所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题对应工程文件 sit5vbp。 步骤 2：打开代码编辑窗口，去掉稃序中的汴释符“”，将问号“?”改为正确的内容。 参考代码： Dim Mat (M， N) As Integer Open App.Path”datantxt”For Input As：#1 Input#，Mat(i，j) Nat(i，4)=t 步骤 3：按要求将文件保存在考生文件夹中。)解析：
