[工学]第6章 数组1.pptVIP

第6章 数组 基本要求：理解数组的概念、掌握静态数组和动态数组的定义、数组元素的赋值、输出、引用、控件数组的建立和使用，掌握常用的数组函数ubound、lbound等 重点：同上 难点：动态数组的定义和应用 Private sub form_click( ) Static s(3) as Integer End sub 与前述的静态变量类似，静态数组的特点是，在调用过程时，它的各个元素会继承上次退出该过程时对应元素的值。 数组函数和数组语句 LBound函数:返回数组某维的维下界值。 Lbound(数组名，[维数]) 例:LBound(A,1) Ubound函数:返回数组某维的维上界值。 UBound(数组名,[维数]) 例:UBound(B,2) Erase语句 重新初始化固定大小数组的各元素,或者释放动态数组的存储空间。 For Each -Next语句 为数组中的每个元素重复执行一组语句。 利用Array函数可以把一个数据集赋值给一个Variant变量，再将该Variant变量创建成一个一维数组。 变体变量名=Array([数据列表]) Option Base 1private sub form_click( ) dim a as variant , I as integer , b(4) as variant  a=array(5,4,3,2,1) print a(1);a(2)；a(3)；a(4)；a(5) a=array(1.5！，2.3！,3.6！,4.1！) ‘!为单精度类型 print a(1)；a(2)；a(3)；a(4) a=“no array” print a B=array(1,2,3,4,5,6) ’错误语句why?end sub 在文本框中输入９个数据（空格分隔），将它们按行依次赋给一个３＊３的二维数组。 Option Explicit Option Base 1 Private Sub Form_Click() Dim Compare(12) As Integer, I As Integer Dim Max As Integer, Min As Integer Randomize For I = 1 To 12 Compare(I) = Int(90 * Rnd) + 10 Print Compare(I); Next I Print Max = Compare(1): Min = Compare(1) For I = 2 To 12 If Compare(I) Max Then Max = Compare(I) ElseIf Compare(I) Min Then Min = Compare(I) End If Next I Print 最大数是：; Max Print 最小数是：; Min End Sub 排序算法 选择法 直接排序法 冒泡法 查找算法 顺序查找 折半查找 素数的求法 定义法 筛选法 基本概念：由一组具有相同名称和相同类型的控件组成，数组中的每一控件共享同样的事件过程。当建立控件数组时，系统给每个元素赋一个唯一的索引号（Index），通过属性窗口的Index属性，可以知道该控件的下标是多少，第1个下标是0。 例如：一个控件数组有三个option按钮，不论单击哪一个，都会调用同一个Click事件过程。 建立的方法：1、创建同名控件。2、复制现存控件。 使用控件数组 使用循环语句为控件数组的所有元素设置相同的属性 在代码中用Load语句对已创建的控件数组添加控件． Load语句格式：Load Object(Index) 在代码中用Unload语句删除控件数组中的控件． ２、Unload语句　Unload Object(Index) [例6-2]使用控件数组设置文字的风格。 [例6-9]设Ａ是3×2的矩阵，Ｂ是2×3的矩阵，求Ａ·Ｂ。 [例6-15]使用控件数组编写一个能进行简单的加、减、乘、除运算的运算器的程序。 算法：将控件数组Command1的前10个元素的下标与０～９这10个数建立对应关系，按控件数组中的某个按钮时，就用该控件数组元素的下标值去组成数据。 （技巧题）例6-13 有15名学生按照已有的编号顺序围成一圈，1~3报数，凡报到3者出圈，并给他一个新的编号。最先出圈者新的编号为1，第二个出圈者新的编号为2，依次类推，直到所有的学生都重新编号。 （技