VB实习四数组与自定义数据类型.docVIP

实习四 数组与自定义数据类型 一、实习目的 1.理解数组的概念、分类，数组定义方法； 2.掌握数组的操作（赋值、运算、输出）的基本方法； 3.掌握与数组有关的算法； 4.理解自定义数据类型； 5.了解控件数组。 二、实习内容 1.掌握一维数组的定义、赋值和输出方法； 2.理解静态数组与动态数组的区别和使用 3.掌握一维数组基本应用和有关算法（统计、求极值、排序、查询）等； 4.掌握二维数组程序设计方法和的基本应用； 5.完成课后编程习题。 6.阅读教材自定义数据类型和控件数组的内容，通过上机验证进一步理解。 三、程序算法及代码 课本习题验证： 例题5-1、 界面设置： 数据来源： 属性结果： 代码编写：Private Sub Command1_Click() Dim sum!, aver!, i%, x!(1 To 10) Open c:\000.txt For Input As #1 aver = 0 For i = 1 To 10 Input #1, x(i) Print 第 i 个学生的成绩为： x(i) aver = aver + x(i) Next i Close aver = aver / 10 Print 平均分为： aver Print =======以下成绩高于平均分======= For i = 1 To 10 If x(i) aver Then Print 第 i 个学生成绩为： x(i) End If Next i End Sub 例题5-2 代码编写：Private Sub Command1_Click() Dim aver!, i%, n%, x!() Open c:\000.txt For Input As #1 aver = 0 n = 0 Do Until EOF(1) n = n + 1 ReDim Preserve x(n) Input #1, x(n) Print 第 i 个学生的成绩为： x(n) aver = aver + x(n) Loop Close aver = aver / n Print 平均分为： aver Print =======以下成绩高于平均分======= For i = 1 To n If x(i) aver Then Print 第 i 个学生成绩为： x(i) End If Next i End Sub 属性结果： 例题5-3、 属性结果： 代码编写： Private Sub Command1_Click() Dim a(), x% a = Array(sunday, monday, tuesday, wednesday, thursday, friday, saturday) Do x = InputBox(请输入0-6之间的一个数字) Loop While x 6 Or x 0 MsgBox a(x) End Sub 例题5-4 属性设计： 属性结果： 代码编写：Private Sub Command1_Click() Dim a$(), x a = Split(Text1.Text, ，) For Each x In a i = i + 1 Picture1.Print Tab(6 * (i Mod 10) + 1); x; Next x If i Mod 10 = 0 Then Print End Sub 例题5-5 属性： 属性结果： 代码编写：Private Sub Command1_Click() Dim x% Open c:\000.txt For Input As #1 Text1 = Do Until EOF(1) Input #1, x Text1 = Text1 x ， Loop Text1 = Left(Text1, Len(Text1) - 1) Close End Sub Private Sub Command2_Click()