vbs代码

vbs 数组

Option Explicit

Dim array(3),str
array(0)="a"
array(1)="b"
array(2)="c"
array(3)="d"
For Each str in array
MsgBox str

Next

显示日期

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
Dim myDate
myDate=Date
MsgBox CurrentTime&myDate

计算0-100相加

dim n,i
n=0
For i=0 To 100 step 2
n=i+n
Next
MsgBox n