第七章数组更改

1、第七章第七章 数组和自定义数据类型数组和自定义数据类型数组的概念：数组的概念：数组并不是一种数据类型，而是数组并不是一种数据类型，而是一组相一组相同类型数据同类型数据的集合。用的集合。用一个统一一个统一的名字（的名字（数组名）数组名）代代表逻辑上相关的一批数据，每个元素用表逻辑上相关的一批数据，每个元素用下标变量下标变量来区来区分；下标变量代表元素在数组中的位置。分；下标变量代表元素在数组中的位置。其表示形式：其表示形式： A(1)，A(10) X(1,1), X1(1,10), X(2,10) Y(0,0,0), Y(1,2,5)7.1 数组的概念数组的概念7.1.1 概述概述Visual

2、Basic中的数组，按不同的方式可分为以下几类：中的数组，按不同的方式可分为以下几类：按数组的按数组的大小大小（元素个数）是否可以改变来分为：定（元素个数）是否可以改变来分为：定长数组、动态（可变长）数组。长数组、动态（可变长）数组。按元素的按元素的数据类型数据类型可分为：数值型数组、字符串数组、可分为：数值型数组、字符串数组、日期型数组、变体数组等。日期型数组、变体数组等。按数组的按数组的维数维数可分为：一维数组、二维数组、多维数可分为：一维数组、二维数组、多维数组。组。对象数组：菜单对象数组、控件数组。对象数组：菜单对象数组、控件数组。 Dim 数组名数组名(to)As 或：或： Dim

3、数组名数组名(to)例：例：Dim a(1 to 10) As Integer 声明了声明了a数组有数组有10个元个元素素1是下标的下界是下标的下界10是下标的上界是下标的上界数组元数的数据类型数组元数的数据类型与上面声明等价形式：与上面声明等价形式： Dim a%(1 to 10) 7. 2.1 一维数组一维数组一、一、 一维数组的声明一维数组的声明 7.2 静态数组声明及应用静态数组声明及应用说明：1数组名的命名规则与变量的命名相同。数组名的命名规则与变量的命名相同。2数组的元素个数：数组的元素个数：上界上界-下界下界+1。3缺省缺省为为0，若希望下标从若希望下标从1开始，可在模块的通用部

