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

2012年计算机等级考试二级VB重点知识(十一)

来源:考试吧Exam8.com) 2012-6-27 11:04:28 考试吧:中国教育培训第一门户 模拟考场

  ★重点掌握结构程序设计的方法和思想;

  ★理解和掌握VB中常用算法的思想和设计方法;

  一、计数、求和、求阶乘等简单算法

  此类问题都要使用循环,要注意根据问题确定循环变量的初值、终值或结束条件,更要注意用来表示计数、和、阶乘的变量的初值。

  例:用随机函数产生100个[0,99]范围内的随机整数,统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数并打印出来。

  本题使用数组来处理,用数组a(1 to 100)存放产生的确100个随机整数,数组x(1 to 10)来存放个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数。即个位是1的个数存放在x(1)中,个位是2的个数存放在x(2)中,……个位是0的个数存放在x(10)。

  将程序编写在一个GetTJput过程中,代码如下:

  Public Sub GetTJput()

  Dim a(1 To 100) As Integer

  Dim x(1 To 10) As Integer

  Dim i As Integer, p As Integer

  '产生100个[0,99]范围内的随机整数,每行10个打印出来

  For i = 1 To 100

  a(i) = Int(Rnd * 100)

  If a(i) < 10 Then

  Form1.Print Space(2); a(i);

  Else

  Form1.Print Space(1); a(i);

  End If

  If i Mod 10 = 0 Then Form1.Print

  Next i

  '统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数,并将统计结果保存在数组x(1),x(2),…,x(10)中,将统计结果打印出来

  For i = 1 To 100

  p = a(i) Mod 10 ' 求个位上的数字

  If p = 0 Then p = 10

  x(p) = x(p) + 1

  Next i

  Form1.Print "统计结果"

  For i = 1 To 10

  p = i

  If i = 10 Then p = 0

  Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个"

  Next i

  End Sub

1 2 3 4 5 6 7 8 下一页

  相关推荐:

  2012年下半年计算机等级考试报名时间及入口汇总

  计算机等级考试三级PC技术过关心得技巧

  2012年3月计算机二级考试真题汇总

文章搜索
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。