[tips0034.vbs] Option Explicit Dim strValue ' 配列 Dim lngLoop ' ループカウンタ strValue = Array("sun", "mon", "tue", "wed", "thu", "fri", "sat") For lngLoop = 0 To UBound(strValue) WScript.Echo "配列(" & lngLoop & "):" & strValue(lngLoop) Next
C:\> cscript //NoLogo tips0034.vbs 配列(0):sun 配列(1):mon 配列(2):tue 配列(3):wed 配列(4):thu 配列(5):fri 配列(6):sat