vb第十四章重点笔记

　★掌握动态数组的定义与使用 　　★熟悉控件数组的建立及使用 　　1. 动态数组的概念：程序在运行过程中，其元素个数（大小）可以改变的数组 　　2. 动态数组说明的一般格式： 　　（说明数组时不指明维数及下标范围） 　　dim 数组名（） [as 数据类型] 　　当可以确定数组元素大小时对动态数组再次说明，用如下重定义数组语句： 　　ReDim [Preserve] 数组名（维界定义） [As 数据类型 ] 　　说明：当重新定义数组后，要保留原来数组中的数据，则选择preserve选项。 　　例如： Dim Pin（） As Integer 　　private Sub form_click（） 　　ReDim Pin（5） 　　…… 　　End Sub 　　详细说明动态数组定义格式中的每个参数的作用，并进行演示！15时间 　　接着用下面的例子来说明动态数组的作用！ 　　以下的例子可根据需要在讲授时选择！ 　　例1:有一组数，以-999结束，编程找出其中正数、负数、零的个数。（-999不作为数据处理） 　　注：例1和例3两个中选择一个讲！ 　　Private Sub Form_click（） 　　Dim x（） As Integer, n As Integer 　　Dim n1 As Integer, n2 As Integer, n3 As Integer 　　n = 1 　　Do 　　ReDim Preserve x（n） 　　x（i） = InputBox（"请输入一个数"） 　　Print x（i）； 　　If x（i） = -999 Then Exit Do 　　If x（i） < 0 Then 　　n1 = n1 + 1 　　ElseIf x（i） = 0 Then 　　n2 = n2 + 1 　　Else 　　n3 = n3 + 1 　　End If 　　n = n + 1 　　Loop 　　Print 　　Print "小于0的数据个数为："; n1 　　Print "等于0的数据个数为："; n2 　　Print "大于0的数据个数为："; n3 　　End Sub