数组 vb 07.pptVIP

数组 引例： 数组的概念 数组在内存中占据一片连续的存储空间： Split函数 ? 控件数组 矩阵（二维数组）运算 例： 矩阵转置 例：求二维数组中的最大（最小）值 3 For Each…Next语句 格式： For Each 循环变量 In 数组 ??????? 循环体 ??? Next 循环变量? 功能：由指定的元素来控制循环。 说明： For Each…语句是不需要预先知道循环次数的，指定数组中的元素个数就是循环次数。 循环变量必须是Variant(变体型)变量。在For Each…Next语句中重复使用,它实际上代表的是数组中的每个元素。 数组是一个数组名,没有括号和上下界 当某一数组的所有元素进行同一操作时，需要使用该语句。 2004年4月等级考试题： 在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，自左至右顺序增大，编写如下的事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i) = Text1(i).Index i = i + 1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为： A) 0 1 2 3 B) 1 2 3 4 C) 0 1 3 2 D) 出错信息 A) 0 1 2 3 Rnd （0，1）区间内的随机浮点数 Rnd*n （0，n）区间的随机浮点数 Int( Rnd * (n+1)) [0， n ] 区间的随机整数 m+Rnd*(n-m) （m，n）区间的随机浮点数 Int(Rnd*(n-m+1) + m) [m，n] 区间的随机整数 Int (Rnd * (n-m+1))+m [m，n] 区间的随机整数 例如： [0,50]之间的随机数：Int(Rnd*(50+1))=Int(Rnd*51) [10,99]之间的随机数：Int(Rnd*(99-10+1))+10=Int(Rnd*90)+10 随机函数Rnd 表达式Int(4*Rnd+1)*(Int(4*Rnd-1))值的范围是： (A)[0,8] (B)[-1,8] (C)[-3,8] (D)[-4,8] 分析：4*Rnd的取值范围是(0，4) Int(4*Rnd+1)的取值范围是[1,4] Int(4*Rnd-1)的取值范围是[-1,2] 两数相乘的的最大值是8，最小值是-4 (D)[-4,8] 过级考试题： 例3 产生10个互不相等的[0，50]之间的随机数 Option Base 1 Private Sub Form_Load() Randomize Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 51) For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 Exit For End If Next j Next i For i = 1 To 10 Print a(i); Next i End Sub 将随机数赋值给数组元素 判断是否与前一个数相等 输出十个随机数 例4 升序排列一组数据 解法一：线性排序法 思想： （1）将n个数据放在数组a(1)到a（n）中； （2）用第一个数据与剩余的n-1个数据分别比较； （3）如果不符合升序要求，交换其值，第一个数据就是该数列中 的最小数； （4）再用第二个数与剩下的n-2个数比较 ……………… 直至用第n-1个数与第