編程代碼學生

尺寸i%，lMax%，j%，iStep%

Dim s$美元

lMax = 2

iStep = 1

j = 0

當我& lt2010

j = j + iStep

如果j = lMax，則

lMax = lMax + 1

iStep = -1

那麽ElseIf j = 1

iStep = 1

如果…就會結束

i = i + 1

s =標準普爾。強生公司。","

環

MsgBox“第壹個”&；我& amp" Number = " &；j

調試。打印s