1、国家二级 VB机试(上机操作)模拟试卷 91及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Picturel的图片框 (PictureBox),高、宽均为1000。在图片框内再画一个有边框的名称为 Imagel的图像框 (Jmage)。并通过属性窗口把考生目录下的图标文件 POINTll(香蕉图标 )装入图像框 Imagel中,如图3 116所示。 注意:存盘时必须存放在考生文件灾下,工程文件名为sitl vbp,窗体文件名为 sjtl frm。 (2)在名称为 Forml的
2、窗体上画一个名称为Command1、标题为 “保存文件 ”的命令按钮,再画一个名称为 CommonDialogl的通用对话框。要求: 通过属性窗口设置适当的属性,使得运行时对话框的标题为“保存文件 ”,且默认文件名为 out2; 运行时单击 “保存文件 ”按钮,则以 “保存对话框 ”方式打开该通用对话框。如图 3 117所示。注意:要求程序中不能使用变量,每个事件过程中只能写一条语句。保存时必须存放在考生文件灾下,工程文件名为 sit2 vbp,窗体文件名为 sit2 f m。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sit3 vbp,窗体上有一个圆和一条直线 (直线的名称为 L
3、inel)构成一个钟表的图案;有两个命令按钮,名称分别为 Command1、Command2,标题分别为 “开始 ”、 “停止 ”;还有一个名为 Timer1的计时器。程序运行时,钟表指针不动,单击 “开始 ”按钮,则钟表上的指针 (即 Lfinel)开始顺时针旋转 (每秒转 6,一分钟转一圈 );单击 “停止 ”按钮,则指针停止旋转。运行时的窗体如图 3 80所示。 请设置计时器的适当属性,使得每秒激活计时器的 Timer事件一次,并编写两个按钮的 Click事件过程。文件中已经给出了所有控件和部分程序,不得修改已有程序和其他控件的属性;编写的事件过程中不得使用变量,且只能写一条语句。最后把
4、修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp,窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时,在 Textl中输入若干个大写和小写字母,并选中一个单选按钮,再单击 “转换 ”按钮,则按选中的单选按钮的标题进行转换,结果放入Text2(如图 3 81所示 )。在给出的窗体文件中已经给出了全部控件,但程序不 完整,要求:去掉程序中的注释符,把程序中的 ?改为正确的内容。注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp,已给出了所有控件 (如图 3 62所示 )和部分程
5、序。程序运行时,请按以下顺序操作: 1)单击 “读入文件 ”按钮,把考生目录下的文件 in5 dat中的内容读入内存并显示在上面的文本框 (Text1)中; 2)单击“加密 ”按钮,则可对 Textl中的内容进行加密并显示在下面的文本框 (Text2)中。 3)单击 “存结果 ”按钮则把 Text2中的内容存到 out5 dat文件中。加密规则:对于第奇数个字符,若是字母,则把它变为它后面的字符 (若为 “Z”则变为 “A”),不是字母则不变;对于第偶数个字符,若是字母,则把它变为它前面的字符 (若为 “A”则变为“Z”),不是字母则不变。大小写字母都遵循此规则。例如:若原有的字符是:Abba
6、ZGHaMnnKYzx则加密后的字符是: BaczAFGb-NmoiXaw已经给出 “存结果 ”按钮的 Click事件过程和函数 isletter,函数 isletter(aAsString)判断变量 a中是否为一个字母,若是则返 回 True,否则返回 False,可以直接调用。请编写 “读入文件 ”按钮和 “加密 ”按钮的 Click事件过程,以实现上述功能。 (in5 dat文件中只含英文单词和空格,不分段落和行 )注意:考生不得修改已经存在的程序,必须用 “存结果 ”按钮存储加密结果,否则无成绩。最后,按原文件名把程序存盘。国家二级 VB机试(上机操作)模拟试卷 91答案与解析 一、基
7、本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1:新建一个 “标准 EXE”工程,按要求画出控件并设置属性。 步骤 2:按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1:新建一个 “标准 EXE”工程,选择【工程】 【部件】命令,在弹出的 “部件 ”对话框的列表中选中 “MicroSoftCommon Dialog Control6 0”项目,单击 “确定 “按钮。 步骤 2: 在窗体 Forml上画一个通用对话框和一个命令按钮并设置相关属性。 步骤 3:打开的代码编辑窗口中,编写命令按钮的单击事件过程。 Private Sub Commandl Click(
8、) CommonDialogl Action=2 或 CommonDialogl showSave End Sub 步骤 4:按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1:打开考生文件夹中的本题工程文件 sjt3 vbp,在属性设置窗口,设置计时器的 Interval属性值为 1000, Enabled属性值为 False。 步骤 2:在代码编辑窗口,编写 “开始 ”和 “停止 ”按钮的单击事件过程。 参考代码: Private Sub Commandl Click() Timer1 Enabled=True End Sub Priva
9、te Sub Command2 Click() Timerl Enabled=False End Sub 步骤 3:按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1:打开考生文件夹中的本题工程文件 sjt4 vbp,在代码编辑窗口,去掉程序中的注释符 “”,将问号 “?”改为正确的内容。 参考代码: a=Mid$(Text1 Text, k, 1) ch=ch+Lease(a) Text2=Ch 步骤 2:按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步 骤】 步骤 1:打开考生文件夹中的本题工程文件 sit5 vbp,在代码编辑窗口指定位置编写
10、以下代码: 参考代码: Private Sub Commandl Click() Open“in5 dat”For Input As 1 Line Input#1, S Close#1 Text1 Text=s End Sub Private Sub Command2 C1ick() Dim i As Intecjer Dim ss As String ss=“” For i=1 To Len(s) If isletter(Mid(s, i, 1)=True Then If i MOd 2=0 Then If Mid(s, i, 1)=“a”Then ss= ss “Z” Else Tf Mi
11、d(s, i, 1)=“A”Then SS= SS “Z” Else ss=ss Chr(Asc(Mid(s, i, 1)一 1) End If Else If Mid(S, i, 1)=”Z”Then ss= ss “A” E1sel-f Mid(s, i, 1) = “Z”Then ss=ss & “a” Else ss=ss&Chr(Asc(Mid(s, i, 1)+1) End If End If Else ss=ss Mid(s, i, 1) End If Next Text2 Text=ss End Sub 步骤 2:按 键运行程序,先单击 “读入文件 ”按钮,接着单击 “加密 ”按钮,然后单击 “存结果 ”按钮保存结果,最后单击窗体右上角的关闭按钮结束程序。 步骤 3:按要求将文件保存至考生文件夹中。
copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1