Visual Basic 程序设计1 (9).ppt_第1页
Visual Basic 程序设计1 (9).ppt_第2页
Visual Basic 程序设计1 (9).ppt_第3页
Visual Basic 程序设计1 (9).ppt_第4页
Visual Basic 程序设计1 (9).ppt_第5页
已阅读5页,还剩18页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、Visual Basic 程序设计,第十讲 2课时,教学目标及基本要求,了解数组的定义 掌握数组的基本操作 掌握控件数组的用法,教学重点,数组的定义 数组的基本操作 控件数组的用法,教学难点,数组的基本操作;,教学内容,数组的定义 数组的基本操作 控件数组的用法,数组的概念,数组的定义 数组的定义 什么是静态数组与动态数组,数组的概念,静态数组与动态数组 静态数组 以一维数组为例,其语法格式为 Dim | Static | Private |Public (Lower to Upper)As 元素类型说明 其中,Dim | Static | Private | Public可选项指明数组的作用

2、域。 Lower to Upper指明数组的上下界,下界可以省略,其默认下界为0。 简单介绍静态二维数组与三维数组。,数组的概念,【例7.1】建立两个数组,一个包含整数,而另一个包含字符串。然后声明一个Variant数组,并将整数数组和字符串数组放置其中。 (1)创建Command1,编写单击事件过程 (2)程序功能,数组的概念,动态数组 一维动态数组的声明语法格式如下 Dim | Static | Private | Public ()As 元素类型说明 创建动态数组的步骤为: (1) 声明数组为动态数组,只须给数组附以一个空的维数表。 (2) 在使用数组之前,使用ReDim语句声明其下标,

3、以确定数组的维数以及元素的个数,并立即为其分配存储空间。,数组的基本操作,数组元素的输入 使用赋值语句为数组元素赋初值 【例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的元素赋初值。 编

4、写窗体的单击事件过程如下: 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 EachN

5、ext语句 For EachNext循环的语法: For Each element In group Statement Next element,数组的基本操作,For EachNext语句 使用For EachNext时的几点限制: 对于集合,element只能是一个Variant变量的名 字,或一般的Object对象变量,或“对象浏览器” 中列出的对象。对于普通数组。element 只能是 Variant变量。For EachNext不能与用户自定 义类型的数组一起使用,因为Variant 不可能包 含用户自定义类型。,数组的基本操作,For EachNext语句 Private Sub

6、 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 用常规ForNext循环语句给数组a各元素赋值 a(i) = 第 Next j Next i,数组的基本操作,(续) For i = 0 To 3 temp = a(i, 0): a(i, 0) = a(i, 3): a(i, 3) = temp Next i Print Print 输出数组对角线元素 For i = 0 To

7、 3 If i - (3 - i) = 0 Then Print Tab(i * 3 + 1); a(i, i); Spc(2 - 2 * i) * 3 + 1); a(i, 3 - i) Else Print Tab(3 - i) * 3 + 1);a(i, 3 - i);Spc(2 * i - 4) * 3 + 1); a(i, i) End If Next i End Sub,控 件 数 组,控件数组的概念 控件数组是一组具有相同名称(即Name属性相同)和类型的控件,比如一组按钮或一组单选钮,这些控件共享相同的事件过程。与其他类型的数组一样,控件数组中的每个控件都有惟一的下标,其下标值由Index属性指定。,控 件 数 组,创建控件数组 创建一个控件数组的步骤。 举例说明。,小结,数组这个概念,在各种编程语言中都有出现。数组,简言之,就是将一连串数字聚集在一起,形成组这个概念,其功能中存储一系列类型相同的变量,并且可以用相同名称引用这些变量,当使用多个类型和功能一致的数据时,使用数组可缩短和简化程序。本讲重点介绍数组的概念、定义和使用方法及其在程序设计中的应用。,作业

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论