1 / 51
文档名称:

高级语言程序设计VB.ppt

格式:ppt   页数:51
下载后只包含 1 个 PPT 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

高级语言程序设计VB.ppt

上传人:一文千金 2012/2/23 文件大小:0 KB

下载得到文件列表

高级语言程序设计VB.ppt

文档介绍

文档介绍:1
高级语言程序设计VB
教师:刘丽霞
第7周
2
第三章数组
数组的概念
数组声明及初始化
重定义数组大小
数组的基本操作和排序
结构类型及其数组
综合应用
本章目录
3
第一章总结
变量:在程序运行中其存储的值可以改变
值类型变量、引用类型变量
变量声明 Dim 变量名[As 类型][=初始值]
运算符算术运算符、字符串运算符、关系运算符和逻辑运算符
名称空间导入 Imports 名称空间
数学函数使用 Imports
Shell函数调用各种应用程序
本章目录
4
第二章总结
顺序结构
选择结构
循环结构
其它辅助控制语句
程序调试
5
数组的概念
1. 引例
求100个学生的平均成绩,并统计高于平均分的人数。用简单变量和循环,求平均成绩程序段如下:
本章目录
aver = 0
For i = 1 To 100
mark = InputBox("输入学生成绩")
aver = aver + mark
Next i
aver = aver / 100
MsgBox (aver)
6
问题
(1)mark只能放一个学生的成绩,无法统计高于平均分的人数。
(2)若用简单变量保存100个学生的成绩,则需定义100个变量和使用100句输入语句。由此引入了数组。
7
用数组解决问题的程序如下:
Dim mark(99) As Integer ' 声明数组mark
Dim aver!, overn%, i%
aver = 0
For i = 0 To 99 ' 输入成绩,求分数和
mark(i) = InputBox("输入学生的成绩")
aver = aver + mark(i)
Next i
aver = aver / 100 ' 求100人的平均分
overn = 0
For i = 0 To 99 ' 统计高于平均分的人数
If mark(i) > aver Then overn = overn + 1
Next i
MsgBox ("平均分:" & aver & "高于平均分人数:" & overn)
本章目录
mark(99)
mark(98)

mark(2)
mark(1)
mark(0)
8
数组: 不是一种数据类型,而是一组相同类型的变量的集合。
作用:用一个数组名代表逻辑上相关的一批数据,用下标表示该数组中的各个元素,和循环语句结合使用,使得程序书写简洁。
使用:必须先声明后使用
本章目录
数组的概念
9
Dim mark(99) As Integer
声明了一个一维定长整型数组mark ,共有100个元素,下标范围为0 To 99;mark数组的各元素是mark(0),mark(1),…,mark(99);mark(i)表示由下标i的值决定是哪一个元素。mark数组内存分配如下:
mark(99)
mark(98)

mark(2)
mark(1)
mark(0)
每个数组元素有一个唯一的顺序号,下标不能超出数组声明时的上、下界范围,否则会产生“索引超出了数组界限”。
数组元素的使用规则与同类型的简单变量相同。
本章目录
10

一维数组
Dim 数组名(下标上界) [As 类型]
下标上界为常数、已有值的表达式或变量。
下标下界为0。一维数组的大小为:下标上界+1。
例 Dim a(10) As Integer,Dim st(5) As String
声明了一维整型数组a、有11个元素;下标的范围0~10。若在程序中使用a(11),则系统会显示“索引超出了数组界限”。
st是一维字符串类型数组、有6个元素;下标的范围0~5。
本章目录

最近更新

2025年重庆医药高等专科学校马克思主义基本原.. 13页

2025年首都医科大学马克思主义基本原理概论期.. 13页

2026年主管中药师考试备考题100道及参考答案(.. 38页

2026年云南城市建设职业学院单招综合素质考试.. 43页

2026年中医住培带教师资理论考核题库100道【模.. 39页

2026年医学微生物学习题集含答案【巩固】 41页

2026年吐鲁番职业技术学院单招职业适应性测试.. 46页

2026年主管中药师考试备考题100道附参考答案【.. 38页

2026年医学微生物学习题集【夺分金卷】 40页

2026年宪法知识竞赛试题库100道附参考答案(考.. 40页

2026年河南省鹤壁市单招职业倾向性考试模拟测.. 45页

2026年网络安全知识竞赛题库及答案(网校专用.. 39页

新安全生产法知识竞赛试题库附答案(夺分金卷.. 43页

小学历史与文化知识竞赛题库100道及答案(最新.. 37页

小学历史与文化知识竞赛题库100道附参考答案(.. 37页

新安全生产法知识竞赛试题库含答案(培优a卷).. 43页

新安全生产法知识竞赛试题库附答案【综合卷】.. 43页

最新煤气操作证考试题100道含完整答案【有一套.. 39页

最新煤气操作证考试题100道附参考答案(轻巧夺.. 39页

最新煤气操作证考试题100道带答案(满分必刷).. 39页

我州“双节”期间发送旅客127万人次 6页

人工智能技术在高校艺术设计专业数字化教学中.. 6页

2025年印刷机项目建议书 49页

2025年冷却设备项目合作计划书 69页

2025年分离纯化控制系统合作协议书 74页

2026年安徽城市管理职业学院单招职业适应性考.. 37页

2025年湖南省建设工程工程量清单计价办法(新).. 51页

2025年江西信息应用职业技术学院单招职业适应.. 127页

2025年江西信息应用职业技术学院单招职业倾向.. 73页

喝酒给老婆的检讨书 6页