ImageVerifierCode 换一换
格式:DOC , 页数:6 ,大小:61KB ,
资源ID:499935      下载积分:2000 积分
快捷下载
登录下载
邮箱/手机:
温馨提示:
如需开发票,请勿充值!快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝扫码支付 微信扫码支付   
注意:如需开发票,请勿充值!
验证码:   换一换

加入VIP,免费下载
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【http://www.mydoc123.com/d-499935.html】到电脑端继续下载(重复下载不扣费)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录  

下载须知

1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。
2: 试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
3: 文件的所有权益归上传用户所有。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 本站仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

版权提示 | 免责声明

本文([计算机类试卷]国家二级VB机试(上机操作)模拟试卷91及答案与解析.doc)为本站会员(刘芸)主动上传,麦多课文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知麦多课文库(发送邮件至master@mydoc123.com或直接QQ联系客服),我们立即给予删除!

[计算机类试卷]国家二级VB机试(上机操作)模拟试卷91及答案与解析.doc

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