第5章_数组精品.pptVIP

第5章 数 组 5.1 数组的概念 5.1.2 数组的概念 5.2 数组声明及初始化 二维数组声明 数组的初始化(不允许声明下标的上界) 重定义数组大小 重定义数组大小注意事项： 5.3 数组的操作 2 数组的输出 例5.3 形成5×5的方阵，分别输出方阵中各元素、上三角元素和下三角元素，每个元素占4列。 本例题中所使用的函数说明： （1）Len(数值型数据)的值等于该类型数据占用空间的字节数。 Len(字符型数据)的值等于字符串的长度。 （2）Str(数值型数据)返回的字符串，左边有一位正负号位，正号以空格“ ”表示。 Trim(sc(i,j))等价于Trim(Str(sc(i,j))) （3）表达式：字符串 数值，是将数值自动转换成不包含空格的字符串。 方阵规律：5行5列，0≤i ≤4， 0≤j ≤4，第一行的元素为0~4，以后每一行是前一行对应元素增加5，即：sc(i,j)=i*5+j 控制输出的空格：Space(4-Len(Trim(sc(i,j)))) 每一列右对齐，Space(4-Len(Trim(sc(i,j)))) sc(i,j) 若左对齐，应改为： sc(i,j) Space(4-Len(Trim(sc(i,j)))) Dim sc%(4, 4), i%, j% 产生方阵数据，在TextBox1显示 TextBox1.Text = 产生方阵数据 vbCrLf For i = 0 To 4 For j = 0 To 4 sc(i, j) = i * 5 + j TextBox1.Text = Space(4 - Len(Trim(sc(i, j)))) sc(i, j) Next j 每个元素占4列宽 TextBox1.Text = vbCrLf 换行 Next i 上三角规律: 每一行的起始列与行号相同,只要控制内循环的初值即可 （0≤i ≤ 4，i ≤ j ≤ 4） 每行第一个数据前有空格：Space(4*i) 下三角规律: 第i行有i列，只要控制内循环的初值即可 （0≤i ≤ 4，0 ≤ j ≤ i） 3 求数组最值、位置及元素交换 数组用于存放同种性质的数据，便于操作。 例如：存放100个学生的成绩 Dim Mark(99) as integer 5.3.2 数组的排序 选择法排序 (2)冒泡法排序（升序） 冒泡法排序 2 删除数据 5.4 列表框和组合框 5.4.1 列表框（ListBox） 2、方法 3、主要事件 5.4.2 组合框（ComboBox） 2、方法 Public Class Form1 Private Sub Form1_Load(…) Handles Me.Load Dim i%, n% Dim a() = {1, 4, 7, 9, 12, 14, 23, 33, 56} n = UBound(a) For i = 0 To n ListBox1.Items.Add(a(i)) 将数组中的元素加入到列表框中 Next i End Sub Private Sub Button1_Click(…) Handles Button1.Click Dim x%, k% x = Val(TextBox1.Text) For k = 0 To ListBox1.Items.Count - 1 查找欲插入数x在列表框中的位置 If x Val(ListBox1.Items(k)) Then Exit For Next k ListBox1.Items.Insert(k, x) 将x变量的值插入到指定的位置 End Sub Private Sub Button2_Click(…) Handles Button2.Click Dim x%, k% : x = Val(TextBox1.Text) For k = 0 To Li