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 所示。 )解析: