安高云VB第五章课件

格式：ppt
大小：805.50 KB
文档页数：39

下载文档原格式

VB课件第五章

Option Base 1 „ 将数组声明中缺省<下界>下标设为 4.数组中所有元素都有相同的数据类型。如果类型不同, 1 则声明时必须将其数据类型定义为Variant。
5.1
一维数组
5 参数index的个数决定数组的维数。各参数间用逗号分隔。参数可以是简单的数值表达式
例如，aa(4) 也可以是由关键字To组成的表达式例如，sd（1 To 10）
多维数组
Dim 数组名 ([< 下界 >] to < 上界 > ， [< 下界 > to ]< 上界 >，……) [As <数据类型>]
例如：
Dim a(5,5,5) As Dim Integer Integer „声明a是三维数组 ' 声明b是四维数组
b(2,6,10,5) As
5.2
【例5.1】数组address(100,1)保存着101个学生的姓名及其家庭住址，要求随意输入一个姓名，能够输出其对应的家庭住址。
Dim name As String,address(100,1) As String Dim I As Integer Name=InputBox(请输入查询的姓名：, 数据输入) For I=0 To 100 If address(I,0)=name Then MsgBox name+ 的家庭住址是：+ address(I,1) End If Next I End Sub
思考：
如果能使用Ai ( i=1,2,…..10 ) 的形式？
使用循环来写程序 VB中表示下标变量就是通过定义数组来实现的。
5.1
5.1
一维数组
一维数组数组的概念：数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。

VB程序设计第3版第5章ppt

5.3 多分支选择语句
第五章选择结构程序设计
1. 格式 Select Case 测试表达式 Case 表达式表表达式表1 [语句组语句组1] 语句组 [Case 表达式表表达式表2 [语句组语句组2]] 语句组 … [Case Else [语句组语句组n]] 语句组 End Select
18
本例条件语句可以简化为：本例条件语句可以简化为：
第五章选择结构程序设计 If distance < 250 Then Discount = 0 ElseIf distance < 500 Then Discount = 0.02 ElseIf distance < 1000 Then Discount = 0.05 ElseIf distance < 2000 Then Discount = 0.08 ElseIf distance < 3000 Then Discount = 0.1 Else Discount = 0.15 End If 在书写块结构条件语句时，件语句时，可以语句、将If语句、ElseIf 语句子句、子句、Else子句和子句和 End If语句左对齐，语句左对齐，语句左对齐而各语句组向右缩进若干空格，缩进若干空格，以使程序结构更加清楚，加清楚，便于阅读和查错。读和查错。
5.1 单行结构条件语句
第五章选择结构程序设计
语句组1 语句组
1. 格式 If 条件 Then [语句组 [Else 语句组语句组1] 语句组2] 语句组 2. 功能如果“条件”成立(True)，则执行“语句如果“条件”成立，则执行“ 组1” ” T F 否则执行“语句组 ” 否则执行“语句组2”

VB课件第5章

说明
函数体中必须存在形如“函数名 = 返回值”的语句，其作用是将执行函数所产生的结果保存到函数名中，从而使函数可以通过函数名返回一个值
函数的特点就是可以通过函数名返回一个值
说明
可选关键字Private或Public用于指定函数的有效范围
Private --- 私有的局部函数，只能被同一代码窗口中的过程所使用
P160
第5章过程
5.1 过程的定义与调用 5.2 变量的作用域
如：cmd1_Click( )、Form_Load( )等事件过程
Print、Circle等方法事件过程
Sub过程
过程
子程序过程
Function过程
如：Int()、Randomize()、Len()等函数除系统提供外，可根据需要自行编写
End Sub
简化后的程序代码
Private Sub cmdP_Click() Dim n As Integer, m As Integer Dim u As Double, v As Double n = Val(txtN.Text) m = Val(txtM.Text) u = fac(n) v = fac(n - m) lblVal.Caption = "排列数是" & u / v
[Exit Sub] 语句组2 End Sub
子程序体
强制退出子程序
说明
子程序不能通过子程序名带回任何数据只有通过形参(与实参配合)返回计算结果形参个数 = 已知条件个数 + 返回值个数
调用Sub过程的一般形式
子程序名实参列表
不带括号
程序代码接收实参n的值
Private Sub myFact(x As Integer, t As Double)

VB教案(PPT)——第五章

