回到首頁のHighlight 12:While迴圈(續)

 by董松喬@2009.06.09

#倒星形金字塔圖形(For Loop)

輸入一個你想到的數字,我們很可以堆出一個漂亮的星形塔:
請輸入數字 (數字大於0)

While迴圈練習

1.如果進行1到x的連加演算,也可以使用迴圈
 Dim a, m, s
m= 0
a = cint(request("x"))~設定初始值
While m < a
m = m + 1 ~設定敘述式
s= s + 1
End While(即會從m=0, 1, 2, 3依序執行,共x次,而得到1+2+3+......+x 的總和)
試試看:
2.星形金字塔圖形(While Loop)請輸入數字 (數字大於0)