accessvba常量数组赋值_8.1EXCEL“VBA”（下篇）--数组和
定义函数
⼀、 什么是数组：所谓数组就是⽤来存储⼤量的数据的存储空间，数组在存储数据时是有序存储。数组中的每⼀个值被称为数组元素，每⼀、 什么是数组
⼀个数组元素都有⼀个编号（即索引，也可以称为下标），从0开始到数组长度-1为⽌
⼆、⼀维数组
理论的东西，我就不单独拎出来写了，我拿⼀个基操案例，来把⼀维数组讲解⼀下
sub 数组
//    '什么是数组：所谓数组就是内存中开辟出来的⽤来存储⼤量数据的存储空间
数组全部赋值为1'VBA中数组的分类：⼀维数组、⼆维数组
'⼀维数组的定义
'格式1：dim  数组名(长度) as  数据类型
dim score(3) as integer
'⼀维数组的赋值，需要⽤到如下格式：数组名(编号/下标/索引) = 值
① score(0)=60
score(1)=70
score(2)=80
② for i=0 to 9    //⽤excel中sheet⾥的值给数组赋值
score(i)=sheets(3).cells((i+1),1)
next
'⼀维数组值的获取
dim sum%
sum=score(0)+score(2)
msgbox(sum)
'⼀维数组重新赋值：数组名(编号/下标/索引) = 值
score(1)=100
msgbox(score(1))
'数组的遍历
dim sum2%,i%
① for i=0 to 2
msgbox(score(i))
next
② for i=LBound(score) to UBound(score)-1  //LBound(数组名)是⽤来取数组的最⼩下标
msgbox(score(i))                      //Ubound(数组名)是⽤来取数组的长度
next
③ for each ele in score
msgbox(ele)
next
end sub
三、⼆维数组
和⼀维⼀样，理论知识省略，在基操案例中直接讲解
'定义⼆维数组的格式：dim  数组名(⾏数，列数） as  数据类型
Dim arr(4, 3) As Integer
'⼆维数组的赋值(从单元格中获取值)
dim i%，j%
for i=0 to 3
for j=0 to 2
arr(i,j)=sheets(3).cells((i+1),(j+1))
next
next
案例（求对⾓线上的和）
sub ⼆维
dim i,j,sum
sum=0
for i=0 to 2
for j=0 to 2
if i=j or i+j=2 then
sum=sum+arr(i,j)
end if
next
next
msgbox(sum)
end sub
四、定义函数
什么是函数：所谓函数就是指具有特定功能的模块，VBA中如何定义函数：有参函数、⽆参函数、有返回值函数、⽆返回值函数、内置函数、⽆参⽆返回值函数的定义
//判断输⼊的数是不是完数
function isWS(num)
dim i,sum
sum=0
for i=1 to num-1
if num mod i =0 then
sum=sum+i
end if
next
if sum=num then
isWS=true
else
isWS=false
end if
end function
使⽤⾃⼰创建的这个函数--判断⼀个数是不是完数

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。