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

首頁 > 編程 > VBScript > 正文

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

2019-10-26 18:08:18
字體:
來源:轉載
供稿:網友

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 新巴尔虎左旗| 齐齐哈尔市| 纳雍县| 渭南市| 长武县| 铅山县| 青田县| 和政县| 新和县| 肇源县| 平顶山市| 白沙| 从江县| 河东区| 香河县| 四子王旗| 株洲县| 湖北省| 青龙| 南木林县| 鸡东县| 屏南县| 涞源县| 襄城县| 磐安县| 伊宁县| 定襄县| 浦县| 靖边县| 七台河市| 峡江县| 邵阳市| 威远县| 弥渡县| 盈江县| 长岭县| 金川县| 安达市| 义马市| 荆门市| 香格里拉县|