解决此问题的根本方法，引入数组，始终保持输入的数据，一次输入，多次使用。
5.2
1. 静态数组及声明
静态数组及声明
数组不是一种数据类型，而是一组相同类型的变量的集合，数组必须先声明后使用。两类数组：静态(定长)数组、动态(可变长)数组
形式： Dim 数组名(下标1[,下标2…]) [As 类型] 声明了数组的名、维数、大小、类型维数：几个下标为几维数组，最多60维。下标：[下界 To ] 上界省略下界为0 ,必须为常数。每一维大小：上界－下界+1 数组大小：每一维大小的乘积例：Dim mark(1 to 100) As Integer
（3×4）个整型变量的空间，如图7-3所示。
• •
说明：（1）可以将二维数组的定义方法推广至多维数组的定义。 • 例如：Dim D（3，1 To 10，1 To 15）定义了一个3维数组，大小为 4 × 10 × 15。注意在增加数组的维数时，数组所占的存储空间会大幅度增加，所以要慎用多维数组，尤其是 Variant 数组，因为他们需要更大的存储空间。 • （2）在实际使用时，可能需要数组的上界值和下界值，这可以通过LBound函数和 UBound函数来求得。其格式为：
一维数组
• 7.2.1 一维数组的定义
•
• •
数组应当先定义后使用，数组的定义又称为数组的声明或说明。
对于固定大小的一维数组，用如下格式进行定义：说明符数组名（下标）[As 类型]
•
•
例如：Dim y（5）As Integer
定义了一个一维数组，该数组的名字为y，类型为Integer，占据6个（0～5）整型变量的空间。
•
【例7.8】打印4名同学的英语、数学、

vb第五章课件

第四章过程与变量的作用域
10
5.2 菜单编辑器
2.“名称”输入框在“名称”输入框中输入该菜单控件的名称，用来在代码编辑时引用该菜单或菜单项。菜单设置中的每一项，不论是菜单名还是菜单项，只要在“标题”框中已输入标题，就都要为其取一个控制名称，以便在编写程序代码时使用。 3.“索引”输入框 “索引”输入框为一个文本框，用来建立控件数组下标。控件数组是一组享有同一控件名而拥有不同属性的控件。 4.“快捷键”输入框 “快捷键”输入框为一个列表框，在其右侧有一个下拉箭头，单击这一箭头会出现一个列表框，列出了可供用户选择的快捷键。
'将变量
第四章过程与变量的作用域
23
5.5 弹出式菜单
单击“全选”菜单项时，选定全部文本的事件代码为： Private Sub menuSelAll_Click() rText1.SelStart = 0 rText1.SelLength = Len(rText1.Text) End Sub 单击“时间/日期”菜单项时，事件代码为： Private Sub menuTimeDate_Click() rText1.SelText = CStr(Time) + " " + CStr(Date) End Sub
第四章过程与变量的作用域
22
5.5 弹出式菜单
单击“复制”菜单项时，事件代码为： Private Sub menuCopy_Click() clip = rText1.SelText menuCut.Enabled = False menuCopy.Enabled = False menuPaste.Enabled = True End Sub 单击“粘贴”菜单项时，事件代码为： Private Sub menuPaste_Click() rText1.SelText = clip clip中的内容粘贴到光标所在处 End Sub

VB第五章理论课件

这个程序的执行过程是：
S=0 For i=1 to 8 step 3 S=s+3 Next i Print s
第三次循环后：
S=0
i=1
判断i>8?
否
10>8?
是
S=9 i=10 运行结果：9
S=s+3 i=i+3
Print s
S=0 For i=1 to 8 step 3 S=s+3 Next i Print s
Print ―************‖
Print ―************‖ End Sub
循环结构基本概念
循环结构：指在程序设计中，将一些重复执行的程序块放入一定的语句中，使计算机自动地重复执行这些程序块。特点：简化程序、节约内存、提高效率。 VB 提供了三种不同风格的循环语句：
1、 For …Next 循环(指定循环次数，使用计数器重复运行语句。) 2、While……Wend 循环 3 、 Do …… Loop循环
具体执行过程为：判断次数 1 2 3
循环变量i的值
进行判断 i < 10 i < 10 i < 10
执行循环体循环体循环体
1 3 5
4 5
6
7 9
11
i < 10 i < 10
i > 10
循环体循环体
Next后面的语句
在第6次进行判断时，循环变量i的值为11，超过
了终值10，所以结束循环，执行Next后面的语句。
Next I (循环次数4)
2.For…Next语句执行过程循环变量=初值 Y
循环变量是否超过终值
N
执行循环体

VB二级第5章PPT课件

