[工学]复习-第5章-数组及结构类型例题部分隐藏.ppt

* * * * * * * * * * 结构变量成员的引用 引用结构类型变量中的某个成员，形式如下： 结构类型变量名.成员名 例如， Student.Name Student变量中的姓名 Student.Sex性别 可利用With语句简化成员引用： With 结构变量对象名 语句块 End With With student .Name = 张华 .Sex = 男 .School=同济大学 End With 本章目录 * 4.结构数组及应用 例5.9 利用结构类型，声明一个结构数组，输入不超过100个个学生的信息，显示全部信息和查询某学校的学生情况。 分析：自定义一个记录类型，由姓名、组成，声明一个存放最多100个记录的数组，在标准模块自定义类型如下 本章目录 代码说明 * 在窗体模块的声明的结构数组和n变量如下： Dim stud(99) As studType? Dim n% 存放当前已输人的学生人数 输入学生的各项信息 ? Sub Button1_Click(……) Handles Button1.Click If n = 100 Then 最多可接受100个人数 MsgBox(输入人数超过数组声明的个数) Else With stud(n) .Name = Trim(TextBox1.Text) .Sex = CChar(TextBox2.Text) .Telephone = CLng(TextBox3.Text) .School = TextBox4.Text End With TextBox1.Text = : TextBox2.Text = : TextBox3.Text = : TextBox4.Text = n = n + 1 End If End Sub * 显示已输入学生的各项信息 Sub Button2_Click(……) Handles Button2.Click Dim i% Label5.Text = 姓名 性别 电话 学校 vbCrLf Label5.Text = --------------------- vbCrLf For i = 1 To n With stud(i) Label5.Text = .Name .Sex .Telephone .School vbCrLf End With Next i ? End Sub * 查询某学校的学生 Sub Button3_Click(……) Handles Button3.Click Dim TSchool As String, i% TSchool = InputBox(请输入欲查询的学生) Label6.Text = 姓名 学校 vbCrLf For i = 1 To n If stud(i).School = TSchool Then Label6.Text = stud(i).Name stud(i).School vbCrLf End If Next i? End Sub * 5.6 综合应用-分类统计 1.分类统计 将一批数据按条件统计每一类中包含的个数。例如，统计学生成绩优、良、中、及格、不及格人数。这类问题要掌握分类条件表达式的书写和使用计数变量保存相应的计数。 本章目录 * 综合应用-分类统计 例5.10 输入一串字符，统计各字母出现的次数 统计26个字母出现的个数，必须声明一个具有26个元素的数组A（25），每个元素的下标表示对应的字母，元素的值表示对应字母出现的次数。 从输入的字符串中逐一取出字符C，转换成大写字符(不区分大小写)，再求得其在数组中的下标。 关键表达式：j=Asc(UCase(c))-65 A(j)=A(j)+1 本章目录 A(0) A(1) A(2) A(23) A(24) A(25) “A” “B” “C” “X” “Y” “Z” * 综合应用-数据输入 2. 大量数据的输入和编辑 在财务、工程计算中，经常需要对大量的数据进行输入和编辑。可利用文本框通过编程来实现。 例5.11输入一系列的数据，输入结束将它们按分隔符分离后存放在数组中。对输入的数据允许修改和自动识别非数字数据。 本章目