vb第五章..pptVIP

* 提问 存储一个班级中 5 名学员的信息（学号、姓名、性别和成绩） I. 使用数组 Mary John Peter Rose Kate F M F M F 01 02 03 04 05 89 78.5 67 97.5 64 解决方案： 不能建立数组间的关系 II. 使用多维数组 Mary John Peter Rose Kate F M F M F 01 02 03 04 05 89 78.5 67 97.5 64 VB 语言不允许一个数组包含多种数据类型 III. 使用记录 VB 能自定义数据类型 num name sex score Type 自定义类型名 元素名[(下标)] As 类型名 … [元素名[(下标)] As 类型名] End Type Type Student num As String*6 ‘学号 name As String*8 ‘姓名 sex As String*1 ‘性别 mark As Single ‘课程成绩 End Type 自定义数据类型定义位置 1、标准模块中定义，默认 为Public 2、窗体层定义，需要加上 Private 自定义数据类型 自定义类型变量： Dim 变量名 As 自定义数据类型名 例题1 学号 姓名 成绩1 成绩2 成绩3 总分 平均分 001 Liu 89 88 87 264 88 Type student no As String * 8 name As String * 8 mark(1 to 3) As integer total as integer aver As Integer End Type Dim a As Student a.No = 001 a.mark(1) = 89 例题2 输入5个学生的学号、姓名和3门课的成绩，计算每个学生的总分和平均分，打印学生成绩单。 学号 姓名 成绩1 成绩2 成绩3 总分 平均分 001 Liu 89 88 87 264 88 002 Li 90 91 92 273 91 003 Qiu 78 79 80 228 79 004 Xie 85 86 84 255 85 005 Mao 64 65 63 195 65 For i=1 to 5 A(i).no=00 i A(i).name=Text1.text For j=1 to 3 A(i).mark(j)=val(inputbox()) A(i).total=A(i).total+A(i).mark(j) Next j A(i).aver=A(i).total/3 Text2.text =A(i).aver Next i Dim A(1 To 5) As Student Dim a(1 To 5) As Student Dim a(1 To 5) As Student With a(i) .num = Text1.Text .name = Text2.Text .mark(1) = Val(Text3.Text) .mark(2) = Val(Text4.Text) .mark(3) = Val(Text5.Text) .total = .mark(1) + .mark(2) + .mark(3) Text6.Text = .total .aver = .total / 3 Text7.Text = .aver End With 第五章 作业 一、 二、 三、 2 5 8 9 1、解释数组的含义 * * * 以前我们都是采用计算机为我们设计好的变量类型，我们是否可以创造属于自己的变量类型 * For i =1 To 10\2 t=iA(i) iA(i)=iA(10-i+1) iA(10-i+1)=t Next I 5. 将数组中各元素交换 格式: ERASE 数组名[,数组名]… 例 编写程序,试验ERASE语句的功能 Static Sub Form_Click()