1、国家二级 VB 机试（上机操作）-试卷 121 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画两个文本框，其名称分别为 Text1 和 Text2，它们的高、宽分别为 300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求：Text2 可以显示多行文本，且有垂直和水平两个滚动条；运行时在 Text1 中输入的字符都显示为“*”。运行后的窗体如图 3-148 所示。注意：存盘时
2、必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。(2)在名称为 Forml 的窗体上画一个图像框，名称为 Imagel，其高、宽分别为 1900、1700，通过属性窗口把考生文件夹下的图像文件 piclbmp 装入图像框；再画两个命令按钮，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图 3149 所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图 31
3、00 所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下的工程文件 sit5vbp 中有一个初始内容为空的文本框 Text1，两个标题分别是“读数据”和“计算”的命令按钮；请画一个标题为“各行平均数的最大值为”的标签 Label2，再画一个初始内容为空的文本框 Tex
4、t2，如图 397 所示。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 121 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画两个文本框，其名称分别为 Text1 和 Text2，它们的高、宽分别为 300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求：Text2 可以显示多行文本，且有垂直和水平两个滚动条；运行时在 Text1 中输入的字符都显示为“*”。运
5、行后的窗体如图 3-148 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。(2)在名称为 Forml 的窗体上画一个图像框，名称为 Imagel，其高、宽分别为 1900、1700，通过属性窗口把考生文件夹下的图像文件 piclbmp 装入图像框；再画两个命令按钮，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图 3149 所示。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Forml 中按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中
6、。 第 2 小题 【操作步骤】 步骤1：新建一个“标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的 Click 事件过程。 参考代码： prirate Sub C1 Click() ImagelWidth=ImagelWidth+100 ImagelHeight=ImagelHeight+1 00 End Sub Private Sub C2 C1ick() ImagelWidth=ImagelWidth 一 100 ImagelHeight=ImagelHeight 一 100 End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二
7、、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击“确定”按钮，则对文本框中的文字做相应的设置，如图 3100 所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】
8、 步骤 1：打开考生文件下的本题工程文件 sjt3vbp。 步骤 2：打开代码编辑窗口，编写“确定”按钮的 Click 事件过程，代码如下。 参考代码： Private Sub Commandl C1ick() If OplValue Then TextlFontName=OplCaption E1se If Op2Value Then Text 1FontName=Op2Caption End If If ChlValue=1 Then TextlFontUnderline=True Else Text1FontUnderline=False End If If Ch2Value=1 The
9、n Text1FontItalic=True Else Text1FontItalic=False End If End Sub 步骤 3：按键运行程序，选中一个单选按钮和至少一个复选框，并单击“确定”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“。”，将问号“?”改为正确的内容。 参考代码： Private Sub Commandl Click() Dim n As Long CDlFileName=“” CDIFilter=”
10、所有文件*文本文件 *txt Word 文档*doc” CD1FiiterIndex=2 CD1Action=1 If CDlFileName“”Then Open CDIFileName For Input As 拌 1 n=LOF(1) Text1=Input$(n，#1) Close#1 End If End Sub 步骤2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下的工程文件 sit5vbp 中有一个初始内容为空的文本框 Text1，两个标题分别是“读数据”和“计算”的命令按钮；请画一个标题为“各行平均数的最大值为”的标签 Label2，再画一个初始内容为空的文本框 Text2，如图 397 所示。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp， 在窗体Forml 中画一个标签和一个文本框，其属性及值如表 454 所示。 )解析：
