Visual Basic 6.0程序设计案例教程 教学课件 ppt 作者 宫强 模块五
模块五 数组,任务一 输出如下数字图形,任务三 统计字符,任务四 画图演示,任务五 数字排序,任务二 求最大、最小值,任务六 颜色游戏,任务分析: 5行数据输出，使用For/Next循环控制；每列数字都是乘以行数+当前的列数得到的，所以使用双重循环实现。,理论知识: 一个变量只能存放一个数据，当需要处理的数据比较多时，如果使用大量不同名的简单变量，处理起来很不方便。这时就希望同一类的变量有一个相同的名字，而用编号来区分它们，这种带有“编号”的同名变量的集合就是数组。 数组元素：数组中的某一个数据项。数组元素的使用同简单变量的使用。 一、静态数组及声明 形式: Dim 数组名(下标1,下标2) As 类型 二、动态数组及声明 形式如下： Dim 数组名( ) ReDim 数组名(下标1，下标2) As 类型,1、代码编写 For i = 0 To 4 For j = 0 To i sc(i, j) = i * 5 + j Print sc(i, j); “ “; Next j Print ' 换行 Next i,返回,任务分析: 求数组中最大元素及所在下标及各元素之和。,理论知识: 一、数组元素的赋初值。 (1)用循环 (2) Array函数 二、数组元素的输入 (1)通过InputBox函数输入，适合输入少量数据 (2)通过文本框控件输入 三、数组元素的赋值 在VB中可以直接将一个数组的值赋值给另一个数组 四、数组元素的输出 用ForNext循环语句可以把数组元素输出,1、代码编写 Dim Max, i, iMax, s, iA(1 To 10) As Integer For i = 1 To 10 iA(i) = InputBox(i) ' 给数组赋初值 Next i Max = iA(1): iMax = 1: s = iA(1) For i = 2 To 10 s = s + iA(i) ' 累计求和 If iA(i) Max Then Max = iA(i) ' 找最大值 iMax = I ' 找最大值下标 End If Next i For i = 1 To 10 Print iA(i) ' 输出数组值 Next i Print s, Max, iMax ' 输出数组元素和、最大值及下标,返回,任务分析: 输入一串字符，统计各字母出现的次数，不区分字母大小写。 1、数组定义。统计26个字母出现的个数，先声明一个具有26个元素的数组，每个元素的下标表示对应的字母，元素的值表示对应字母出现的次数。 2、从输入的字符串中逐一取出字符，转换成大写字符（不区分大小写)，进行判断。 3、字母所对应的ASCII码。Asc(“A”)=65 Asc(“Z”)=122 Asc(“a”)=97 Asc(“z”)=90。,1、创建窗体,2、窗体添加标签框、文本框和按钮控件 ,设置属性,3、代码编写 Private Sub Command1_Click() Picture1.Cls Dim n As Integer Dim a(1 To 26) As Integer Dim c As String * 1 le = Len(Text1.Text) For i = 1 To le c = UCase(Mid(Text1, i, 1) If c = “A“ And c = “Z“ Then j = Asc(c) - 65 + 1 a(j) = a(j) + 1 End If Next i （接下页）,3、代码编写 For i = 1 To 26 （接上页） If a(i) 0 Then Picture1.Print Chr(i + 64); “=“; a(i), End If Next End Sub,4、结果显示,返回,任务分析: 建立含有6个命令按钮的控件数组，当单击其中的命令按钮时，分别显示不同的图形或结束操作。 由于命令按钮比较多，如果是独立的按钮，编程比较麻烦，使用下标进行按钮的管理比较简单，所以使用控件数组。 使用Select/Case语句实现不同画图的功能。数组控件的下标作为每一条Case语句的值 。,理论知识: 控件数组是由 一组相同类型的控件组成。它们共用一个控件名，具有相同的属性，建立时系统给每个元素赋一个唯一的索引号(Index)，通过属性窗口的Index属性，可以知道该控件的下标是多少，第1个下标是0。 1、设计时建立控件数组 2、运行时添加控件数组,返回,1、创建窗体 2、窗体添加图片框和按钮控件 ,设置属性 3、代码编写,任务分析: 使用冒泡法将数组元素进行排序。 技能要点提示： 1）添加标签、文本框、按钮控件。 2）正确设置控件属性。 3）部分编写代码。,1、窗体创建,返回,2、代码编写,任务分析: 在窗体上建立一个标签控件数组，每个标签显示不同的颜色。当点击“一次添加8个”按钮时，显示8个颜色框；当点击“单个添加”按钮时，显示1个颜色框。,1、创建窗体,2、控件设置：,返回,
