作者:乔山办公网日期:
返回目录:excel表格制作
VBA数组zhidao赋值方式:
字符串数组的定义:
Dim arr(1 to 3) as string
如此定义,但是不能直接给数组赋值
如果想直接给数组直接赋值,需要如下操作:
Dim arr() as Variant
arr=Array("a","b","c")
赋值格版式:
例如,给变量a赋值一个权数为12,则格式为:a = 12 [注意:变量(即a)只能是一字母,而赋予的值可以是一个式子,当它是式子时,a的值就是这个式子的结果。
Array(0,1),Array(3,1)这类是两个元素的一维数组
Array(Array(0,1),Array(3,1)...)这是多行两列的二维数组
从数复组i(1 to 6)中查找:1 和27 这两个数值是否存在这个数组中吗?
如果是的制话:
先看楼主的思路:百要定义一个函数来执行两次度,每次都只找一个知数值道。
这样一来一个数组就要扫描两次了。
试下先定义两个 Boolean 变量,用来记录是否遇到1 和27
dim b1 as Boolean, b27 as Boolean
for i = 0 to 5
b1 = b1 or (jihe(i)=1)
b27 = b27 or (jihe(i) = 27)
next
最后
if b1 and b27 then goto line1 else goto line2
array(0,1)(1) 表示取数组{0,1}的第1个元复素(从0开始计制数)百
lbound(array(2,4,6,8))是取数组的下界索引,应该是0
option base如果是度之前设置的,问对结果是有答影响的。