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

加入VIP,免费下载
 

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

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

下载须知

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

版权提示 | 免责声明

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

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

1、国家二级 VB机试(上机操作)模拟试卷 161及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Shape1的圆角矩形,高、宽分别为1000、 2000。请利用属性窗口设置适当的属性以满足下列要求: 圆角矩形中填满绿色 (颜色值为: H0000FF00或 HFFOO )。 窗体的标题为 “圆角矩形 ”,字体为 “仿宋 _CB2312”。 程序运行后的窗体如图所示。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt1 vbp,窗体文件名保存为 sjt1 frm。(2)考生文 件夹下有一个工程文件sjt2 vbp。窗体中含有除计时器外的其他控件,还有一

2、个过程 sub1,其功能是按照 Text1中的通话时间计算通话费,并将其显示在 Text2中。 程序运行时,单击“通话开始 ”按钮,则在 Text1中累加通话时间 (每隔 1秒,文本框中的数加 1),单击 “通话结束 ”按钮,则停止通话时间的累加;单击 “计算通话费 ”按钮,则调用过程sub1。 要求: 在窗体上画一个计时器,如图所示,并通过属性窗口设置适当属性。 编写三个按钮的 Click事件过程。 编写计时器的事件过程。 注意:要求程序中不得使用变 最,每个事件过程中只能写一条语句, “计算通话费 ”按钮的事件过程中只允许凋用过程 sub1。不得修改已经存在的程序和控件属性,最后把文件按原

3、文件名存盘。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的 ?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp,窗体中有一个矩形和一个圆,程序运行时,单击 “开始 ”按钮,圆可 以横向或纵向运行 (通过选择单选按钮米决定 ),碰到矩形的边时,则向其相反方向运动,单击 “停止 ”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运动方向。 已经给出了所有控件和程序,但程序不完整,请去掉程序中的注

4、释符把程序中的 ?改为正确的内容。 注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序运行时,单击 “装入数据 ”按钮,则从考生文件夹下的 in5 txt文件中读入所有城市名称和距离,城市名称按顺序添加 到列表框 List1中,距离放到数组 a中;当选中列表框中的一个城市时,它的距离就在 Text1中显示,如图所示;此时,单击 “计算运费 ”按钮,则计算到该城市的每吨运费 (结果取整,不四舍五入 ),并在 Text2中显示。 每吨运费的计算方法是:距离 折扣 单价。 其中,单价为 0 3。 折扣为

5、距离 500 折扣为 1 500距离1000 折扣为 0 98 1000距离 1500 折扣为 0 95 1500距离 2000 折扣为 0 92 2000距离 折扣为 0 9 单击 “保存 ”按钮,则把距离和每吨运费存到文件 out5 txtt扣。 已经给出了所有控件和部分程序,要求: 去掉程序中的注释符,把程序中的 ?改为正确的内容。 编写 “计算运费 ”按钮的 Click事件过程。 编写列表框的Click事件过程。 注意:不得修改已经存在的程序;在退出程序之前,必须至少计算一次运费,且必须使用 “保存 ”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。 国家二级 VB机试(上机操

6、作)模拟试卷 161答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1:建立界而,并设置控件的属性。程序中用到的控件及属性见表 3 58。步骤 2:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1:建立界面,设置计时器的 Interval属性为 1000。 Enabled属性设置为 False。 步骤 2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 Private Sub Commandl_Click() Timer1 Enabled True通话开始, Timer生效 End Sub Private Sub Command

7、2_Click() Timer1 Enabled False通话结束 Timer失效 End Sub Private Sub Command3_Click() Call sub1单击 “计算通话费 “按钮。调用 sub1 End Sub Private Sub Timer1_Timer() Text1 Text Text1 Text 1将 Text1中的数字间隔自增 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1:打丌本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。

8、 参考答案 Private Sub Form_Click() For i 1 To 5输入 5行 For j 1 To 6 i循环实现输入空格,每行依次减少一个空格 Print“; Next j For j i To 2*i 1图像每行 *的个数 Print“*“: Next j Print Next i For i 1 To 4 For j 1 To i 1同问题 1 Print“; Next j For j 1 To(9 2*i)同问题 2 Print“*“; Next j Print Next i End Sub 程序结束 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操

9、作步骤】 步骤 1:打开:本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”, 将问号改为正确的内容。 参考答案 Dim d As Integer Private Sub Commandl C1ick() Timerl Enabled True当单击 “开始 “按钮时, Timer生效 End Sub Private Sub Command2 C1ick() Timer1 Enabled False当单击 “停止 “按钮时, Timer失效 End Sub Private Sub Form_Load() d 1 End Sub Private Sub Timer1 Timer

10、() If Optionl Then判断 Option1是否被单击 Shape2 Top Shape2 Top d*50实现圆垂直移动 If Shape2 Top Shape1 Top orShape2 Top Shape2 WidthShape1 Top Shape1 Height Then判断 Shape2与 Shape1的位置 d d当圃移出 Shape1时,改变移动方向 End If ElseIf Option2 Then Shape2 Left Shape2 Left d*50实现水平移动 If Shape2 Left Shape1 Left Or Shape2 Left Shape

11、2 WidthShape1 Left Shape1 Width Then d d当圃移出 Shape1时,则改变移动方向 End If End If End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1:打开本题工程文件 。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容,并编写相应的代码。 参考答案 Dim a(10)As Integer, n As Integer Private Sub Cornmand1 Click() Open App Path “ in5 txt“For Input

12、 As #1 While Not EOF(1) n n 1下标循环加 1 Input#1, ch$, a(n)将文件依次读入 ch, a(n)中 List1 Addltem ch将城市名添加到 List1中 Wend Close #1 End Sub Private Sub Cornmand2_Click() 需要考生编写的内容 b Val(Text1) Tf b 0 And b 500 Then判断 b的范围 m 0 3*b ElseIf b 500 And b 1000 Then m 0 3*b*0 98 ElseIf b 1000 And b 1500 Then m 0 3*b*0 95 ElseIf b 1500 And b 2000 Then m 0 3*b*0 92 ElseIf b 2000 Then m 0 3*b*0 9 End If Text2 int(m) End Sub Private Sub List1_Click() 需要考生编写的内容 Text1 a(List1 ListIndex 1) 通过 List1 ListIndex 1采确定 所选城市对应的距离 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1