- 1、本文档共61页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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(
您可能关注的文档
最近下载
- 《封闭式冷却塔》课件.ppt VIP
- 08SG311-2 混凝土结构加固构造(图集-watermark.pdf VIP
- 外科护理学考试题库与答案.doc VIP
- 安徽省天一大联考2024-2025学年高二下学期5月阶段性检测 数学(含答案).docx VIP
- 小升初典型奥数:行程问题(讲义)-2023-2024学年六年级下册数学人教版.docx VIP
- (房树人绘画心理分析.doc VIP
- 学校艾滋病宣传.pptx VIP
- 精品解析:江苏省南京市2024年中考化学试题(原卷版).doc VIP
- 海南省中考(部编版)初中语文必背86篇古诗文.pdf VIP
- 鲁教版高中化学选修三第三章微项目改进手机电池中的离子导体材料课件.pptx VIP
文档评论(0)