国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbscript基礎篇 - vbs數組Array的定義與使用方法

2020-06-26 17:37:27
字體:
來源:轉載
供稿:網友

vbs數組定義和用法

Array 可返回一個包含數組的變量。
注釋:數組中的第一個元素是零。

語法

Array(arglist)
參數 描述
arglist 必需的。數組中元素值的列表(由逗號分割)。

實例

例子 1

dim aa=Array(5,10,15,20)document.write(a(3))

輸出:

20

例子 2

dim aa=Array(5,10,15,20)document.write(a(0))

輸出:
5

數組變量:有時需要向一個單一的變量賦于多個值,那么您可以創建一個可包含一系列值的變量,這種變量被稱為數組。

'靜態數組dim a(2)a(0)="George"a(1)="john"a(2)="Ethon"for i =0 to 2  msgbox a(i)nextfor i =0 to ubound(a) 'ubound函數,返回指定數組維數的最大可用下標  msgbox a(i)next'動態數組dim a()for i = 0 to 2  redim preserve a(i) 'ReDim語句,用于過程級聲明動態數組變量并分配或重新分配存儲空間  a(i)=i+1   msgbox a(i)next

動態二維數組

'動態二維數組Dim MyArray() '首先定義一個一維動態數組ReDim MyArray(1,1) '重新定義該數組的大小MyArray(0,0) = "A" '分別為數組賦值MyArray(0,1) = "a"MyArray(1,0) = "B"MyArray(1,1) = "b"ReDim Preserve MyArray(1,2) '重新定義該數組的大小MyArray(0,2) = "A-a" '繼續為數組賦值MyArray(1,2) = "B-b"MsgBox UBound(MyArray,1)MsgBox UBound(MyArray,2)For i=0 To UBound(MyArray,1)  For j=0 To UBound(MyArray,2)    MsgBox MyArray(i,j) '循環遍歷數組,并輸出數組值  NextNext

一維動態數組

Dim MyArray() '首先定義一個一維動態數組ReDim MyArray(3) '重新定義該數組的大小MyArray(0) = "我" '分別為數組賦值MyArray(1) = "要"MyArray(2) = "學"MyArray(3) = "習"ReDim Preserve MyArray(5) '重新定義該數組的大小MyArray(4) = "測" '繼續為數組賦值MyArray(5) = "試"For i=0 To UBound(MyArray)  MsgBox MyArray(i) '循環遍歷數組,并輸出數組值Next

這篇文章就介紹到這,需要的朋友可以參考一下。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 桐乡市| 绥棱县| 商洛市| 惠水县| 卫辉市| 利辛县| 共和县| 景洪市| 临朐县| 乐至县| 仁寿县| 大英县| 西乌珠穆沁旗| 甘孜县| 浮梁县| 泗阳县| 烟台市| 杭锦后旗| 左权县| 铜梁县| 商都县| 南平市| 定兴县| 大方县| 昭通市| 报价| 霍山县| 盱眙县| 巴塘县| 林周县| 梁河县| 日照市| 汤阴县| 张家港市| 淄博市| 区。| 阜平县| 长治县| 磐石市| 兴海县| 麻栗坡县|