' vbs 中的数组

'vbs中数组具有自己的特点

'1、vbs中支持一维、二维和多位数组，最多能有60维

'2、vbs中具有和C语言数组一样的下标规范，都是从下标0开始

'3、vbs的下标比每一维的长度小1，这个比较多

'4、vbs可以定义动态数组，即数组的维数和每一维的

'定义一个一维数组

Dim nArrTest()

nArrTest() =

nArrTest() =

nArrTest() =

MsgBox nArrTest() + nArrTest() + nArrTest()

'定义维数固定的数组

'定义一个 3行 2列的数组

Dim strArrPhoneList(,)

strArrPhoneList(,) = "Lily"

strArrPhoneList(,) = ""

strArrPhoneList(,) = ""

strArrPhoneList(,) = "Mike"

strArrPhoneList(,) = ""

strArrPhoneList(,) = ""

strArrPhoneList(,) = "Jack"

strArrPhoneList(,) = ""

strArrPhoneList(,) = "" 

strArrPhoneList(,) = "Jone"

strArrPhoneList(,) = ""

strArrPhoneList(,) = ""

'这个地方有一个常数 vbCrLf 就是换行符号

'还会回到行头home位置

Dim strInformation

strInformation = "名字       学号        电话号码" & vbCrLf 

'循环遍历数组

'对于固定的数组利用for循环是最好的遍历方式

Dim nRow

Dim nColumn

For nRow =  To

    For nColumn =  To

        strInformation = strInformation & strArrPhoneList(nRow,nColumn)_

                         &"           "

    Next

    strInformation = strInformation & vbCrLf

Next

'显示信息

MsgBox strInformation

MsgBox "数组一维的上界为: " & UBound(strArrPhoneList)

MsgBox "数组二维的上界为: " & UBound(strArrPhoneList,)

'定义动态数组

'输入一组数据

Dim nArrSum()

Dim nArrayLen

Dim nInput

nArrayLen =

Do

    '这个地方利用了一个关键字， preserve 用来在改变动态数组的维度时

    '保持原数组的数据不变

    ReDim Preserve nArrSum(nArrayLen)

    nInput = InputBox("请输入数值，输入 end 结束输入:","输入数据","")

    If IsNumeric(nInput) Then

        nArrSum(nArrayLen) =nInput

        nArrLen = nArrayLen +

    Else

        '这个地方需要注意，如果利用上面的方法输入要注意循环的次数

        ReDim Preserve nArrSum(nArrLen - )

        nArrayLen = nArrayLen -

    End If

Loop While IsNumeric(nInput)

Dim nLoop

For nLoop =  To nArrayLen

    MsgBox nArrSum(nLoop)

Next

'要注意函数ubound对于一维数组的返回值一直是0，也就是说

'这个函数主要针对多维数组才有意义

MsgBox "动态数组的一维的上界为: " & UBound(nArrSum)

'数组的清除

'vbs中提供了一项方便的功能来清除数组

'Erase语句

Erase nArrSum

'下面的语句不能执行应为

'MsgBox "通过Erase语句清除动态数组后的维数为: " & UBound(nArrSum,1)