- 1、本文档共57页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Visual Basic 程序设计;第三章控制结构;第四章 数组;;;;第四章 数组;引例1;引例1;数组是一组相同类型的变量的集合
数组名代表一批数据,用下标表示该数组中的各个元素
;4.2 数组的分类和操作;4.2.1 静态数组;4.2.1 静态数组;静态数组举例;4.2.2 动态数组;动态数组举例;1. n=12
Dim a(1 To n) As Integer
2. Dim a%[3,3]
3. Dim a(1,1,2) As Integer
4. Dim a%(10)
ReDim a(1 To 12)
5. Dim a!()
ReDim a(3,2) As Integer ;二维数组的操作;4.2.4 数组其它相关操作; Option Base n; Lbound,Ubound;Array函数初始化数组条件:
一维数组
Variant(变体类型)
非静态数组(动态数组或数组变量);Array函数;4.3 数组算法; 0.5;Dim a As Variant
,0.5)
max=a(0) : min = a(0)
For i = 0 To 5
If a(i) > max Then max = a(i)
If a(i) < min Then min =a(i)
Next i
Print "最大值为:"; max
Print "最小值为:"; min;排序算法;75 87 52 94 60;第 二 轮 比 较 :;' n个数据需进行n-1趟排序
For i = LBound(a) To UBound(a) - 1 For j = i + 1 To UBound(a)
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i ;数组排序--选择法;For i = LBound(a) To UBound(a) - 1 ' n个数据需进行n-1趟排序;75;For i = LBound(a) To UBound(a) - 1 ' n个数据需进行n-1趟排序;适用于有序或无序数组 ;Dim a As Variant
a = Array(-123, -10, 5, 8, 30, 56, 59, 66, 90, 518)
n = UBound(a)
k = Val(InputBox("输入要查询的关键值"))
Print "要查询的数是:"; k
For i = 1 To n
If k = a(i) Then Exit For
Next i
If i <= n Then
Print k; "has be found,on"; i; "th position"
Else
Print k; "has not be found,on a"
End If;-123;Dim a As Variant
a = Array(-123, -10, 5, 8, 30, 56, 59, 66, 90, 518)
n = UBound(a)
k = Val(InputBox("输入要查询的关键值"))
low = 1: high = n
find = -1 'find=-1表示没有找到
While low <= high And find = -1
m = (low + high) \ 2
If k = a(m) Then
find = 1 'find=1表示已经找到
Print k; "has be found,on"; m; "the position."
Else
If k < a(m) Then
high = m - 1
Else
low = m + 1
End If
End If
Wend
If find = -1 Then
Print k; "has not be found."
您可能关注的文档
- 《Oracle数据库系统应用开发实用教程(第2版)》配套资源 课件 作业 电子课件 第6章 数据查询.ppt
- 《Oracle数据库系统应用开发实用教程(第2版)》配套资源 课件 作业 电子课件 第7章 PLSQL编程基础.ppt
- 《Oracle数据库系统应用开发实用教程(第2版)》配套资源 课件 作业 电子课件 第11章 任务1:仿真实训平台的Oracle知识应用剖析.ppt
- 《Oracle数据库系统应用开发实用教程(第2版)》配套资源 课件 作业 电子课件 第11章 任务2:学生实训项目作品1:OA办公系统数据库设计.ppt
- 《Oracle数据库系统应用开发实用教程(第2版)》配套资源 课件 作业 电子课件 第11章 任务3-任务11:企业案例(案例1-案例9).ppt
- 《PLC控制技术项目训练教程》 教材项目二.ppt
- 《PLC控制技术项目训练教程》 教材项目九.ppt
- 《PLC控制技术项目训练教程》 教材项目六.ppt
- 《PLC控制技术项目训练教程》 教材项目十 .ppt
- 《PLC控制技术项目训练教程》 教材项目一.ppt
1亿VIP精品文档
相关文档
最近下载
- 2023年四年级下语文期中复习·心田花开.pdf VIP
- 2023年全国统一高考英语试卷(全国甲卷)(含答案与解析).pdf
- 【课件】歌唱的情感与表达+当那一天来临+课件高中音乐人音版(2019)+必修2+歌唱.pptx VIP
- 03s702钢筋混凝土化粪池图集(高清).pdf
- 在线网课学习课堂《生命科学基础(北理 )》单元测试考核答案.docx
- 电视画面编辑(本科)王晓红.ppt
- 2021-2022学年威海市乳山市八年级下学期期中数学试卷(含答案解析).docx
- 特种设备生产(含安装、改造、维修)单位质量安全风险管控清单 .docx
- 人工智能导论 人工智能理论基础 人工智能理论基础.pptx
- 搅拌设备设计.ppt
文档评论(0)