VB语言数组专题讲解模版课件.ppt

  1. 1、本文档共61页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第5章 数 组 例5.2 Fibonacci数列问题 其中第n项的计算公式为: Fib(n)=Fib(n-1)+Fib(n-2) 从上述过程可以看到:N个数要比较N-1趟,而在第i趟比较中,要进行N-i次两两比较。 5.3 动态数组 请大家考虑: 如果首先要通过用户界面输入数组长度,然后再用数组保存数据,应该如何定义数组呢? 例5.4 设定一个5行5列的矩阵,首先给这个矩阵赋值,其值为对应的行坐标和列坐标之和,然后在窗体上以五行五列的方式输出。 数组定义: Dim a(1 To 5, 1 To 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i + j Next j Next i 赋值: 输出: For i = 1 To 5 For j = 1 To 5 Print a(i, j); Next j Print ‘作用是什么? Next i 3. 二维数组的应用 演示 3. 二维数组的应用 请大家考虑: 如果声明一个 5行5列的矩阵,其中元素由计算机随机生成的小于100的整数。求 (1)主对角线上元素之和 (2)主对角线上元素之积 (3)方阵中最大元素和最小元素及其对应的下标 例如:(动态数组示例) 动态数组:指在声明数组时未给出数组的大小(省略括号中的下标);当要使用它时,随时用ReDim语句重新指出数组大小;但不能改变数组的类型。 创建动态数组的过程 创建动态数组的步骤如下: ⑴ Public、Dim或Static语句声明一个空维数组。 格式:Dim 数组名() As 数据类型 可以省略 ⑵ 在过程中用ReDim语句分配实际的元素个数 (维数和每维下标范围)。 形式: ReDim 数组名(下标1[,下标2…]) [As 类型] Sub Form_Load( ) Dim sArray( ) As Single … ReDim sArray(4,8) … End Sub 说明: (1) Dim、Private、Public变量声明语句是说明性语句,可出现在过 程内或通用声明段;ReDim语句是执行语句,只能出现在过程内。 (2) ReDim语句可以改变数组的维数、上界和下界,但是,不能改变数组的类型。同时数组的维数只能改变一次,由第一次出现的Redim语句定义的维数来决定 。 (3)在过程中可多次使用ReDim来改变数组的大小,每次使用ReDim语句都会使原来数组中的值丢失,可以在ReDim语句后加Preserve参数用来保留数组中的数据,但使用Preserve只能改变最后一维的大小,前面几维大小不能改变。 例如: Dim aa( ) As Integer ? ? ? ? ? Redim aa(2,3,4) ? ? ? ? ? Redim Preserve aa(2,3,7) Dim MyArray() As Interger ? ? ? ? ? Redim MyArray(10) ? ? ? ? ? Redim Preserve MyArray(15) (4) ReDim中的下标可以是常量,也可以是有了确定值的变量。 Private Sub Command1_Click() Dim a() As Integer Dim sum As Integer Dim n As Integer Dim p As String n = Val(Text1.Text) ReDim a(1 To n) For i = 1 To n a(i) = i Next i p = For i = 1 To n - 1 p = p i + sum = sum + a(

文档评论(0)

xingyuxiaxiang + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档