公佈聖誕樹答案

For t = 1 To 8 '此最外回圈是控制聖誕樹的層數
  For i = 1 + e To 7 + s Step 2 '此第二迴圈聖誕樹是控制每層聖誕樹的高(每個梯形的行數)
    For j = 1 To i '此最內迴圈是控制每行要印出幾個"*"
      c = c & "*"
    Next j
    Print Space(35 - i); c
    c = ""
  Next i
  e = e + 3
  s = s + 4
Next t
For i = 1 To 7 '此回圈是樹幹
  Print Space(35 - 8); "********"
Next i

 

此程式碼的版本是 VB6 的 再2008或2005是無法執行的

請利用這個邏輯改寫成VB2008的寫法吧

 

另外沒有上寒期輔導，但在寒輔期間想要進行「程式設計的特別訓練」的人

可以找我 我是上一屆 程式設計的選手  我會到學校指導你們

有意願者請加我的及時通吧  anemo8083