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

首頁 > 編程 > VBScript > 正文

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

2020-07-26 11:44:52
字體:
來源:轉載
供稿:網友

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 托克托县| 东莞市| 新丰县| 米易县| 东城区| 呼图壁县| 冀州市| 灵石县| 平远县| 沙河市| 秦皇岛市| 沙坪坝区| 北票市| 柏乡县| 大理市| 亚东县| 临夏市| 肃北| 庆阳市| 清新县| 陈巴尔虎旗| 巫溪县| 永泰县| 英吉沙县| 南投市| 白朗县| 禄劝| 沭阳县| 马关县| 榆社县| 忻州市| 嘉义市| 宣化县| 海伦市| 浏阳市| 黔江区| 南木林县| 太湖县| 阳朔县| 巧家县| 焉耆|