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