说明： ❖ [对象名.] 可以是窗体名、图片框名，也可是立即窗口“Debug”。 ❖ 若省略对象，则表示在当前窗体上输出。 ❖ 用Print方法在图片框和立即窗口对象中输出与在窗体对象中的输
出方法完全相同。
3
2020/10/13
5.1 数据输出---Print方法
5.1.2 和Print方法有关的函数
12
2020/10/13
谢谢您的指导
THANK YOU FOR YOUR GUIDANCE.
感谢阅读！为了方便学习和使用，本文档的内容可以在下载后随意修改，调整和打印。欢迎下载！
13
汇报人：XXXX 日期：20XX年XX月XX日
理用户动作时，用过程形式；对话框样式=<按钮>[+<图标>][+<缺省按钮>] [+<
模式>]
8
2020/10/13
说明：
1. “标题”和“提示”与InputBox函数中对应的参数相同；
2. “按钮＋图标 +缺省按钮+模式”是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式(见表4.1)
8. E-:指数是正数时在E后面不显示符号“+”，是负数时在E后面显示符号“-”。
4
2020/10/13

5.1 数据输出---Print方法
5.1.4 CurrentX、CurrentY属性
设置或返回窗体下一次输出位置的水平、垂直坐标，这两个属性只能在代码窗口使用，不能在属性窗口中直接设置，单位twip。使用对象可以是窗体或图片框，用于在Print输出前精确地定位输出位置。
第五章数据的输入与输出

VB五章课件

