Visual Basic 6.0程序设计案例教程 教学课件 作者 宫强 模块五.pptVIP

模块五 数组  任务一 输出如下数字图形 任务三 统计字符 任务四 画图演示 任务五 数字排序 任务二 求最大、最小值 任务六 颜色游戏 任务分析 任务分析: 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中可以直接将一个数组的值赋值给另一个数组 四、数组元素的输出 用For……Next循环语句可以把数组元素输出 理论知识 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、窗体添加标签框、文本框和按钮控件 ,设置属性 Height:375，Width:855；Caption:统计 Button 统计 Height：975，Width:4935 PictureBox 结果 Height：975，Width:5535 TextBox 判断字符 Caption：统计结果 Lable 提示 Caption：请输入判定字符串 Lable 提示 Height:6615，Width:9150；Caption: 统计 Form 窗体Form1 调整内容 控件类型 调整对象 任务实施 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