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:按要求将文件保存在考生文件夹中。)解析: