国产探花免费观看_亚洲丰满少妇自慰呻吟_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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 隆化县| 托克托县| 定西市| 朝阳区| 北宁市| 新竹市| 景德镇市| 曲周县| 平和县| 和静县| 图们市| 宿州市| 揭西县| 乡城县| 四会市| 万盛区| 桃江县| 穆棱市| 八宿县| 芜湖市| 腾冲县| 顺昌县| 那曲县| 辽宁省| 长春市| 隆安县| 开平市| 宁河县| 图们市| 张家口市| 吉安市| 嘉祥县| 磴口县| 寿阳县| 读书| 繁昌县| 沈丘县| 当雄县| 剑河县| 富平县| 万山特区|