墙上那一串串红辣椒——数组入门讲座

ft4919226

Dim arrInt(), arrStr(), arrSplit() As String
    arrInt() = Array(1, 5, 3, 8)                    ' 使用Array不需要定义数组类型
    arrStr = Array("张三", "李四", "王五", "赵六")
    arrSplit = Split("apple,boy,cat,dog", ",") '使用Split要定义数组类型
    [a1].Resize(1, 4) = arrInt
    Range("a2:d2") = arrStr
    Range("a3:d3") = arrSplit

luolei0914

山版主，我想请问一下数组入门11的例子中UBound(Temp) = -1这句话什么意思？
谢谢

any1009

数组，mark

gumption83

现在才看到这么好的教育篇 感谢山菊花版主

ecustcheng

很棒，学习了

tudarong

好帖，06年的老帖，真心不错

为了成长

mark谢谢老师太强大乐

绕树三匝

山菊花 发表于 2006-10-26 16:15
园子里是不是有红苹果？你手中的牌是不是有红桃K？我们用眼睛一瞄就知道。数组元素中是不是有“张三”，是 ...

版主，11楼的例子（搜索数组）我非常困惑。源代码是这样的
Private Sub CommandButton1_Click()
    Dim xm() As String, arr() As String, temp() As String '声明变量
    Dim s%, r% '声明单值变量
    On Error Resume Next '启动一个错误处理程序
    xm = Split(Range("a1"), ",") '用A1单元格的数据创建数组
    r = 0 '初值
    s = UBound(xm) '最大下标
    For i = 0 To s '循环
        temp = Filter(arr, xm(i)) '搜索数组
        If UBound(temp) = -1 Then '如果未找到
            r = r + 1 '序号，自增1
            ReDim Preserve arr(1 To r) '定义动态数组大小
            arr(r) = xm(i) '把姓名复制到数组Arr()中。
        End If
    Next
    'Range("a2").Resize(1, r) = Arr '填充到工作表
    Range("a2") = Join(arr, ",")
End Sub

其中有句代码：If UBound(temp) = -1 Then '如果未找到
如果我把-1改成其他的负数（-2，-3等等），那么原程序就只能返回第一个值了。这个-1到底有什么玄机？望山老师释疑!

山菊花

绕树三匝 发表于 2018-11-13 10:18
版主，11楼的例子（搜索数组）我非常困惑。源代码是这样的
Private Sub CommandButton1_Click()
    Di ...

1、先说一个题外话。把-1改成其他的负数（-2，-3等等），那么原程序就只能返回第一个值，这是一个意外，如果把程序改一改，就会一个值也得不到：


2、用Ubound()函数，可以获得一个数组的最大下标，如下图所示，数组xm的最大下标是32：


可以新建一个过程，测试一下：
Dim Arr(9)
Debug.Print UBound(Arr)
Dim Brr(3 To 23)
Debug.Print UBound(Brr)
Dim Crr(-5 To 99)
Debug.Print UBound(Crr)

上面的数组都是一维数组，如果是二维及二维以上数组，还必须用第二个参数指定是哪一维，如：
Dim Drr(1 To 3, 1 To 12)
Debug.Print UBound(Drr, 1)
Debug.Print UBound(Drr, 2)

用LBound 函数可以获得数组的最小下标。

3、搜索数组时，如果数组中不存在指定的数据，会返回一个上标为-1的数组。
反过来说就是，如果结果数组的上标为-1，表示找不到指定的数据。

等于-2、等于-3表示什么呢？没什么意义。

4、打开本地窗口，按F8逐行运行程序，可直观理解程序的作用。

绕树三匝

山菊花 发表于 2018-11-13 11:20
1、先说一个题外话。把-1改成其他的负数（-2，-3等等），那么原程序就只能返回第一个值，这是一个意外， ...

其实我一开始也用F8调试了，只是在第一个循环的时候（i=0,arr是空数组string(). ),  temp显示的也是空数组string(), 所以始终看不明白怎么回事。继续F8到了第2个循环，arr有值了，这个时候终于看到temp是string（0 to -1）.
无论如何，谢谢山老师的解答。