求助,如何用excel vba定义一个数组并给这个数组内的数排序
2个回答
展开全部
定义数组
dim arr() as string ' 此处定义一个0索引的字符串数组
redim arr(1 to 100) '对数组进行重定义长度为100(常量100也可以是已经初始化的变量)
排序有很多方法,冒泡法、插入法、选择法之类的,这要看你的数组要素的类型和你排序的方式,简单点的看如下示例:
...
dim arr(1 to 5) as integer,i!,tmp as double
... ' 此处省略了为数组arr赋值的代码
for i =1 to ubound(arr)-1
tmp=arr(i)
if tmp>arr(i+1) then arr(i)=arr(i+1) '数据将从小到大排列
arr(i+1)=tmp
next
dim arr() as string ' 此处定义一个0索引的字符串数组
redim arr(1 to 100) '对数组进行重定义长度为100(常量100也可以是已经初始化的变量)
排序有很多方法,冒泡法、插入法、选择法之类的,这要看你的数组要素的类型和你排序的方式,简单点的看如下示例:
...
dim arr(1 to 5) as integer,i!,tmp as double
... ' 此处省略了为数组arr赋值的代码
for i =1 to ubound(arr)-1
tmp=arr(i)
if tmp>arr(i+1) then arr(i)=arr(i+1) '数据将从小到大排列
arr(i+1)=tmp
next
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询