設計思路?1．定義壹個整型二維動態數組，其實際元素個數由鍵盤輸入。?
2． 對輸入數據進行檢查，確保輸入數據在1至16之間，以免溢出。?
3． 編寫程序代碼，當確認輸入數據後，在窗體上打印楊輝三角形。
操作步驟
1． 建立新項目，並設計窗體。文本框用來輸入要打印楊輝三角形的行數；“確定”按鈕執行具體打印操作；窗體左 側的數字為打印的楊輝三角形實例。
2． 為“確定”按鈕編寫如下代碼：Private Sub Command1Click()
Dim RowNum() As Integer ′定義整型動態數組 Dim i As Integer, j As Integer ′定義循環變量 Dim Num As Integer Cls ′清空窗體內容 Num=Val(Text1.Text) + 1 If Num >=18 Then ′對輸入數據進行檢查（小於17） Text1.Text= 〃〃 Exit Sub?End If
ReDim RowNum(1 To Num, 1 To Num) ′根據輸入值重新確定數組
’維數及大小?下面是具體打印楊輝三角形的代碼：
For i = 1 To Num-1′將第壹列及對角元素置1
RowNum(i, i)=1 RowNum(i, 1)=1 Next For i = 3 To Num-1 ′計算其它元素值 For j = 2 To i-1 RowNum(i, j)=RowNum(i-1, j-1)+Row Num(i-1,j) Next Next For i = 1 To Num-1 ′打印楊輝三角形 For j = 1 To i Print RowNum(i, j); Next Print Next End Sub 3． 調試並運行程序，觀察輸出結果。