Visual Basic程序设计案例教程 湖南省教育科学“十一五”规划重点项目 教学课件 作者 李勇帆 第10讲.pptVIP

Visual Basic 程序设计 第十讲 2课时 教学目标及基本要求 了解数组的定义 掌握数组的基本操作 掌握控件数组的用法 教学重点 数组的定义 数组的基本操作 控件数组的用法 教学难点 数组的基本操作； 教学内容 数组的定义 数组的基本操作 控件数组的用法 数组的概念 数组的定义 数组的定义 什么是静态数组与动态数组 数组的概念 数组的概念 【例7.1】建立两个数组，一个包含整数，而另一个包含字符串。然后声明一个Variant数组，并将整数数组和字符串数组放置其中。 （1）创建Command1，编写单击事件过程 （2）程序功能 数组的概念 动态数组 一维动态数组的声明语法格式如下 [Dim | Static | Private | Public] 数组名（）[As 元素类型说明] 创建动态数组的步骤为： (1) 声明数组为动态数组，只须给数组附以一个空的维数表。 (2) 在使用数组之前，使用ReDim语句声明其下标，以确定数组的维数以及元素的个数，并立即为其分配存储空间。 数组的基本操作 数组元素的输入 使用赋值语句为数组元素赋初值 【例7.2】使用赋值语句对数组进行初始化。 Private Sub Form_Click() Dim week(6) As String week(0)=Sunday week(1)=Monday print week(0),week(1) End Sub 数组的基本操作 数组元素的输入 使用Array 函数为一维数组赋初值 Array函数语法格式为 Dim 数组名 As Variant 数组名=Array(列表) 数组的基本操作 【例7.3】使用Array函数给数组City的元素赋初值。 编写窗体的单击事件过程如下： Private Sub Form_Click() Dim City() As Variant City()=Array(北京,上海,西安,长沙) For i =0 to 3 Print City(; i ; )= ;City(i) Next i End Sub 数组的基本操作 数组元素的输入 使用InputBox函数为多维数组赋初值 【例7.4】给数组Fruit（4）的元素赋初值。 Dim Fruit(4) As String For i = 1 To 4 Day(i) = InputBox(enter Day: ) Next i 数组的基本操作 For Each…Next语句 For Each…Next循环的语法： For Each element In group Statement Next element 数组的基本操作 For Each…Next语句 使用For Each…Next时的几点限制： 对于集合，element只能是一个Variant变量的名 字，或一般的Object对象变量，或“对象浏览器” 中列出的对象。对于普通数组。element 只能是 Variant变量。For Each…Next不能与用户自定 义类型的数组一起使用，因为Variant 不可能包 含用户自定义类型。 数组的基本操作 For Each…Next语句 Private Sub Form_Click() Dim a() As String Dim x As Variant N = InputBox(请输入一个整数) 随意指定一个数 ReDim a(1 To N) As String 按指定的数N调整数组a的大小 For i = 1 To N 用常规For…Next循环语句给数组a各元素赋值 a(i) = 第 i 个元素 Next i For Each x In a 用For Each…Next结构输出数组a各元素的值 Print x 注意用到Variant变量x Next End Sub 数组的基本操作 数组间的初始化 【例7.5】将数组D整体赋值给数组E。 Dim D（4） As String ,E() As string D(0)=王华:D(1)=黎明:D(2)=白雪:D(3)=刘芳:D(4)=吴情 E =D 通过数组间的赋值，将数组D整体赋值给数组E，同时数组E的大小被确定为5。 数组的基本操作 数组的输出 【例7.6】随机产生二维数组a(3,3)，交换最左边和最右边的两列元素，然后输出对角线上的元素。 编写窗体的单击事件过程如下： Private Sub Form_Click() Dim a(3, 3) As Inte