VB程序设计教程 第四版 第5章第4节
合集下载
《Visual Basic程序设计》第5章-邵洁主编-第四版
End Sub
Visual Basic 程序设计
定义时指明大小，运行 时不变
固定大小的数组
动态数组
在声明数组时未给出数 组的大小,在程序运行期 间可变
Visual Basic 程序设计
例如： Dim sArray( ) As Single 在窗体级声明了数组sArray为 Sub Form_click( ) 动态数组，在Form_click( )事 …… ReDim sArray(4,8) 件函数中重新指明该数组的大 …… 小是5行9列。 End Sub
Visual Basic 程序设计
⒉ 多维数组
格式：
Dim|Private| Public| static 数组名 ([维界定义]) [As 数组类型]
说明：此时的维界定义是对两维下标的定义。每一维的大 数组声明中定义的数组名，用来说明数组的名字、 小为：上界－下界＋1；数组的大小为每一维大小的乘积。 维数、大小和类型。数组元素是数组中的一个成员， 只能放在可执行语句中。两者虽然形式相同但意义不 同。
☆ 数组元素是带有下标的变量，其一般形式为：
数组名（下标1 [，下标2，……]） 如： A(2) B(2+2,1) C(1*2,3,1)
A(2) =(A(0) A(1) A(2)) B(0,0) B(1,0) B(2,0)
第1列
B(2,1) =
B(0,1) B(1,1) B(2,1)
第2列
第1行 第2行 第3行
② 下标的形式是：[下界 To ]上界。一般情况下，当[下界 To]缺省
时，默认值为0。下界≤上界。维的大小是：上界－下界＋1。维 界说明如果不是整数，将自动进行四舍五入处理。
③ As 数据类型： 用来说明数组元素的类型，如果缺省，默认 为是变体型（Variant）。 例如： Dim a (12) As Single ˊ声明a数组为单精度型，下标范围为 0～12. Dim x (1 To 50 ) As Integer ˊ声明x数组为整型,下标范围为1～ 50. Dim y (1 To 10 ) ˊ声明y是一个下标范围为1到10的变体 型数组.
Visual Basic程序设计第5章
Dim s As Integer, x As Integer s = 0: x = 0 Do While x < 100
x=x+2 s=s+x Loop Print "1～100所有偶数的和="; s End Sub
在循环体中应该有对循环条件进行修改的 语句，以免进入死循环。
中国农业出版社
Visual Basic 程序设计
第5章 循环结构程序设计
例5.6 人口增长问题。假设我国现有人口13亿，若年增 长率为1.5%，试计算多少年后我国人口增加到或超过 15亿；若年增长率为1.8%呢？
分析：人口增长的计算公式为：p=y(1+r)n。y为人 口初值，r为年增长率，n为年数。
中国农业出版社
Visual Basic 程序设计
End Sub
思考：Do…Loop While循环语句与Do While…Loop 循环语句的区别
中国农业出版社
Visual Basic 程序设计
第5章 循环结构程序设计
5.2.3 Do Until…Loop循环语句 Do Until…Loop循环语句又叫“直到型循环”语句。
1．Do Until…Loop循环语句的格式 Do Until <条件> [<循环体>] [Exit Do] Loop
1．Do…Loop While循环语句的格式 Do [<循环体>] [Exit Do] Loop while <条件>
2．Do…Loop While循环语句的执行过程: 先执行循环体，然后判断“条件”，根据
“条件”决定是否再次执行循环体。如果“条件” 成立（值为真），则再次执行循环体；如果某次 判断“条件”不成立（值为假），则退出循环。
x=x+2 s=s+x Loop Print "1～100所有偶数的和="; s End Sub
在循环体中应该有对循环条件进行修改的 语句，以免进入死循环。
中国农业出版社
Visual Basic 程序设计
第5章 循环结构程序设计
例5.6 人口增长问题。假设我国现有人口13亿，若年增 长率为1.5%，试计算多少年后我国人口增加到或超过 15亿；若年增长率为1.8%呢？
分析：人口增长的计算公式为：p=y(1+r)n。y为人 口初值，r为年增长率，n为年数。
中国农业出版社
Visual Basic 程序设计
End Sub
思考：Do…Loop While循环语句与Do While…Loop 循环语句的区别
中国农业出版社
Visual Basic 程序设计
第5章 循环结构程序设计
5.2.3 Do Until…Loop循环语句 Do Until…Loop循环语句又叫“直到型循环”语句。
1．Do Until…Loop循环语句的格式 Do Until <条件> [<循环体>] [Exit Do] Loop
1．Do…Loop While循环语句的格式 Do [<循环体>] [Exit Do] Loop while <条件>
2．Do…Loop While循环语句的执行过程: 先执行循环体，然后判断“条件”，根据
“条件”决定是否再次执行循环体。如果“条件” 成立（值为真），则再次执行循环体；如果某次 判断“条件”不成立（值为假），则退出循环。
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程序设计教程(第四版)龚沛曾习题答案
VB程序设计教程（第四版）龚沛曾课后习题答案目录：第1章Visual Basic程序设计入门第2章面向对象的可视化编程基础第3章VB程序设计基础第4章基本控制结构第5章数组第6章过程第7章用户界面设计第8章数据文件第9章图形操作第10章ADO数据库编程基础第3章1、合法的有：（1）单精度（3）单精度（4）双精度（6）整形（7）字符型（9）日期型（10）双精度（12）八进制表示（14）十六进制表示（15）逻辑型（18）单精度数2、合法变量有：（1），（2），（6），（9），（10），（11）3、算术表达式写成VB表达式（1）abs(x+y) +z^5（2）（1 + x * y ）^ 6（3）(10*x + sqr(3*y) ) / (x * y )（4）( -b+sqr(b^2-4*a*c) )/2/a（5）1 / (1/r1+1/r2+1/r3)（6）sin(45*3.14/180)+ ( exp(10)+ log(10) )/ sqr( x+y+1)4、根据条件写出相应的VB表达式(1) chr( int ( Rnd * 10 +67 )(2) int ( Rnd * 101 +100 )(3) x * y >0(4) x/5=0 or x /7 =0(5) (x mod 10) 10 + x /10(6)Round(123.2389*100)/100(7) Ucase (c ) >=‖A‖and Ucase(c )<=‖Z‖or Lcase (c ) >=‖a‖and Lcase(c )<=‖z‖(8) Mid ( s, 5, 6 )(9) x >=10 and x <20(10) ( x < z and y >z ) or ( x >z and y < z)(11) x>z and y > z5、下出下列表达式的值:（1）123+23 mod 10 \ 7 +Asc(―A‖)【188】（2）100+‖100‖& 100 【200100】（3）Int ( 68.555*100+0.5)/100 【68.56】（4）已知A$=“87654321‖，求表达式Val(Left$(A$,4)+ Mid(A,4,2))的值【876554】（5）DateAdd(―m‖,1,#1/30/2000#) 【2000-2-29】（6）Len（‖VB程序设计‖）【6】6、利用shell函数在VB程序中分别指向画图word程序。
VB程序设计教程第四版
Icon
ForeColor BackColor
Picture
字符串
用于设置窗体中要显示的图片
9
‹#›
窗体的常用方法有： Print Move Cls
form1.print Form1.move Form1.cls
在窗体上输出信息 移动窗体或控件 清除窗体或图形框中的内容
11
例 1- 3： 当用户运行程序，在标题栏显示“装入窗体”；单击窗体，在标题栏 显示“鼠标单击”，在窗体上显示“单击窗体”；当用户双击窗体，在标题 栏显示“鼠标双击”，并在窗体上显示“双击窗体”。
12
2.3
控件
2.3.1 内部控件
13
2.3.2 控件的命名和控件值
1、控件的命名 原则是见名知义，提高可读性，从名字上看出对象的类型 建议(注意，不是规定)用3个小写字母作为Name（控件名称）的前缀。书上 表2.3列出了窗体和内部控件建议使用的前缀(P25) 2 、控件值 Visual Basic为每个控件规定了一个默认属性，在设置这样的属性时，不必给 出属性名，通常把该属性称为控件的值。控件值是一个控件的最重要或最 常用的属性。 Eg: text1.text=“vb程序设计” 等价于 text1 =“vb程序设计” 此处，text就是文本框的控件值 (部分控件的控件值，参见表2.4， P26) 省略控件值可以节省代码，但会降低程序的可读性，所以建议显式引用控 件值。
8
FontBold
FontItalic
FontStrikethru
逻辑值
逻辑值
逻辑值 逻辑值
FontUnderline
窗体的主要属性 (3)
属性名 MaxButton MinButton ControlBox 属性值 逻辑值 逻辑值 逻辑值 说 明 用于设置窗体右上角的最大化按钮，True：有； False：无 用于设置窗体右上角的最小化按钮，True：有； False：无 用于设置窗口控制框的状态，True：有；False： 无 用于设置窗体最小化（windowstate=1）时的图标。 该属性只适用于窗体（通常是.ico格式的图标文件） 整数 整数 用于设置窗体或对象的前景颜色 用于设置窗体或对象的背景颜色
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章循环结构程序设计
输入m，n
大数放m,小数放n 除数d=1
当d<=n 如果m、n都能 被d整除， 则max ← d d=d+1 输出max
求两个正整数的最大公约数。
分析：求最大公约数可以用
［例5.4]输入两个正整数，递减法求最 大公约数。 输入m，n
大数放m,小数放n 除数d=n
当d>=1
如果m、n都能被d 整除，则max ← d, 退出循环
输入m，n 大数放m,小数放n 求得m对n的余数r 当r<>0 m←n n ←r 求m对n的余数r 输出n
求两个正整数的最大公约数。
分析：求最大公约数可以用
［例5.4]输入两个正整数，递增法求最 大公约数。 输入m，n
大数放m,小数放n 除数d=1
当d<=n 如果m、n都能 被d整除， 则max ← d d=d+1 输出max
步长为正时，超过—循环变量大于终值使循环结束 步长为负时，超过—循环变量小于终值使循环结束 5、一般在循环体中不对循环变量重新赋值， 否则影响循环的次数控制。
步长为负时
0
1.5
3
初值送循环变量
For I = 3 To 0 Step -1.5 Print I Next Print "After For :"; I For I = 0 To 3 Step -1.5 Print I Next Print "After For :"; I
说明： （l）条件为True ,（循环体语句列）将被重复执行
作业：
例题 5-1、5-4 ～ 5-6 选做5-2、5-3 5.6习题
xt5-1 ～xt5-4 选做xt5-5
VB第5章 循环结构程序设计
教案讲稿第五章循环结构程序设计[旧课复习]：复习内容：1.多分支选择结构语句2.选择结构的嵌套复习目的：学生回顾多分支选择结构的实现语句和嵌套语句的使用复习时长：大约8分钟[新课导入]：导入方式：以日常生活中的实例让学生理解什么是循环结构导入目的：增强学生的理解能力导入时长：大约7分钟[新课讲授]：重点：Do…Loop和For…Next循环语句的使用难点：多重循环语句的使用方法：运用多媒体辅助教学，采用讲授法和案例教学法5.1循环语句循环结构是专门用于实现有规律的重复性操作的算法结构，是结构化程序设计的3种基本结构之一。
所谓循环，是指在一定的条件下多次重复执行一组语句。
循环结构由两部分组成。
（1）循环体：即要重复执行的语句序列。
（2）循环控制部分：指定循环条件来控制重复次数的语句。
正常情况下，循环次数必须是有限的。
5.1.1 Do…Loop语句若事先不知道循环次数，只知道循环结束条件，可以使用Do…Loop循环。
Do…Loop循环语句有前测型循环和后测型循环两种语法结构。
1. 前测型Do…Loop循环前测型循环是先判断条件，根据条件成立与否决定是否执行循环体，这种情况下，循环体有可能一次都不被执行。
前测型循环有两种语法格式：格式1（当型前测型）：Do While〈条件〉[〈语句列1〉][ Exit Do ][〈语句列2〉]Loop格式2（直到前测型）：Do Until 〈条件〉[〈语句列1〉][ Exit Do ][〈语句列2〉]Loop说明：（1）当VB执行Do While…Loop循环时，先判断指定的条件，若条件为True，执行循环体，条件为False时退出循环；当执行Do Until…Loop循环时，先判断指定的条件，若条件为False，执行循环体，条件为True时退出循环。
（2）〈条件〉是条件表达式，为循环的条件，其值为True或False。
如果省略条件即条件为Null，则条件会被当作False。
VB程序设计第五章 PPT课件
5.3 标准文件输入/输出
Print#语句输出与Write语句输出的区别： （1）Print#语句在输出项中，用逗号分隔输出项， 可按分区格式输出；Write#语句用逗号分隔输出 项，不按分区格式输出，而是在输出项之间用逗 号分隔。对于Write语句，采用逗号分隔输出项还 是用分号分隔输出项没有差别。 （2）Print#语句生成的数据文件，数据项之间没 有逗号，而用Write#语句生成的数据文件，会在 文本上自动添加双引号，数据项之间有逗号。
5.3 标准文件输入/输出
2、顺序文件的写操作 3）输出项之间使用逗号分隔时，按分区格式输出 到文件，10列为一个分区。 4）在输出项中可使用spc(n)函数输出n个空格，使 用Tab(n)函数指定其后的输出项从n列开始输出。 5）Print #语句的末尾可以加分号、逗号或不加任何 符号。加分号表示下一个Print #语句的输出项不换 行，直接按紧凑格式输出；加逗号表示下一个Print #语句的输出项不换行，按分区格式输出；不使用 任何符号时，下一个Print #语句的输出项换行输出。
5.3 标准文件输入/输出
Private Sub Command1_Click() Open "j:\printtest.txt" For Output As #1 Print #1, "Print # 语句测试" Print #1, Print #1, "第一分区"; "第二分区" Print #1, "你好！", 2 * 3, 2 + 3 Print #1, Spc(2); "输出两个空格" Print #1, Tab(5); "从第五列开始输出" Print #1, "行 1" Print #1, 5; 6; -8 Close #1 MsgBox "j:\printtest创建成功！" End Sub
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
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程序设计教程第四版
• 定义：对象的某种特征。 • 举例：对象"标签"具有标题（Caption）、字体大小
（Fontsize）等属性。
2
2.1 对象及其属性设置
属性设置方法有以下两种：
1. 通过属性窗口设置属性
• 直接键入新属性值 (caption属性:实验一） • 通过下拉列表选择所需要的属性
(controlbox属性：true,false)
显示多个窗体时，可以从一个窗体切换到另一个窗体。每次激活一个窗 体时，发生Activate 事件，而前一个窗体发生Deactivate事件。通过单击 或SHOW方法等可以把窗体变为活动窗体。
11
窗体的常用方法有： Print 在窗体上输出信息 Move 移动窗体或控件 Cls 清除窗体或图形框中的内容
5
2.1 对象及其属性设置
例如：在窗体上利用print方法显示信息“欢迎使用 VB6.0” 。
6
2.2 窗体
2.2.1 窗体的结构与属性
1. 窗体的结构
系统菜单 标题栏
最 小 化 按 最大化按Idth
ｈｅｉｇｈｔ
7
窗体的主要属性 (1)
属性名
属性值
说明
Name
字符串 用于设置窗体的“名称”，中英文均可，默认名称为Form1
第二章 对象
对象是Visual Basic中的重要概念。本 章将讨论最基本的两种预定义对象，即 窗体和控件
1
2.1 对象及其属性设置
2.1.1 Visual Basic的对象
1. 什么是对象 定义： 一个具有属性和方法的实体。 举例： 窗体、控件、文本框、列表框等。 2. 对象三要素：属性、事件、方法 （1）对象属性
边的距离
（Fontsize）等属性。
2
2.1 对象及其属性设置
属性设置方法有以下两种：
1. 通过属性窗口设置属性
• 直接键入新属性值 (caption属性:实验一） • 通过下拉列表选择所需要的属性
(controlbox属性：true,false)
显示多个窗体时，可以从一个窗体切换到另一个窗体。每次激活一个窗 体时，发生Activate 事件，而前一个窗体发生Deactivate事件。通过单击 或SHOW方法等可以把窗体变为活动窗体。
11
窗体的常用方法有： Print 在窗体上输出信息 Move 移动窗体或控件 Cls 清除窗体或图形框中的内容
5
2.1 对象及其属性设置
例如：在窗体上利用print方法显示信息“欢迎使用 VB6.0” 。
6
2.2 窗体
2.2.1 窗体的结构与属性
1. 窗体的结构
系统菜单 标题栏
最 小 化 按 最大化按Idth
ｈｅｉｇｈｔ
7
窗体的主要属性 (1)
属性名
属性值
说明
Name
字符串 用于设置窗体的“名称”，中英文均可，默认名称为Form1
第二章 对象
对象是Visual Basic中的重要概念。本 章将讨论最基本的两种预定义对象，即 窗体和控件
1
2.1 对象及其属性设置
2.1.1 Visual Basic的对象
1. 什么是对象 定义： 一个具有属性和方法的实体。 举例： 窗体、控件、文本框、列表框等。 2. 对象三要素：属性、事件、方法 （1）对象属性
边的距离
vb程序设计教程vb4
If x >= 0 Then y = 2*Sqr(x+7)-6 缩格输入
Else y = 5*x+Exp(x)-2
End If Text2.Text=Str(y) 向文本框放数据
End Sub
8
cmdCalculate
Private Sub cmdExit_Click() End
End Sub
Private Sub cmdClear_Click()
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Score As Integer, Degree As String
If KeyAscii = 13 Then
Score = Val(Text1.Text)
Select Case Score
Case 90 To 100
If <条件> Then <语句块1>
逻辑框图
10
中国药科大学
计算机教研室
4.2.1 If-Then-Else-End If语句
Visual Basic 程序设计
2.嵌套的If结构: 在If语句的“语句块”中包含另一个 If语句，叫做嵌套的If结构。
If <条件1> Then
‘外层
…
If <条件2> Then
特点：
Text2.Text = Degree
End If
End Sub
18
结构清晰。
中国药科大学 计算机教研室
4.2.2 多分支Select-Case-End Select语句
[格式]：Select Case <测试表达式>
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
ListCount-1上界 ListCount 个数
对应 个数
下标
ListIndex当前选定下标
Text 项目内容
数组元素 a(i)
List1. List(List1. ListIndex) List1.Text
VB程序设计教程
本书目录
本章目录
5
Sorted
程序运行期间列表框或组合框的选项是否按字 符码值自动排序。 默认为False 问题：
VB程序设计教程
本书目录 本章目录
7
五、主要事件
列表框：Click、DblClick 组合框：Click 例5.10 编写一个能对列表框进行项目添加、修 改和删除的应用程序。
修改列表框，分三步： 选项显示在文本框中;
更改文本框中内容;
再更新列表框中选项
VB程序设计教程
本书目录 本章目录
8
六、应用
Visual Basic 程序设计教程
VB程序设计教程
本书目录
第五章 数 组
5.1 5.2 5.3 5.4 5.5 5.6 5.7 数组的概念 数组声明和初始化 数组的常用操作 可视化数组—列表框和组合框 结构类型及其数组 综合应用 自主学习—控件数组
VB程序设计教程
本书目录
本章目录
2
Hale Waihona Puke 5.4 列表框和组合框一、问题的提出
数组：系统为其在分配了连续的内存空间，存放同种 种性质的数据； 若要显示数组每个元素的值，只能通过循环语句。 若要进行排序、插入、删除操作，有相应算法。 列表框和组合框：实质是可视化一维字符串数组 利用属性可以直接访问某选项、排序操作
利用方法可以方便地删除、插入操作
VB程序设计教程
本书目录
对10个随机产生的1～20的正整数，小到大排 序，有几种方法？哪个最简便？
VB程序设计教程
本书目录
本章目录
6
四、常用方法
AddItem方法 把一个项目加入列表 对象.AddItem 项目字符串 [,索引值] 索引值：决定新增项在列表中的位置，如果省 略，则新增项目添加在最后。 RemoveItem方法 删除列表中指定项目 对象.RemoveItem 索引值 Clear 清除列表中所有项目 例如：List1.Clear
例5.11编写一个 使用屏幕字体、 字号的程序
问题：如何只显示汉字字体？
例5.12使用列表框实 现插入、删除、查找
例5.13使用组合框对 省和直辖市名称管理
VB程序设计教程
本书目录 本章目录
9
本章目录
3
二、列表框与组合框区别
列表框：只能显示选项，不能直接修改。 组合框：组合了文本框和列表框，有3种式样。
列表框
组合框 Style
VB程序设计教程
本书目录
本章目录
4
三、主要属性
建立的List1控件 List集合 数组声明 数组名 上界 a 10、UBound(a) 11 i Dim a$(10)