首页 - 网校 - 题库 - 直播 - 雄鹰 - 团购 - 书城 - 模考 - 论坛 - 导航 - 510 -
首页考试吧网校题库直播雄鹰510团购书城模考论坛实用文档作文大全宝宝起名
2014中考
法律硕士
2014高考
MBA考试
2014考研
MPA考试
在职研
中科院
考研培训 自学考试 成人高考
四 六 级
GRE考试
攻硕英语
零起点日语
职称英语
口译笔译
申硕英语
零起点韩语
商务英语
日语等级
GMAT考试
公共英语
职称日语
新概念英语
专四专八
博思考试
零起点英语
托福考试
托业考试
零起点法语
雅思考试
成人英语三级
零起点德语
等级考试
华为认证
水平考试
Java认证
职称计算机 微软认证 思科认证 Oracle认证 Linux认证
公 务 员
导游考试
物 流 师
出版资格
单 证 员
报 关 员
外 销 员
价格鉴证
网络编辑
驾 驶 员
报检员
法律顾问
管理咨询
企业培训
社会工作者
银行从业
教师资格
营养师
保险从业
普 通 话
证券从业
跟 单 员
秘书资格
电子商务
期货考试
国际商务
心理咨询
营 销 师
司法考试
国际货运代理人
人力资源管理师
广告师职业水平
卫生资格 执业医师 执业药师 执业护士
会计从业资格
基金从业资格
统计从业资格
经济师
精算师
统计师
会计职称
法律顾问
ACCA考试
注册会计师
资产评估师
高级经济师
审计师考试
高级会计师
注册税务师
国际内审师
理财规划师
美国注册会计师
一级建造师
安全工程师
设备监理师
公路监理师
公路造价师
二级建造师
招标师考试
物业管理师
电气工程师
建筑师考试
造价工程师
注册测绘师
质量工程师
岩土工程师
注册给排水
造价员考试
注册计量师
环保工程师
化工工程师
暖通工程师
咨询工程师
结构工程师
城市规划师
材料员考试
监理工程师
房地产估价
土地估价师
安全评价师
房地产经纪人
投资项目管理师
环境影响评价师
土地登记代理人
宝宝起名
缤纷校园
实用文档
入党申请
英语学习
思想汇报
作文大全
工作总结
求职招聘 论文下载 直播课堂
您现在的位置: 考试吧 > 计算机等级考试 > 计算机二级考试 > VB > 模拟试题 > 正文

2014年计算机二级考试VB专家预测试卷及答案3

来源:考试吧 2014-3-11 14:01:43 考试吧:中国教育培训第一门户 模拟考场
2014年计算机二级考试VB专家预测试卷及答案提供给各位考生备考,更多考试资料请持续关注考试吧计算机等级考试频道!
第 1 页:单选题
第 5 页:操作题
第 7 页:参考答案

  四、综合应用题

  文本框显示的内容通过Text属性设置;按钮的标题通过Caption属性设置,单击命令按钮触发Click事

  件。本题涉及文件的操作,读入顺序文件以顺序的方式打开,用”Input#”语句读取数据。另外需要注意的是,对文件操作结束后,一定要关闭文件。

  ①建立界面并设置控件属性。程序中用到的控件及其属性如下表所示:

  

  ②打开工埕资源管理器,在其空白处右键添加模块pr09.bas(此文件已在考生文件夹里),模块代码

  如下:

  Option Explicit

  Sub putdata(ByVal a As Long)

  Dim sFile As String

  sFile="\result.txt"

  ()pen App.Path&sFile For Output As#1

  Print#1,a;

  Close#1

  End Sub

  ③打开工程资源管理器,右击窗体,选择查看代码项,在弹出的代码窗口输入代码如下:

  Dim i(1 To 100)As Integer

  Private Sub Cmd1 Click()

  Dim j As Integer

  j=0

  Open App.Path&"\in.txt"For Input As#1

  For j=1 To 100

  Input#1,i(j)

  Next j

  Close#1

  For j=1 To 100

  Text1.Text=Text1.Text&i(j)&Space(5)

  Next j

  End Sub

  Private Sub Cmd2 Click()

  Dim sum As Long

  Dim j.As Integer

  sum=0

  Text1.Text=""

  For j=1 To 100

  If i(j)>=400 And i(j)<800 Then

  sum=sum+i(i)

  End If

  Next j

  Text1.Text=Text 1.Text&sum&Spaca(5)

  putdata sum

  End Sub

  ’标准模块代码

  Option Explicit

  Sub putdata(ByVal a As Long)

  Dim sFile As String

  sFile="\result.txt"

  Open App.Path&sFiie For Output As#1

  Print#1,a;

  Close#1

  End Sub

 

 

 





 

 

 



 

上一页  1 2 3 4 5 6 7 8 9 10 11  下一页

  相关推荐:

  2014年计算机二级C++考试精选试题及答案汇总

  考试吧考后首发2014年3月计算机等考真题及答案通知热点文章

  考试吧推荐:2014年3月计算机二级考前冲刺备考专题

文章搜索
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。
Copyright © 2004- 考试吧计算机等级考试网 All Rights Reserved 
中国科学院研究生院权威支持(北京) 电 话:010-62168566 传 真:010-62192699