VB程式設計：While...Wend語句執行個體漂亮的星星

程式代碼：

Private Sub Command1_Click()

   Dim a As Long, b As Long

   Form1.Cls               '清空窗體

   While a <= 9            '限制條件，0-9，一共輸出10行

       a = a + 1           '調整輸出位置

       For b = 1 To 23 - a

           Print " ";

       Next b

       For b = 1 To 2 * a - 1

           Print "*";

       Print

   Wend

End Sub

編寫總結：

   1、print後面的“；”表示不換行連續輸出；

   2、單獨輸出print，表示回車換行；

   3、VB程式設計時，敲入“？”會自動變為print。