VB课件5
VB程序设计(第2版)教学课件5-3 二维数组
' 给数组元素a(1,1)赋值10
① 使用时下标1、下标2可以是常量、变量或表达式。
② 下标1、下标2取值范围不能超过所定义的上、下界。
2
二维数组引用
Dim s(3,2) As Integer For i=1 To 3 For j=1 To 2 s(i,j)=InputBox(“请输入成绩：”) Next j Next i
【第1段程序】从键盘上输入10本的单价，并按2行5列的形式输出。
3
二维数组应用
minb = book(1, 1) For i = 1 To 2 For j = 1 To 5 If book(i, j) < minb Then minb = book(i, j) End If Next j Next i Print minb End Sub
VB 程 序 设 计
“组织”的力量--二维数组
问题引入
34 50 56 61 45 46 23 56 34 90 21 34 89 69 75 81 41 78 51 14 18 62 90 81 67 19 63 93 27 18 65 45 51 15 45 11 54 28 29 37 67 34 58 45 39 23 23 20 12 49 62 32 23 81 48 31 21 19 17 45 34 22 51 20 10 23 61 23 22 23 16 37 40 36 34 45 31 45 31 90 62 71 45 49 100 67 19 61 45 26 15 62 34 45 62 41 15 18 81 71
1
【说明】
二维数组定义
② 数组在定义时，数据类型也可用符号代替。 【示例】 Dim m%(3,4) 定义4行5列的整型二维数组m。
VB课件5.1
说明：
1）该结构的功能是根据第一行中”测试表达式” 的值,依次与后面case子句中表达式列表比较, 若相匹配,则执行它下面的语句块,然后从 select case语句结构中跳出;若所有case子句 无一匹配,则执行case else后面的语句,结束 select case语句.
果，选择不同的分支，并且任何情况下总有“无论
条件多少，必择其一；虽然条件众多，仅选其一” 的特性。
5.1.1 IF-then-else-end if
(1)单分支If……Then语句 形式1（块形式）： If e Then Ａ组语句 End If
If x>0 then Print “x是正数” End if Print“测试完毕”
• 课本例５-2
4） If语句的嵌套 If语句的嵌套是指if 或else后面的语句块 中又包含If语句。语句形式： If <表达式1> Then If <表达式11> Then …… End If …… End If
例如：实验5-3
• 注意： 1）对于嵌套结构，为了增强程序的可读 性，应该采用缩进形式书写； 2）If语句形式若不在一行上书写，必须 与End If配对，多个if嵌套，End If与 它最接近的 If配对。
单分支的算法流程图
课堂练习1： • 例：分别在text1和text2中输入两个数x和y， 并比较它们的大小，如果hen t=x x=y y=t end if
方法二： if x<y then t=x : x=y : y=t
vb第5章
件 Else
MsgBox "请先在列表中选择某字段", , "注意"
End If
End Sub
17
(2) 将右列表框中选择的字段移动到左列表框中。
Private Sub Command2_Click()
If List2.ListCount = 0 Then
第 五
MsgBox "列表中已没有可选的字段", , "注意"
Visual BASIC
第5章
常用控件
本章要点:
• 选项按钮、复选框
程
• 列表框、组合框
序 设
• 计时器、滚动条、框架
计
1
5.1 控件的公共属性
1. Name属性
(1) 运行时是只读的
第 (2) 缺省名称
五 章
(3) 以字母开始，最长40个字符，可包括字母、数字
和下划线，不能包括标点符号或空格(允许汉字)
常 End Sub
用 内
Private Sub Check3_Click()
部 Text1.FontStrikethru = Check3.Value
控 End Sub 件
Private Sub Check4_Click()
Text1.FontUnderline = Check4.Value
End Sub
第
五
章 List1
List2
常
用
内
部
控 件
将左列表框中选择的书名移动到右列表框中
将右列表框中选择的书名移动到左列表框中
将左列表框中的所有书名移动到右列表框中
将右列表框中的所有书名移动到左列表框中
VB第5章 数组、结构与集合
其中的“变量名”表示一个用于依次存放各数组元素的变量， 其类型必须与数组元素的类型一致。在需要遍历所有数组元素时， 特别是在数组长度不易确定的环境中，使用这种For Each…Next语 句就很方便。
5.1 数组
5.1.1 声明和访问数组 3. 多维数组 下标数量大于等于2的数组称为“多维数组”。在多维数组中， 比较常用的是二维数组，其数据组织形式与常见的二维表格十分相 似。声明二维数组与声明一维数组的语法格式类似，例如： Dim ary1(3, 4) As Integer '声明一个4行5列的数组 '声明一个两索引最大值不确定的二维数组 Dim ary2(,) As Integer
第5章 数组、结构与集合
本章讲述的主要内容
5.1 数组数组
在现实生活中有着各种各样的数据，这些数据在所讨论的问 题中可分为两类：一类是仅与其取值有关，而与其所在的位置无 关；更常见的另一类是不仅与其取值有关，并且与其所在的位置 也密切相关，如二维表格中的数据与其所在行列坐标有着密切的 关系。 前面我们所讲过的变量都是简单变量，利用简单变量可以解 决不少问题，但是如果在程序设计中仅使用简单变量，势必受到 简单变量单独性和无序性的限制，而难于或无力解决那些数据不 仅与取值有关，而且与其所在位置也有关的较复杂的问题，如学 生成绩就隐含着名次和成绩。要想方便地解决这些问题，通常需 要借助于复杂数据类型即数组。数组是一些具有相同类型的数据 按一定顺序组成的序列，数组中的每一个数据都可以通过数组名 及唯一索引号（下标）来存取。
声明多维数组时，用逗号表示维数，一个逗号表示二维数组， 两个逗号表示三维数组，依次类推。
5.1 数组
5.1.2 Array类 Visual Studio提供的Array类中包含了一些适用于数组常用操 作的方法，使用这些方法能完成数组清零、复制、排序、反转等常 用操作。Array类的常用方法见表5-2。
大学计算机vb课程 第五章 常用控件【精选】
0--Unchecked：未被选定
False：未选定 1--Checked：选定
2--Grayed：灰色，禁止选择
Style属性
0--Standard：标准方式
1--Graphical：图形方式
Picture属性
未选定时的图标或位图
DownPicture属性 选定时的图标或位图
DisabledPicture属性 禁止选择时的图标或位图
选中。
Sorted(D)：True：按字母顺序排列。False：按加入先后顺序排列。 Text(P) ：被选中列表项的内容，如：
List 1.List(List 1.ListIndex) = List1.Text MultiSelect：0-None：禁止多项选择；
1-Simple：简单多项选择； 2-Extended：扩展多项选择。
常用事件
5.1 单选钮和复选框
有Click事件，因为单击时自动改变状态，故不需要编写过程。
【例5-1】
用单选按钮和复选框制作如图 所示窗口。当用户选择了“所在学 院”和“学习课程”后，单击“确 定”，则选择结果显示在下面的文 本【框属中性。设置】
默认名
Name属性
其它属性及设置
Option1 Option2 Option3 Check1 Check2 Check3 Check4 Label1
择的项目列出来，不 组合框有三种类型，由其Style属性值决定，Style
能直接修改项目。 可为0、1或2。
0——默认值。下拉式组合框。
1——简单组合框。
2——下拉式列表框。
常用属性
5.3 列表框和组合框
说明：P——只可在程序中设置或引用，D——只可在设计状态设置 List (PD) ：字符型数组，存放列表框的项目，下标从0开始。 ListIndex(P)：选中项目的序号，无项目被选定时为-1。 ListCount(P)：项目的数量，ListCount-1是最后一项的下标。 Selected(P)：逻辑数组。Selected(i)的值为True表示第i+1项被
VB程序设计(第2版)教学课件5-5 控件数组
② 用下标索引值(Index)来识别各个控件。如：
Text1(0)、Text1(1)、……。
2
控件数组建立方法
【控件数组的建立方法】
【方法1】利用为控件数组命名方法建立控件数组
① 在窗体上添加同一类型的多个控件。如：Text1、Text2…… ② 单击Text2，使其处于选定状态。 ③ 在属性窗口选择“名称”，即Name属性， 并修改控件名称，即：Text1，显示对话框， 单击“是”，则建立控件数组。 ④ 对要加到数组中的控件重复第②、③步，
Hale Waihona Puke 总结可将相同的控件视为一个数组，即“控件数组”。
建立控件数组有两种方法。
用下标索引值(Index)来识别控件数组中的控件。
'产生10个3位数
3
代码设计
动态数组应用
Private Sub Command2_Click() Dim i%, j%, k% i = 0: j = n For k = 0 To 9 '将奇数放在前 If Text1(k).Text Mod 2 <> 0 Then Text2(i).Text = Text1(k).Text i=i+1 Else Text2(j).Text = Text1(k).Text j=j+1 End If Next k End Sub
2
【说明】
控件数组说明
① 控件数组建立后，只要改变一个控件的“名称”属性，即Name属 性，并将Index属性置为空（不是0），则该控件从控件数组中删除。 ② 建立了控件数组之后，控件数组中所有控件触发同一事件过程，由 事件过程根据不同的Index值执行不同的操作。
3
放入Text2中。
VB教程 (5)
3．关于循环体 循环体是一条或多条语句 可以包括分支结构和循环结构 可以写成一行或多行。 循环体中可以引用循环控制变量，也可以不引用。 但不要随便修改循环控制变量的值，以防引起循 环混乱。 4．强行终止死循环 使用Ctrl+Break可以暂停程序运行
再使用VB工具栏上的“结束”按钮终止程序执行。 19 Visual Basic程序设计教程
5.4.2 Exit For语句
循环中，中途退出循环，称为跳出循环。 跳出For/Next循环的语句就是Exit For。 跳出循环后，将执行Next语句后面的语句。 Exit For语句一般往往与If语句合用。如：
If A >= 2 Then '素数判断 For i = 2 To Int(Sqr(A)) If A Mod i = 0 Then Exit For 'A能被i整除,不是素数,退出For循环 Next i If i > Int(Sqr(A)) Then '表示A不能被2~ Int(Sqr(A))中的数整除 Print A; "是素数" Else '此时表示程序运行是通过Exit For转出来的 Print A; "不是素数" End If Else Print A; "不是素数" End If
在使用Exit Do退出循环的时候，没有改变i的值，故A能被该 i整除，即A可以表示成A=i*(A/i)。 事实上只要判断A能否被2、3、……、Sqr(A)整除即可。
9
Visual Basic程序设计教程
逻辑运算使用逻辑运算符 VB提供了多个逻辑运算符，有： 非(Not)、与(And)、或(Or) 异或(Xor)、等价(Eqv)、蕴含(Imp)。 1．基本格式
VB第5章选择结构程序设计.ppt
使用块结构条件语句，按以上标准计算运费
14
分析： 设每公里每吨货物的基本运费为Price， 货物重为Weight， 运输距离为Distance， 折扣为Discount， 则总运费Freight的计算公式为:
Freight= Price * Weight * Distance *
(1 - Discount)
21
多分支选择语句的功能流程图:
T
语句组1 F
匹配表达式 表2
匹配 表达式表1
T 语句组2
F …… T
匹配表达式 表n
F
语句组n
语句组n+1
22
3. 说明 1） 测试表达式 : 数值或字符表达式 2） Case 后的“表达式表”可以为如下形式: ① 表达式1[,表达式2]... 如: Case 1 , 3 , 5 ② 表达式1 TO 表达式2 如: Case 10 TO 30 Case "A" TO "Z" ③ Is 关系运算符 表达式 如: Case Is >= 10 Case Is = 0 与 Case 0 相同 且三种形式可以混用,如: Case Is < -5 , 0 , 5 To 100
23
【例 5-3】用多分支选择语句实现：输入年 份和月份，求该月的天数。 分析：
当月份为1、3、5、7、8、10、12时，天 数为31天； 当月份为4、6、9、11时，天数为30天； 当月份为2时，如果是闰年则天数为29天， 否则天数为28天。某年为闰年的条件是： 年份能被4整除，但不能被100整除，或 年份能被400整除。
29
4） 不要在Case后使用布尔运算符表示条件 例如，要表示条件0<X<100，不能写成： Select Case X Case Is>0 And Is<100 ' 使用了And, 是错误的 … End Select 对于较复杂的条件，可以用块结构条件 语句来实现，而有些条件完全可以转换成 Case语句允许的几种形式之一。
vb5
5.1 数组 5.2 数组 自定义类型及其数组 5.5 综合应用
5.1 数组
数组并不是一种数据类型，而是一组相同类型变量 数组并不是一种数据类型， 的集合，数组必须先声明后使用。数组又分为静态（ 的集合，数组必须先声明后使用。数组又分为静态（定 长）数组和动态（可变长）数组两类。 数组和动态（可变长）数组两类。
For i=0 to UBound(b) b(i);” ; Picture1.Print b(i); ”; Next i 注意:(1)利用 函数对数组各元素赋值 数组各元素赋值， 注意:(1)利用 Array 函数对数组各元素赋值，声明的数 组是可调数组或连圆括弧都可省略的数组， 组是可调数组或连圆括弧都可省略的数组，并且 其类型只能是Variant. 其类型只能是Variant. (2)数组的下界为0 (2)数组的下界为0，上界由 Array 函数括号内的参 数组的下界为 数个数决定， 获得， 数个数决定，也可通过函数 Ubound 获得， 也可改变数组的维数。 也可改变数组的维数。 2、数组的输入 可以通过文本控件输入， InputBox函数输入 函数输入。 可以通过文本控件输入，也可通过 InputBox函数输入。
5.2 数组的基本操作
1、给数组元素赋初值 （1）利用循环结构 For i=1 to 10 A(i)=0 Next i （2）利用 Array 函数 Dim a As Variant, b As Variant, i% a=Array(1,2,3,4,5) b=Array(“abc” b=Array(“abc”,“def”,“67”) def” 67” For i=0 to UBound(a) a(i);” ; Picture1.Print a(i); ”; Next i
营养之维生素(泛酸VB5)介绍
营养之维生素（泛酸VB5）介绍
营养之维生素（泛酸VB5）介绍
【泛酸的理化性质】
一种水溶性B族维生素，浅黄色粘稠油状物，但它的盐是无色晶体，能溶于水，略溶于乙醚，几乎不溶于苯、氯仿，具有右旋光性。
对酸、碱和热都不稳定。
泛酸的主要生理活性形式是辅酶A和酰基载体蛋白，它们的代谢功能是作为乙酰基或酯酰基的载体，辅酶A在肠内水解为泛酸，游离的泛酸从尿中排出。
【泛酸的食物来源】
含泛酸丰富的食物：动物肝脏、酵母、蘑菇、鸡蛋、蜂王浆、乳品、谷物等。
【泛酸的生物功能】
* 泛酸参与肾上腺激素的生成、抗体的形成，在维护头发、皮肤及血液健康方面亦扮演重要角色；泛酸是大脑和神经必需的营养物质，是脂肪和糖类转变成能量时不可缺少的物质；
* 泛酸协助维生素的利用，有助于细胞的生成，维持正常发育和中枢神经的发育；
* 制造抗体也是泛酸的作用之一，能帮助抵抗传染病，
缓和多种抗生素副作用及毒性，减轻化妆品中成分敏感所产生的不适像灼烧、刺痛、瘙痒和麻刺等。
帮助伤口愈合；
【泛酸的需要量】
10岁以上每日为4mg ～7mg。
【泛酸缺乏症状】
* 低血糖症；
* 血液及皮肤异常；
* 疲倦、忧郁、失眠、烦躁不安；
* 运动神经障碍、生长缓慢等；
【泛酸的特殊需求群族】
* 关节炎患者；
* 服用抗生素者；
* 正服用避孕药的妇女；。
VB第5章
5.1.2 逻辑运算符与逻辑表达式
逻辑运算符的含义及逻辑表达式示例。
运算 符 Not And Or Xor Eqv Imp 含义 逻辑非 逻辑与 逻辑或 逻辑异 或 逻辑等 于 逻辑蕴 含 举 例 Not ("a" > "b")，结果为 真 (5 >= 3) And (9 > 5)，结 果为真 ("x" > "y") Or (4 <> 5)， 结果为真 (8 = 7) Xor (10 > 7)，结 果为真 (12 > 8) Eqv ("c" > "d")， 结果为假 (10 = 10) Imp (12 > 22)， 结果为假 说 明 “a” > ”b” 为假，再进行取反运算，所以 结果为真 两个表达式的值都为真，结果为真 两个表达式的值有一个为真，结果为真 两个表达式的值不同，结果为真 两个表达式的值一真一假，结果为假 第一个表达式值为真，第二个为假，所 以结果为假。
button参数是一个整数说明当前是哪个鼠标键shift参数用于判断键盘上shiftctrl和alt等3个按键是否被按下xy是鼠标指针的位置坐标571鼠标事件button参数十进制二进制按键情况000没有按下任何鼠标键001按下鼠标左键010按下鼠标右键011同时按下鼠标左右键100按下鼠标中间键101同时按下鼠标中间左键110同时按下鼠标中间右键111同时按下鼠标的三个键571鼠标事件shift参数表十进制数二进制数说明000没有按下转换键001按一个shift键010按一个ctrl键011按ctrlshift键100按alt键101按altshift键110按altctrl键111按altctrlshift键571鼠标事件释放鼠标键时触发mouseup事件
VB程序设计基础教程第5章
RGB函数
表5-3 3种颜色的相对亮度组合 颜色 红色值 绿色值 蓝色值
黑色
蓝色 绿色
0
0 0
0
0 255
0
255 0
青色
红色 洋红色 黄色 白色
0
255 255 255 255
255
0 0 255 255
255
0 255 0 255
魏豪明 制作
颜色属性
BackColor
Form1
绘制正圆 Command1 绘制椭圆 Command2 绘制弧形 Command3
命令按钮2
命令按钮3
魏豪明 制作
绘制正圆
绘制椭圆
绘制弧形
图5-8 演示程序
魏豪明 制作
5.3.4 PaintPicture方法
PaintPicture方法
PaintPicture方法主要用来在窗体、图片框或打印机对象上绘 制图形文件，图形文件的类型包 括.bmp、.ico、.wmf、.emf、.cur、.ico和.dib等，使用 PaintPicture方法，可以实现图片的移动、翻转、缩放、裁剪等操 作，其在程序代码中的一般格式为： [对象].PaintPicture 图片，x1，y1，[宽度1，[高度1， x2[ y2[宽度2[，高度2[，位操作常数] ] ] ] ] ] ]
（x2，y2）：为终点坐标。带Step关键字时表示与起点坐标
的相对位置。
魏豪明 制作
实例
设计一个程序，当在程序中单击“绘制矩形”按钮时，图片框中绘
制出类型不同的矩形，其操作步骤如下：
表5-8 对象属性设置 对象 窗体 属性 Caption （名称） 设置 Line方法实例 Form1
vb 第5课 GDI图形绘制
通过调用FromName静态方法，参数是一个字符串，这个字符串 必须是KnownColor枚举值的名称。如 Dim sc As Color = Color.FromName( “Blue” )
Color属性
具有4个只读属性，可以用于提取颜色的各种成分
A，返回颜色的alpha成分； R，红色成分；G，绿色成分；B，蓝色成分。
功能描述
绘制圆弧 椭圆轮廓线 扇形轮廓线 多边形轮廓线 绘制矩形线
绘图函数
DrawLine FillEllipse FillPie FillPolygon FillRectangle
功能描述
绘制raw为前缀的函数用于绘制图形 以Fill为前缀的函数用于区域填充
Graphics类提供的绘图方法：
Clear方法：使用一种指定的颜色填充整修绘图表面。例如，
Dim g As Graphics = Me.CreateGraphics g.Clear(Color.Aqua)
绘制方法
绘图函数
图形绘制通过绘图函数来完成
绘图函数
DrawArc DrawEllipse DrawPie DrawPolygon DrawRectangle
g.TranslateTransform(40,30)
创建图形应用程序
使用GDI+在对象上绘制图形过程： ① 构造画布 用对象的CreateGraphics()方法构造Graphics类的实例： Dim 画布 As Graphics 画布 = 控件对象.CreateGraphics() ② 建立绘图工具(画笔、画刷、字体等) ③ 调用绘图方法绘制图形 ④ 调用Dispose方法释放绘图对象
X——定义Point结构的x坐标或者水平位置。 Y——定义Point结构的y坐标或者垂直位置。
VB第5课
求平均 数列求和
VB第 课作业: VB第4课作业: 一,编写程序: 编写程序: 输入一个三位正整数x 如果x是回文数(正过来读和反过来读一样, 1. 输入一个三位正整数x , 如果x 是回文数 ( 正过来读和反过来读一样 ,如 383就是一个回文数 就是一个回文数, 123就不是一个回文数 就不是一个回文数) 输出"是回文数" 383就是一个回文数,而123就不是一个回文数),输出"是回文数", 否则输出"不是回文数" 否则输出"不是回文数". 2.输入一个小于等于100的正整数a,如果它是7的倍数,则输出"是7的倍 输入一个小于等于100的正整数a 如果它是7的倍数,则输出" 100的正整数 如果不是7的倍数,则输出"不是7的倍数" 数",如果不是7的倍数,则输出"不是7的倍数".如果输入的正整数 超过100 则显示"输入错误" 100, 超过100,则显示"输入错误". 盘根目录下建立一个以四位学号命名的文件夹, 二 , 在 D 盘根目录下建立一个以四位学号命名的文件夹 , 将程序保存在文件 夹中,并生成以学号命名的exe文件. exe文件 夹中,并生成以学号命名的exe文件. 注意:请将Form1 Caption属性 注意:请将Form1的Caption属性 Form1的 改为四位学号. 改为四位学号. 回文数 7的倍数
�
Dim x as Integer x=Inputbox("请输入一个三位正整数") If x\100=x mod 10 Then print "是回文数" Else print "不是回文数" End If
VB第5课蝴蝶飞舞
第5课蝴蝶飞舞本课旨在带领学生制作通过M o ve方法用代码控制控件移动的动画程序，让学生认识控件的“方法”，了解控件的“方法”，进而初步形成“方法”的概念。
编写意图在VB6.0中，方法是一个非常重要的概念，对象有对象的方法，窗体有窗体的方法，控件有控件的方法，各方法使用方式相近，功能却又各不相同。
VB6.0作为一门高级编程语言，使用它来编写程序实际上更类似于堆积木，一个个控件就是一块块积木，堆积在一起的控件按照指定的方法最终实现需要的功能。
我们的目的，就是要让学生通过生动形象的编程实例，走近、理解“Move控件方法”，初步掌握“Move控件方法”以及Rnd、LoadPic ture函数的使用方法。
内容分析课文中出示的“蝴蝶飞舞”动画程序共主要涉及到了：为Image控件指定其显示图像、控件数组、RND随机函数、控件属性在程序代码中的调用、Move方法、Ti mer计时器控件的简单应用以及Mo d运算符七个知识点，本课侧重介绍Image控件的“Move方法”的应用。
教学目标1.知识与技能◆理解并掌握Mo ve方法控件的概念及使用方法；◆理解Rnd、LoadPicture函数的使用方法；◆掌握为Imag e控件指定其显示图像的方法；◆初步了解控件数组、RND随机函数、控件属性在程序代码中的调用、Mod运算符以及Timer计时器控件的简单应用。
2.过程与方法◆通过学生自读教材与上机实验，使其能够基本读懂课文中出示的“蝴蝶飞舞”动画程序实例代码，并能使用自己的话进行解析；◆通过对“蝴蝶飞舞”动画程序实例的分析，结合他人的见解，归纳总结出控件的“方法”的基本定义。
3.情感态度与价值观◆在学生尝试自行解析程序代码的过程中培养其对陌生知识勇于探究，大胆尝试的精神和勇气；◆鼓励学生克服畏难情绪，勇于表达自己的见解并能够从中体会到成长的快乐。
VB数组课件-王留洋
a3 a4
数据没有顺序 变量名互不相同 变量相互独立
位置编号 好处？
数组元素 a(0) a(1) a(2) a(3) a(4)
Visual Basic程序设计
数组处理的优势
数组a: 80 78 90 67 85 数组元素：a(0) a(1) a(2) a(3) a(4) a(i) i=0,1,2,3,4
沙场练兵
D 下面程序执行时，在窗体上显示的是______。 Private Sub Command1_Click() Dim a(10) For k = 1 To 10 a(k) = 11 – k Next k Print a(a(3)\a(7) Mod a(5)) End Sub A）3 B）5 C）7 D）9
二维数组: 有多少个 数组元素？
若在通用声明段中加Option Base 1 ，数组定义语句可以怎么写？
Visual Basic程序设计
趁热打铁
以下定义数组的语句错误的是（ B C D ） A） Dim a(1 To 6.7) As Single √ B） Dim a(10 To 1) As Integer × C） Dim a(-5) As Integer × D） Dim N As Integer N=5 × Dim a(N) As Integer E） Const N As Integer=5 √ Dim a(N) As Integer F） Dim a(3 To 8, 2*3) √ G） Dim b(3, 1 To 10, 1 To 15) As Long √
Visual Basic程序设计
例5-2 一维数组的输入输出
第5课 VBMN键指法
M键的敲击过程图解
右手的食指从J键出发，向右下方移 动，敲击M键
M 键的敲击过程
敲击M键Βιβλιοθήκη M键的敲击过程击键后立即返回基本键J 。
请在写字板中练习
• • • • • vbnm mnbv vbnm mnbv vbnm mnbv vbnm mnbv vbnm mnbv vbnm mnbv vbnm mnbv vbnm mnbv vbnm mnbv vbnm mnbv
V 键的敲击过程图解
敲击V键
V 键的敲击过程图解
击键后立即返回基本键F
B键的敲击过程
左手的食指从F键出发，向右下 方移动，敲击B键，击键后立即 返回基本键F。
B键的敲击过程图解
左手的食指从F键出发，向右下 方移动，敲击B键
B键的敲击过程
敲击B键
B 键的敲击过程
击键后立即返回基本键F。
N 键的敲击过程
VBMN 键指法
大写字母：V B M N 小写字母：v b m n
认识 vbmn键
V键在F键的右下方 N 键在J键的左下方
B键在F键的右下方 M键在J键的右下方
V键的敲击过程
左手的食指从F键出发，向右下 方移动，敲击V键，击键后立即 返回基本键F。
V 键的敲击过程图解
左手的食指从F键出发，向右下方移动
右手的食指从J键出发，向左下 方移动，敲击N键，击键后立即 返回基本键J。
N键的敲击过程图解
右手的食指从J键出发，向左上 方移动，敲击N键
N 键的敲击过程
敲击N键
N 键的敲击过程
击键后立即返回基本键J。
M 键的敲击过程
右手的食指从J键出发，向右下方移 动，敲击M键，击键后立即返回基 本键J 。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
数组第5章•数组的概念•数组的基本操作•动态数组•控件数组•程序示例•小结•关于期中考试数组的概念数组可用于存储成组的有序数据。
使用数组就是用一个相同的名字引用这一组变量中的数据，这个名字被称为数组名。
•数组命名与数组元素•数组定义•数组的结构•数组函数及数组语句数组命名与数组元素•数组名的命名规则与简单变量命名规则一样。
•数组内的每个成员称为数组元素，数组元素又称为下标变量，数组元素的类型也就是数组的类型。
•数组元素名的一般形式是：其中：下标可以是常量、变量或算术表达式。
当下标的值为非整数时，会自动进行四舍五入。
数组定义•数组说明语句•数组的初始化数组说明数组说明语句示例D i m A(6)A s i n t e g e rP r i v a t e N a m e(1999T o2002)A s S t r i n g*8D i m B(2,1t o2)A s i n t e g e r数组维说明示例D i m M A s i n t e g e rC o n s t N A s i n t e g e r=5D i m A(N)A s i n t e g e r√D i m B(1T o6.6)A s i n t e g e r√D i m C(1T o2+3)A s i n t e g e r√D i m D(0T o M)A s i n t e g e r×数组初始化•数值型的数组元素初始值为零•变长字符类型的数组元素初始值为空字符串•定长字符类型的数组元素初始值为指定长度个数的空格•布尔型的数组元素初始值为F a l s e•变体（V a r i a n t）类型的数组元素的初始值是E m p t y(N u l l)。
数组的结构•一维数组的结构•二维数组的结构•三维数组的结构•求:A(2,3)元素存储在第几个位置？A(3,2,2)元素存储在第几个位置？一维数组的结构D i m S t r A(8)A s i n t e g e r线性顺序二维数组的结构•O p t i o n B a s e1D i m T a b l e(3,4)A s i n t e g e r按列存放三维数组的结构回顾5月24日•数组的作用（与以前的简单变量比较）•数组的定义（语法、语义）•举例•有关数组的函数与语句数组维说明示例D i m M A s i n t e g e rC o n s t N A s i n t e g e r=5D i m A(N)A s i n t e g e r√D i m B(1T o6.6)A s i n t e g e r√D i m C(1T o2+3)A s i n t e g e r√D i m D(0T o M)A s i n t e g e r×数组函数及数组语句•L B o u n d函数与U B o u n d函数•E r a s e语句•F o r E a c h…N e x t结构语句L B o u n d函数；U B o u n d函数L b o u n d函数应用示例Private Sub Form_Click()Dim A(5) As integer,Dim B(3 to 8,200 to 208)Print LBound(A),LBound(B,1),LBound(B,2)End Sub程序执行结果是：0 3 200U b o u n d函数应用示例Private Sub Form_Click()Dim A(5) As integer,Dim B(3 to 8,200 to 208)Print UBound(A),UBound(B,1),UBound(B,2)End Sub程序执行结果是：5 8 208E r a s e语句•E r a s e语句的功能是重新初始化固定大小数组的元素，或者释放动态数组的存储空间。
•E r a s e语句应用示例E r a s e语句应用示例Private Sub Form_Click()Dim A(3) As integer, B ( ) As integerA(1) = 1: A(2) = 2: A(3) = 3ReDim B(4) …为B分配4个整数单元（8B）Print A(1), A(2), A(3)Erase A, B ‘A充0，B的单元释放Print A(1), A(2), A(3)End SubF o r E a c h…N e x t结构语句•F o r E a c h…N e x t语句是专门用来为数组或对象集合中的每个元素重复执行一组语句而设置的。
•F o r E a c h…N e x t语句应用示例数组的基本操作•数组元素的赋值•数组元素的输出•数组元素的引用数组元素的赋值•用赋值语句给数组元素赋值•通过循环逐一给数组元素赋值•用i n p u t B o x函数给数组元素赋值•用A r r a y函数给数组赋值用赋值语句给数组元素赋值D i m S c o r e(3)A s i n t e g e rD i m T w o(1,1t o2)a s i n t e g e rS c o r e(0)=80S c o r e(1)=75S c o r e(2)=91S c o r e(3)=68T w o(0,1)=S c o r e(0)…用i n p u t B o x函数给数组元素赋值数组元素输出示例数组元素的引用•数组元素的下标在规定的维界范围之内，否则就会产生“数组越界”的错误。
•【例5-1】随机产生12个两位数，存放在数组C o m中，并从中找出一个最大数和一个最小数。
动态数组动态数组的特点:不知数组应有多大能满足需要，在运行程序时改变数组的大小。
定义动态数组分为两步：1.首先定义不指明大小的数组。
Public|Private|Dim|Static 数组名( ) [AS 类型]2.用ReDim 语句来动态地定义数组的ReDim [Preserve] 数组名( 维界定义 )[AS 类型]R e d i m语句中P r e s e r v e的使用ReDim语句中缺省关键字Preserve时,当前存储在数组中的值全部丢失;若要保留原数组的内容，应在ReDim语句中使用关键字Preserve，并只能改变最后一维的维上界。
举例Option Base 1Dim DynArry( ) As integerPrivate Sub Form_Click()Dim i As integer, J As integerReDim Dynarry(3, 3)Debug.Print "数组Dynarry(3,3) 的值"For i = 1 To 3For J = 1 To 3Dynarry(i, J) = i * 10 + JDebug.Print Dynarry(i, J);Next JDebug.PrintNext i控件数组•基本概念•【例5-2】使用控件数组，编写一个能进行加、减、乘、除运算的运算器的程序•两条语句(L O A D与U N L O A D)基本概念编写一个运算器的程序L o a d语句程序示例【例5-3】用选择法对10个数进行排序【例5-4】顺序查找与二分查找程序【例5-11】将数组中重复元素删除【例5-6】有关矩阵的程序设计【例5-7】求出裴波拉契数列的前18项【例5-8】统计字母在文本中出现的次数【例5-9】找出100以内的所有素数【例5-10】找出5000以内的亲密对数用选择法对10个数进行排序•设在数组S o r t中存放10个无序的数，要将这10个数按升序重新排列。
•算法讲解…..比较次数:N*(N-1)/2•如何写程序???•如何改进算法?----直接排序法•掌握了吗?(改题)直接排序法顺序查找程序回顾5月31日•你掌握V B的基本元素？–数据类型？函数？表达式？控件？模块？•你掌握基本程序结构？对应V B的语句？–顺序结构、分支结构、循环结构–i/O语句、赋值语句、i F、S E L E C T、D O、F O R…•应用是关键！！！–如何将实际问题转移到计算机空间去解决？–了解计算机空间！抽象实际问题！–读、仿、编、练；（程序示例）二分查找程序•仅对已经排序好的数组•算法说明所谓“二分”查找，就是每次操作都将查找范围一分为二，即将查找区间缩小一半，直到找到或查询了所有区间都没有找到要查找的数据为止。
•二分查找图解说明•程序代码求出裴波拉契数列的前18项统计字母在文本中出现的次数•算法说明•程序代码算法说明找出100以内的所有素数算法说明回顾6月7日•你掌握V B语言的元素？–模块、对象、函数、运算符号…–i/O语句、赋值语句、I f、S e l e c t、D O、F O R…•你掌握几种常用算法？–求素数？排序？二分法？删除(插入)一个数组元素？•应用是关键！！！–抽象实际问题？在计算机空间思维解决问题？–如何化繁为简，用常用算法解决复杂问题！–读、背、仿、编、练；（程序示例）找出5000以内的亲密对数设计各个变量作用•i:从1到5000的穷举扫描（题意）•动态数组F存放i的各个因子数,并求因子和存到s u m1•动态数组S存放s u m1的各个因子数，并求因子和存到s u m2•变量F_i d x是F的下标指针，最后是i因子个数;•变量S_i d x是S的下标指针，最后是s u m2因子个数;A是3×2矩阵，B是2×3矩阵，求A·B•算法说明根据线形代数已知，若A是一个m×k的矩阵，B是一个k×n的矩阵，那么A·B得到一个m×n的矩阵。
设：C＝A·B则C矩阵的每一个元素可根据下面的公式计算：C i j＝A i1·B1j＋A i2·B2j……＋A i k·B k j•总结•数组的基本概念：数组元素与下标变量、维数、逻辑结构与存储结构、数组说明•动态数组的定义与重定维•控件数组的创建与应用•数组应用：求素数等数字游戏、顺序查找与二分查找、字符处理、排序、矩阵、……•读P114例5--12；《实习指导书》E N D2003年5月19日。