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

2015年9月计算机二级《VB》考前冲刺试卷(3)

来源:考试吧 2015-09-16 12:39:24 考试吧:中国教育培训第一门户 模拟考场
考试吧整理“2015年9月计算机二级《VB》考前冲刺试卷(3)”供考生参考,更多计算机等级考试相关信息请关注考试吧计算机等级考试网。
第 1 页:基本操作题
第 3 页:简单应用题
第 5 页:综合应用题

  6打开考生文件夹下的sj5.vbp,在名称为Form1的窗体上建立两个命令按钮,名称分别为Command1和Command2,命令按钮上分别显示"输入"和"结果"(如图47-7所示)。程序运行时单击"输入"按钮,输入6个数放入数组a中,单击"结果"则把数组a中的数值按照降序排列。请在有"?"号的地方填正确内容,然后删除"?"及代码前的所有注释符(即'号)但不能修改其他部分。

  

  

  图47-7

  注意:存盘时不得改变文件名和文件夹。

  参考解析:

  本题重点考查"冒泡法"数据排序方法。"冒泡法"是一种重要的数据排序算法,其思想是按顺序让一个数列中的每一个数都与其之后的所有的数逐一进行比较,如果该数小于其后面的数,则把这两个位置的数进行交换。依此类推,即可实现所有数的降序排列。

  根据题意,将两个命令按钮添加到窗体中,名称分别为Command1和Command2、Caption属性分别为"输入"和"结果"。双击Command1进入代码窗口,编写如下代码:

  Dim a(6) As Integer

  Dim str As String

  Dim tmp As String

  Dim i As Integer

  Private Sub Command1_Click()

  str = "排序前:"

  For i = 1 To 6

  a(i) = Val(InputBox("请输入:")) '输入6个数到数组中

  tmp = a(i)

  str = str + tmp + " " '将数组中的数放到字符串中

  Next i

  Print str '在窗口中显示数组

  End Sub

  Private Sub Command2_Click()

  str = "排序后:"

  For i = 1 To 6 '降序排列

  temp = a(i)

  For j = 1 To i

  If a(j) <= temp Then '读取的数据比原位置的数据小则偏移

  For k = i To j + 1 Step -1

  a(k) = a(k - 1) '数据向后偏移一个

  Next k

  a(j) = temp

  Exit For

  End If

  Next j

  Next i

  For i = 1 To 6

  tmp = a(i) '将排序后的数组放入字符串中

  str = str + tmp + " "

  Next i

  Print str '在窗口中显示排序后的结果

  End Sub

  单击按钮运行程序,并按要求保存。

上一页  1 2 3 4 5 6 

  相关推荐:

  2015年计算机二级考试《VB》考前练习题汇总

  2015年计算机二级考试《VB》考前预测试卷汇总

  2015计算机二级考试《VB》模拟练习题及解析汇总

文章搜索
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。
Copyright © 2004- 考试吧计算机等级考试网 All Rights Reserved 
中国科学院研究生院权威支持(北京)
在线模拟试题
考证通关杀器
考试最新资讯
一次通关技巧