4、分开始，可在模块的通用部分使用使用Option Base语句将设为语句将设为1。其使用格式是：其使用格式是： Option Base 0|1 后面的参数只能取后面的参数只能取0或或1例如：例如：Option Base 1 将数组声明中缺省将数组声明中缺省下标设为下标设为1 4和和不能使用变量，必须是常量不能使用变量，必须是常量，常量可以是，常量可以是直接常量、符号常量，一般是整型常量。直接常量、符号常量，一般是整型常量。Dim N As IntegerN=Val(Input(“Enter a Number=?”)Dim A(N) As Integer 5如果省略如果省略As子句，则数组的类型为

5、变体类型。子句，则数组的类型为变体类型。6数组中各元素在内存占一片连续的存储空间，数组中各元素在内存占一片连续的存储空间，一维数组在内存中存放的顺序是下标大小的顺序，一维数组在内存中存放的顺序是下标大小的顺序，如图所示：如图所示：使用形式：使用形式： 数组名数组名(下标下标) 其中：下标可以是整型变量、常量或表达式。其中：下标可以是整型变量、常量或表达式。例如：例如： 设有下面的数组定义：设有下面的数组定义： Dim B(10) As Integer，A(10) As Integer 则下面的语句都是正确的。则下面的语句都是正确的。 A(1)=A(2)+B(1)+5 取数组元素运算取数组元素运

6、算 A(i)=B(i) 下标使用变量下标使用变量 B(i+1)=A(i+2) 下标使用表达式下标使用表达式二、二、 一维数组元素的引用一维数组元素的引用1. 可通过循环给数组元素的初值可通过循环给数组元素的初值 For i = 1 To 10 A数组的每个元素值为数组的每个元素值为1 A(i)=1 Next i 2. 数组的输入数组的输入 输入输入100个数，并存入到数组个数，并存入到数组A中中For i = 1 To 100 A(i) =Val( InputBox(“输入输入A(” & i & “) 的值的值”) ) Next i三、一维数组元素的基本操作三、一维数组元素的基本操作Dim M

7、ax As Integer,iMax As Integer Max=A(1)：iMax=1 For i = 2 To 10 If A(i)Max ThenMax=A(i)iMax=i End If Next I4. 将数组元素倒置将数组元素倒置For i =1 To 102 t=A(i) A(i)=A(10-i+1) A(10-i+1)=tNext I3. 求数组中最大元素及所在下标求数组中最大元素及所在下标四、四、 排序问题排序问题 1选择法排序选择法排序算法思想：算法思想： 1）对有）对有n个数的序列（存放在数组个数的序列（存放在数组a(n)中），从中选出最小中），从中选出最小（升序）或最

8、大（降序）的数，与第（升序）或最大（降序）的数，与第1个数交换位置；个数交换位置； 2）除第）除第1 个数外，其余个数外，其余n-1个数中选最小或最大的数，与第个数中选最小或最大的数，与第2个数交换位置；个数交换位置； 3）依次类推，选择了）依次类推，选择了n-1次后，这个数列已按升序排列。次后，这个数列已按升序排列。For i = 1 To n - 1For i = 1 To n - 1 p = i p = i For j = i + 1 To n For j = i + 1 To n If a(p) a(j) Then p = j If a(p) a(j) Then p = j Next

9、j Next j temp = a(i) temp = a(i) a(i) = a(p) a(i) = a(p) a(p) = temp a(p) = tempNext iNext i选择法排序（升序）的选择法排序（升序）的VB程序程序：2冒泡法排序（递增）冒泡法排序（递增） 算法思想：算法思想：(将相邻两个数比较，小的调到前头将相邻两个数比较，小的调到前头) 1）有）有n个数（存放在数组个数（存放在数组a(n)中），第一趟将每中），第一趟将每相邻两个数比较，小的调到前头，经相邻两个数比较，小的调到前头，经n-1次两两相邻次两两相邻比较后，最大的数已比较后，最大的数已“沉底沉底”，放在最后一个

10、位置，放在最后一个位置，小数上升小数上升“浮起浮起”； 2）第二趟对余下的）第二趟对余下的n-1个数（最大的数已个数（最大的数已“沉沉底底”）按上法比较，经）按上法比较，经n-2次两两相邻比较后得次大次两两相邻比较后得次大的数；的数； 3）依次类推，）依次类推，n个数共进行个数共进行n-1趟比较，在第趟比较，在第j趟趟中要进行中要进行n-j次两两比较。次两两比较。For i = 1 To n - 1For i = 1 To n - 1 For j = 1 To n-i For j = 1 To n-i If a(j) a(j+1) Then If a(j) a(j+1) Then temp=a

11、(j) temp=a(j) a(j)=a(j+1) a(j)=a(j+1) a(j+1)=temp a(j+1)=temp End if End if Next j Next jNext iNext i冒泡法排序（升序）的冒泡法排序（升序）的VB程序程序： 例例7.2 用随机函数产生50个10，100 的随机整数，并按照由小到大的顺序打印出来。程序界面如下：例例7.1 编程求某班60个学生某门课程考试的平均成绩及高于平均成绩的学生人数。 声明格式如下：声明格式如下：Dim 数组名数组名( to ， to ) As 其中的参数与一维数组完全相同。 例如：例如：Dim a(2,3) As Sing

12、le 二维数组在内存的存放顺序是二维数组在内存的存放顺序是“先行后列先行后列”。例如数组。例如数组a的各元素在内存中的存放顺序是：的各元素在内存中的存放顺序是：a(0,0)a(0,1)a(0,2)a(0,3)a(1,0)a(1,1)a(1,2) a(1,3)a(2,0)(2,1)a(2,2)a(2,3) 9638527417.2.2 二维数组二维数组一、一、 二维数组的声明二维数组的声明引用形式：引用形式： 数组名数组名(下标下标1，下标，下标2)例如：例如： a(1,2)=10 a(i+2,j)a(2,3)*2 在程序中常常通过二重循环来操作使用二维数组元素。在程序中常常通过二重循环来操作使

13、用二维数组元素。 二维数组数据的输入二维数组数据的输入 2. 求最大元素及其所在的行和列求最大元素及其所在的行和列 3. 计算两矩阵相应位置元素相乘计算两矩阵相应位置元素相乘 4. 矩阵的转置矩阵的转置 二、二、 二维数组的引用二维数组的引用三、二维数组的基本操作三、二维数组的基本操作二维数组数据的输入二维数组数据的输入 Dim a(1 to 4,1 to 5) As Integer, i As Integer, j As Integer给二维数组给二维数组a输入数据的程序段如下：输入数据的程序段如下： For i=1 to 4 For j=1 to 5 A(i,j)=Val(InputBox

14、(a（& I &, & j & ）=?) Next j Next i2. 求最大元素及其所在的行和列求最大元素及其所在的行和列 用变量用变量max存放最大值，存放最大值，row,column存放最大值所在行列号存放最大值所在行列号 Max = a(1, 1): row = 1: Column = 1 For i = 1 To 4 For j = 1 To 5 If a(i, j) a(row, Column) Then Max = a(i, j) row = i Column = j End If Next jNext iPrint 最大元素是最大元素是; MaxPrint 在第在第 & ro

15、w & 行行,; 第第 & Column & 列列3. 计算两矩阵相应位置元素相乘（略）计算两矩阵相应位置元素相乘（略） 4. 矩阵的转置矩阵的转置 设设A是是M*N的矩阵，要重新定的矩阵，要重新定义一个义一个N*M的二级数组的二级数组B，将，将A转置得到转置得到B的程序代码如下：的程序代码如下：For i = To For j = To N b(j,i) = a(i,j) Next jNext i 定义多维数组的格式如下：定义多维数组的格式如下：Dim 数组名数组名( to ， to ，) As 例如：例如： Dim a(5,5,5) As Integer 声明声明a是三维数组是三维数组 D

16、im b(2,6,10,5) As Integer 声明声明b是四维数组是四维数组 三、三、 多维数组的声明和引用多维数组的声明和引用动态数组：在声明时未给出数组的大小。定长数组是在程序编译动态数组：在声明时未给出数组的大小。定长数组是在程序编译时分配存储空间，而动态数组是在程序执行时分配存储空间。时分配存储空间，而动态数组是在程序执行时分配存储空间。 动态数组的建立及使用动态数组的建立及使用 包括声明和大小说明两步：包括声明和大小说明两步： 1在使用在使用Dim、Private或或Public语句声明括号内为空的数组。语句声明括号内为空的数组。 格式：格式：Dim | Private|Pub

17、lic 数组名（）数组名（）As 数据类型数据类型 例：例：Dim a() As Integer2在过程中用在过程中用ReDim语句指明该数组的大小。语句指明该数组的大小。 格式：格式：ReDim Preserve 数组名（下标数组名（下标1，下标，下标2） Preserve参数：保留数组中原来的数据参数：保留数组中原来的数据 7.3.1动态数组动态数组7.3 动态数组声明及应用动态数组声明及应用一、一、 建立动态数组建立动态数组Sub Form_click( ) Dim x( ) As Single n =Inputbox(“输入n”） ReDim x(n) End Sub例：Redim A

18、(10) Redim Preserve A(20)说明：说明：（1）ReDim语句是一个可执行语句，只能出现在过程中，并语句是一个可执行语句，只能出现在过程中，并且可以多次使用，改变数组的维数和大小。且可以多次使用，改变数组的维数和大小。 （2）定长数组声时中的下标只能是常量，而动态数组）定长数组声时中的下标只能是常量，而动态数组ReDim 语句中的下标是常量，也可以是有了确定值的变量。语句中的下标是常量，也可以是有了确定值的变量。 例：例： Private Sub Form_Click() Dim N As Integer N=Val(InputBox(“输入输入N=？”) Dim a(N)

19、 As Integer . End sub（3）在过程中可以多次使用）在过程中可以多次使用ReDim来改变数组的大小，也来改变数组的大小，也可改变数组的维数。可改变数组的维数。 例：例：ReDim x(10) ReDim x(20) x(20) = 30 Print x(20) ReDim x(20, 5) x(20, 5) = 10 Print x(20, 5) （4）每次使用）每次使用ReDim语句都会使原来数组中值丢失，可以语句都会使原来数组中值丢失，可以在在ReDim后加后加Preserve 参数来保留数组中的数据。参数来保留数组中的数据。问题：问题：下面程序的，输出结果应该是什么？下

20、面程序的，输出结果应该是什么？Dim ID( ) As Integer, Name1( ) As String, i As IntegerReDim ID(5), Name1(5)For i = 1 To 5 ID(i) = i: Name1(i) = A & iNext iReDim Preserve ID(UBound(ID) + 1) Name1(UBound(Name1) + 1)ID(6) = 6: Name1(6) = ABCFor i = 1 To 6 Print ID(i), Name1(i)Next i例7.3：编程：输入正整数编程：输入正整数n，再由，再由InputBox函

21、数输函数输入入n个数至数组并在窗体上输出这个数至数组并在窗体上输出这n个数，然后要个数，然后要求元素数据反过来存放，并输出，要求使用动态求元素数据反过来存放，并输出，要求使用动态数组实现。数组实现。即第即第1个元素与第个元素与第n个元素互换，第个元素互换，第2个元素与第个元素与第n-1个个元素互换，元素互换，。最后在窗体上输出对换后各元素的值。最后在窗体上输出对换后各元素的值。如：输入如：输入8和和11、12、13、14、15、16、17、18，输出，输出为：为：11 12 13 14 15 16 17 18和和18 17 16 15 14 13 12 11。二、动态数组举例二、动态数组举例P

22、rivate Sub Command1_Click()Dim A( ) As Integer, N As Integer, i As Integer, T As IntegerN = Val(InputBox(请输入数据个数请输入数据个数)ReDim A(N)For i = 1 To N A(i) = Val(InputBox(请输入第请输入第 & i & 个数个数) Print A(i);Next iPrint For i = 1 To N 2 T = A(i): A(i) = A(N - i + 1): A(N - i + 1) = T Next iFor i = 1 To N Print

23、 A(i);Next iPrintEnd Sub Aarry函数可方便地对数组整体赋值，但它只能给声明函数可方便地对数组整体赋值，但它只能给声明Variant的变量或仅由括号括起的动态数组赋值。赋值后的数的变量或仅由括号括起的动态数组赋值。赋值后的数组大小由赋值的个数决定。组大小由赋值的个数决定。 例如，要将例如，要将1,2,3,4,5,6,7 这些值赋值给数组这些值赋值给数组a，可使用下面，可使用下面的方法赋值。的方法赋值。Dim a()A=array(1,2,3,4,5,6,7)Dim a A=array(1,2,3,4,5,6,7)7.3.2 与数组操作有关的几个函数与数组操作有关的几个

24、函数一、一、Aarry函数函数 Ubound( )函数和函数和Lbound( )函数函数分别用来确定数组某一维的上界和下界值。分别用来确定数组某一维的上界和下界值。使用形式如下：使用形式如下： UBound(, ) LBound( , ) 其中：其中：必需的。数组变量的名称，遵循标准变量命名：必需的。数组变量的名称，遵循标准变量命名约定。约定。：可选的；一般是整型常量或变量。指定返回哪一：可选的；一般是整型常量或变量。指定返回哪一维的上界。维的上界。1 表示第一维，表示第一维，2 表示第二维，如此等等。如果表示第二维，如此等等。如果省略默认是省略默认是1。二、求数组的上界二、求数组的上界Ubo

25、und( )函数函数 下界下界 Lbound( )函数函数 使用格式：使用格式：Split( , )说明：说明： 使用使用Split函数可从一个字符串中，以某个指定符号为分隔函数可从一个字符串中，以某个指定符号为分隔符，分离若干个子字符串，建立一个下标符，分离若干个子字符串，建立一个下标从零从零开始的一维数开始的一维数组。组。如：如：a=1,2,3,4,5,6,45,656,465,564,45 b=split(a,) 那么那么b(0)=1 b(1)=2 b. 三、三、Split函数函数 对一批同类且功能类似的控件，可以建成控对一批同类且功能类似的控件，可以建成控件数组，控件数组可以简化编程，

26、控件数件数组，控件数组可以简化编程，控件数组中的每一个元素是同类控件，并且具有组中的每一个元素是同类控件，并且具有相同的名称。相同的名称。控件数组用索引值控件数组用索引值Index属性区分元素。属性区分元素。7.4 7.4 控件数组的概念及应用控件数组的概念及应用7.4.1控件数组的概述控件数组的概述首先，与创建其它控件一样，创建第首先，与创建其它控件一样，创建第1个控件个控件 如果需要修改名称，则可先在属性窗口修改该控件名如果需要修改名称，则可先在属性窗口修改该控件名称；称；选择该控件，使用选择该控件，使用“编辑编辑”菜单的菜单的“复制复制”命令命令使用使用“编辑编辑”菜单的菜单的“粘贴粘贴

27、”命令命令 这时这时VB出现对话框，询问是否建立控件数组，单击出现对话框，询问是否建立控件数组，单击“是是” 这时新控件的这时新控件的Index索引值为索引值为1，而原控件索引值自动，而原控件索引值自动为为0； 控件数组已经产生控件数组已经产生7.4.2 创建控件数组创建控件数组一、创建控件数组的步骤：一、创建控件数组的步骤：控件数组及元素，也有属性、方法和事件。控件数组及元素，也有属性、方法和事件。元素的方法、事件和属性与它的非数组同类控件一样元素的方法、事件和属性与它的非数组同类控件一样 但有一个重要的属性是但有一个重要的属性是Index属性，相当于数属性，相当于数组下标，编程用组下标，编

28、程用二、控件数组及元素，也有属性、方法和事件：二、控件数组及元素，也有属性、方法和事件：访问控件数组元素与访问普通数组元素一样访问控件数组元素与访问普通数组元素一样通过控件名称通过控件名称(索引值索引值)来确定每个控件来确定每个控件如如Command1(2). Caption=问候问候。如果是一批很有规律的操作，一般可以通过循如果是一批很有规律的操作，一般可以通过循环进行。环进行。注意：注意：若删除了其中某数组元素（控件），则将导致若删除了其中某数组元素（控件），则将导致索引索引Index不连续，此时再使用该索引值将出错。不连续，此时再使用该索引值将出错。解决的方法是重新修改其他元素的解决的方

29、法是重新修改其他元素的Index值值7.4.3 访问控件数组元素例【例【7-4】设计如图所示程序，要求用设计如图所示程序，要求用控件数组。控件数组。创建有创建有3个单选钮的控件数组个单选钮的控件数组程序代码如下：程序代码如下：Private Sub Form_Load() Text1.FontSize = 10 Option1(0).Value = True 使索引值使索引值0的控件处于选中状态的控件处于选中状态 Text1.Text = Hello!End SubPrivate Sub Option1_Click(Index As Integer) Text1.FontSize = Val(

30、Option1(Index).Caption)End Sub程序运行时单击单选按钮，程序运行时单击单选按钮，Index就自动作为就自动作为Click事件的参数，传给事件的参数，传给Click事件。事件。问题的提出问题的提出 有有50个学生成绩和学号，要求按成绩高到底排个学生成绩和学号，要求按成绩高到底排序，学号也对应调整，如何解决？序，学号也对应调整，如何解决？ 方法：开两个数组，分别存放成绩和学号方法：开两个数组，分别存放成绩和学号 问题问题: 成绩和学号易张冠李戴成绩和学号易张冠李戴 怎么办怎么办? 作为整体描述作为整体描述,引入结构引入结构本章目录本章目录7.5 自定义类型声明及使用自定

31、义类型声明及使用数组存放性质相同的数据集合。若数组存放性质相同的数据集合。若不同类型不同类型信息作为一信息作为一个整体来描述，例如姓名、性别、出生年月等，通过个整体来描述，例如姓名、性别、出生年月等，通过Type语句来实现语句来实现。Type Type 自定义类型名自定义类型名元素名元素名1 As 数据类型名数据类型名 元素名元素名n As 数据类型名数据类型名End TypeEnd Type本章目录本章目录 7.5.1 自定义类型自定义类型一、定义一、定义例如，定义一个有关学生信息的类型：例如，定义一个有关学生信息的类型：Type StudTypeType StudType StudType

32、为为自定义自定义类型名类型名 Name As String*5 姓名姓名 Sex As String*1 性别性别 Telephone As Long 电话电话 School As String*10 学校学校End TypeEnd Type自定义类型自定义类型不能在过程内定义不能在过程内定义，一般放在标准模，一般放在标准模块文件，默认为块文件，默认为Public；若在窗体模块的通用声；若在窗体模块的通用声明段定义，必须加明段定义，必须加Private。 本章目录本章目录定义了定义了自定义类型，自定义类型，就可在变量的声明时使用。就可在变量的声明时使用。 Dim Dim 变量名变量名 AsAs

33、 自定义自定义类型名类型名例如，如下语句：例如，如下语句： Dim S1 As StudType，S2 As StudType 声明声明S1、S2为两个同种类型的变量为两个同种类型的变量本章目录本章目录二、自定义类型变量的使用二、自定义类型变量的使用注意：注意：不要混淆不要混淆StudType 和和S1 ，前者如同，前者如同Integer等的等的类型名，后者根据该类型分配所需的内存空间，存类型名，后者根据该类型分配所需的内存空间，存储各成员数据。储各成员数据。(2) 类型变量和数组相同之处它们都是由若干个类型变量和数组相同之处它们都是由若干个成成员员组成；不同之处，前者的成员代表不同性质、不组

34、成；不同之处，前者的成员代表不同性质、不同类型的数据，以各个不同的成员名表示；而数组同类型的数据，以各个不同的成员名表示；而数组一般存放的是同种性质、同种类型的数据，以下标一般存放的是同种性质、同种类型的数据，以下标表示不同的元素。表示不同的元素。本章目录本章目录引用自定义类型变量中的某个成员，形式如下：引用自定义类型变量中的某个成员，形式如下： 自定义类型变量名自定义类型变量名. .成员名成员名例如，例如， S1.Name S1变量中的姓名变量中的姓名 S1.Sex 性别性别可利用可利用WithWith语句简化成员引用：语句简化成员引用： With With 结构变量对象名结构变量对象名 语

35、句块语句块 End WithEnd WithWith S1 .Name = 张华张华 .Sex = 男男 .School=“青海大学青海大学End With 本章目录本章目录三、自定义类型变量成员的引用三、自定义类型变量成员的引用列表框和组合框可解决单选框和复选框选列表框和组合框可解决单选框和复选框选项数量的限制。项数量的限制。列表框控件可显示多个项目列表列表框控件可显示多个项目列表列表框往往可让用户选择一个或多个项目。列表框往往可让用户选择一个或多个项目。7.6.1 列表框（列表框（ListBox） 7.6 列表框和组合框控件列表框和组合框控件1列表框控件的主要属性列表框控件的主要属性（名称

36、）（名称）Name:设置名称，字符型。缺省值为设置名称，字符型。缺省值为List1List : 保存选项的字符串数组。如第保存选项的字符串数组。如第i项为项为List(i-1)ListCount : 列表框项目总数，列表框项目总数， 共有共有0 （ListCount-）个）个ListIndex : 选中的项目在列表框中的位置选中的项目在列表框中的位置(索引值或索引值或 下标）下标） 第一项的索引值为第一项的索引值为0，第二项的索引值为，第二项的索引值为1。Sorted : 设置列表框项目是否排序。设置列表框项目是否排序。True为升序排列为升序排列MultiSelect : 确定列表框是否允许

37、多选。可设置确定列表框是否允许多选。可设置0、1、2Selected : 列表框某项的选中状态，布尔型数组。列表框某项的选中状态，布尔型数组。SelCount : 列表框中选中的项目数列表框中选中的项目数Text : 最后一次选中的选项的文本，该属性不能最后一次选中的选项的文本，该属性不能 直接修改直接修改属性举例，如：属性举例，如： Str=List1.List(2) If List1.Selected(i) Then Msgbox List1.List(i) MultiSelect为为0：List1.Text等价等价List1.List(List1.ListIndex)2列表框控件的方法列

38、表框控件的方法（1）AddItem方法方法AddItem方法用于建立列表框数据项方法用于建立列表框数据项格式：格式：列表框对象名称列表框对象名称. AddItem 项目字符串项目字符串，索引值索引值索引值表示添加的位置，如索引值表示添加的位置，如3，表示添加，表示添加的下标为的下标为3省略索引值，则将项目添加在列表框最后。省略索引值，则将项目添加在列表框最后。如：如：List1.AddItem Hello 将字符串添加到列表框将字符串添加到列表框最后最后List1.AddItem List2.List(0) 将将List2中的第一条放入中的第一条放入List1List1.AddItem 计算机

39、计算机,2 将字符串添加到将字符串添加到List1第第2条后条后（2）RemoveItem方法方法RemoveItem方法清除列表框一项数据项方法清除列表框一项数据项格式：格式：列表框对象名称列表框对象名称.RemoveItem 索引值索引值它通过索引值删除列表框中指定项目。它通过索引值删除列表框中指定项目。如：如：List1.RemoveItem 2 删除删除List1中下标为中下标为2的项目的项目（3）Clear方法方法Clear方法用于清除列表框中所有项目。方法用于清除列表框中所有项目。格式：格式：列表框对象名称列表框对象名称.Clear3列表框控件的常用事件列表框控件的常用事件Click事件事件DblClick事件事件例题例题7.