3. 多行文本框 . 多行文本框【例5】设计程序,用户界面由一个文本框和一个命令按钮组成, 】设计程序,用户界面由一个文本框和一个命令按钮组成, 在程序中输入一段文字.当单击命令按钮时,在文本框中将这一段在程序中输入一段文字.当单击命令按钮时, 文字显示出来.如图. 文字显示出来.如图. 在窗体上添加一个文本框和两个命令按钮.选中文本框( 在窗体上添加一个文本框和两个命令按钮.选中文本框(单击此文本框),到属性表中找到Multiline(多行) 属性,单击此属性,右 ),到属性表中找到 (多行) 属性,单击此属性, 本框),到属性表中找到端出现一个向下的箭头,单击箭头打开下拉列表, 改成Tru 端出现一个向下的箭头,单击箭头打开下拉列表,将False改成改成 e,表示为多行文本框.再设置其他属性值,属性设置如表 (见 ,表示为多行文本框.再设置其他属性值,属性设置如表5.6( 书103页)所示. 页所示.
用户单击"清除"命令按钮,清除个文本框的内容个文本框的内容, 用户单击"清除"命令按钮,清除4个文本框的内容,然后输入运算符" ,由于" 是错误的运算符所以程序执行Case 是错误的运算符, 运算符"a",由于"a"是错误的运算符,所以程序执行 Else 分支中的语句,显示提示信息,如图5.7所示. 分支中的语句,显示提示信息,如图所示. 所示
为了输入数据,可先单击文本框为了输入数据,可先单击文本框txtOp1,使光标在文本框中 , 闪烁,表示此文本框是"激活" 或称"焦点"在该文本框上. 闪烁,表示此文本框是"激活"的,或称"焦点"在该文本框上. 此时可以从键盘将被加数( 此时可以从键盘将被加数(如12)输入到文本框 )输入到文本框txtOp1中. 中再单击文本框txtOp3,使光标在其上闪烁,然后用键盘输入再单击文本框 ,使光标在其上闪烁, 加数( 加数(如36), ), 再单击"加法运算"命令按钮,以执行cmdAdd_click事件过再单击"加法运算"命令按钮,以执行事件过在文本框txtResult中显示相加之和. 中显示相加之和. 程,在文本框中显示相加之和在计算完一个题目后,如果还要继续计算,应再单击"清除" 在计算完一个题目后,如果还要继续计算,应再单击"清除" 命令按钮,以便清除原有数据. 命令按钮,以便清除原有数据.

VB6.0课件第五章

第五章VB的标准控件•应用：文本控件、图形控件、按钮控件、选择控件、滚动条控件、计时器控件、框架控件、焦点和Tab顺序的设置方法。

教学目的要求：第五章VB的标准控件5.1 文本控件5.2 图形控件5.3 命令按钮5.4 选择控件（单选按钮、复选框）5.5 选择控件（列表框、组合框）5.6 滚动条5.7 计时器控件5.8 框架5.9 焦点和Tab顺序5.1 文本控件5.5.1 标签（Label）主要用于显示文本信息。

Caption是它最常用的属性1. 标签的属性属性含义Name标签的名称。

默认Label1，Label2，…Caption标签显示内容。

默认Label1，Label2，…Visible可见性。

False：不可见；True（默认）：可见Alignment 文字对齐方式。

0--左对齐（默认），1---右对齐，2---居中对齐。

AutoSize 自动调整大小。

True：根据内容自动调整标签大小；False（默认）：标签保持设计时大小BackColor背景颜色ForeColor标签文字颜色BorderStyle标签边框。

0--无边框（默认）；1--加边框Enabled是否可用。

True（默认）：可用；False：不可用BackStyle 0：透明（不使用背景色）；1（默认）：不透明（使用背景色）标签常用事件：Click、DbClick、Change、MouseMove 5.1.2 文本框（TextBox）1. 属性属性含义Name文本框名称。

默认为Text1，Text2，Text3…Text文本框的内容MaxLength 允许文本框中输入的最大字符数。

0：最多不能超过32K。

默认值：0。

MultiLine 是否允许输入多行文本。

True：允许；False（默认），单行文本PasswordChar 口令。

默认为空字符串，输入的内容原样显示。

设置为一个字符，在输入内容时，显示的是设置的字符，实际输入的内容不变文本框能否被编辑。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

问题（1）mark只能放一个学生的成绩，无法统计高于平均 mark 分的人数。（2）若用简单变量保存100个学生的成绩，则需定义 100个变量和使用100句输入语句。由此引入了数组。
VB程序设计教程(第3版)
本章目录
5
用数组解决问题的程序如下： 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
Visual Basic
程序设计教程(第三版)
第五章
计算机与信息技术学院(九教北621室) gyan@
VB程序设计教程(第3版)
目
第1章第2章第3章第4章第5章第6章第7章
录
Visual Basic程序设计概述 VB可视化编程基础 VB语言基础 VB控制结构数组和自定义类型过程用户界面设计
全部清除
VB程序设计教程(第3版)
本章目录
27
3、重要事件
列表框：Click、DblClick 组合框：Click 例5.9编写一个能对列表框进行项目添加、修改和删除的应用程序。关键： 1）获得选中的下标ListIndex 2）不能直接修改列表框，先将选项显示在文本框中，更改文本框中内容后，再更新列表框
List1.List(List1.ListIndex)等于List1.Text
VB程序设计教程(第3版)
本章目录
26
2、常用方法
AddItem方法把一个项目加入列表对象.AddItem 项目字符串 [,索引值] 索引值：决定新增项在列表中的位置，如果省略，则新增项目添加在最后。 RemoveItem方法删除列表中指定项目对象.RemoveItem 索引值 Clear 清除列表中所有项目例如：List1.Clear
实验5 1+1 实验6 1+1
第7章
合计
用户界面设计
16周32学时(22+10)+课外10
4
22
实验7 2+2
10 + 10
VB程序设计教程(第3版)
3
第5章数组和自定义类型
5.1 5.2 5.3 5.4 5.5 数组的概念数组的基本操作和排序列表框和组合框控件自定义类型及其数组综合应用
VB程序设计教程(第3版)
本章目录
11
定义动态数组大小注意：
Dim 是说明语句，可出现在程序的任何地方，而ReDim 是执行语句，只能在过程中在过程中可多次使用ReDim语句来改变数组的大小，但不能改变维数和类型可在ReDim 后加Preserve参数用来保留数组中的数据，若使用Preserve参数后，只能改变最后一维的大小。例5.2编一个程序，显示有n个数的非波那契数序列
16
5、数组排序
排序是将一组数按递增或递减的次序排列，
例如按学生的成绩、球赛积分等排序。排序的算法有许多，常用的有选择法、冒泡法、插入法、合并排序等。（1）选择法排序基本思想：每次在若干个无序数中找最小 (大)数，并放在相应的位置。
VB程序设计教程(第3版)
本章目录
17
例对于有n个数的数组，按递增次序排序的步骤：小数与第1个数交换位置；通过这一轮排序，第1 个数已确定好。 2) 除已排序的数外，其余数再按步骤1)的方法选出最小的数，与未排序数中的第1个数交换位置。 3) 重复步骤 2)，最后构成递增序列。选择法演示
VB程序设计教程(第3版)
本章目录
21
（3）插入数据
插入数据基本思想是： 1）首先查找待插入数据在数组中的位置k； 2）然后从最后一个元素开始往前直到下标为k的元素依次往后移动一个位置； 3) 第k个元素的位置腾出，将数据插入。
④ ③ ② ①
数据插入演示
1
4
7 x
10 14
13
16 k
19
22
25
8
例：Dim mark(99) As Integer 声明了一维定长整型数组mark ，共有100个元素，下标范围为0 To 99； mark数组的各元素是mark(0)，mark(1)，…， mark(99)； mark(i)表示由下标i的值决定是哪一个元素。 mark数组内存分配如下：
mark(0) mark(1) mark(2) … mark(98) mark(99)
例5.6 用冒泡排序法实现例5.5的问题。
原始数据 a(1) a(2) a(3) a(4) a(5) a(6) 第1轮比较 a(1) a(2) a(3) a(4) a(5) a(1) a(2) a(3) a(4) a(1) a(2) a(3) a(1) a(2) 第2轮比较第3轮比较第4轮比较第5轮比较 8 6 9 3 2 7 6 8 3 2 7 9 6 3 2 7 8 9 3 2 6 7 8 9 2 3 6 7 8 9 2 3 6 7 8 9
MsgBox (" 平均分 :" & aver & " 高于平均分人数 :" & overn)
mark(0)
mark(1)
mark(2)
…
mark(98) mark(99)
本章目录
VB程序设计教程(第3版)
6
数组: 不是一种数据类型，而是一组相同类型的变量的集合。作用：用一个数组名代表逻辑上相关的一批数据，用下标表示该数组中的各个元素，和循环语句结合使用，使得程序书写简洁。使用：必须先声明后使用
例5.7在有序数组a中插入数值x。
VB程序设计教程(第3版)
本章目录
22
（4）删除数据
然后从k+1到n个位置开始向前移动；
最后将数组元素减1。
① ② ③ ④ ⑤
删除操作首先也是要找到欲除的元素的位置k；
1
4
7
10
13 k
14
16
19
22
25
数据删除演示
例5.8要将值为13的元素删除。
VB程序设计教程(第3版)
VB程序设计教程(第3版)
本章目录
14
3、求数组和、最值、位置
例5.4 求一维数组中各元素之和、最小数组元素，并将最小值数组元素与数组中第一个元素交换求元素和通过循环将每个元素进行累加求数组中最小元素假设第一个元素为最小，然后将该数与其他元素逐一比较，若发现小于最小值，就用新值替换最小值，同时记录下标值。求最大值的方法与求最小值相似
VB程序设计教程(第3版)
本章目录
4
1. 引例
5.1 数组的概念
例5.1 求100个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环，求平均成绩程序段如下：
aver = 0 For i = 1 To 100 mark = InputBox("输入学生成绩") aver = aver + mark Next i aver = aver / 100
VB程序设计教程(第3版)
本章目录
28
4、应用
每个数组元素有一个唯一的顺序号，下标不能超出数组声明时的上、下界范围，否则会产生“下标越界”错误。数组元素的使用规则与同类型的简单变量相同
VB程序设计教程(第3版)
本章目录
9
多维数组声明
Dim 数组名(([下标1下界 To] 上界1， ([下标下界2 To] 上界2…) [As 类型] 下标数决定了数组的维数，数组的大小为每一维大小的乘积。例 Dim x(2,4) As Long 声明了一个长整型的二维数组 x；共占据3×5个长整型变量的空间
VB程序设计教程(第3版)
本章目录
1) 从n个数中找出最小数的下标，出了内循环，最
18
例5.5 对已知存放在数组中的6个数，用选择法按递增顺序排序。
原始数据 a(1) a(2) a(3) a(4) a(5) a(6) 第1轮比较 8 6 9 3 2 7 2 6 9 3 8 7
a(2) a(3) a(4) a(5) a(6) 第2轮比较
a(3) a(4) a(5) a(6) 第3轮比较 a(4) a(5) a(6) 第4轮比较 a(5) a(6) 第5轮比较选择法排序过程示意 VB程序设计教程(第3版)
2 3 9 6 8 7
2 3 6 9 8 7 2 3 6 7 8 9 2 3 6 7 8 9
本章目录
19
（2）冒泡法排序
基本思想是：
本章目录
23
5.3 列表框和组合框
列表框和组合框实质是一维字符串数组的使用列表框可显示多个选项供用户选择，不能直接修改其中的内容。组合框组合了文本框和列表框的特性而形成的一种控件。组合框有3种式样。
VB程序设计教程(第3版)
本章目录
24
1、列表框和组合框重要属性
(1) List List是一个集合
x(0,0) x(0,1) x(0,2) x(0,3) x(0,4)
x(1,0) x(2,0)
x(1,1) x(2,1)
x(1,2) x(2,2)
x(1,3) x(2,3)