用VB打印三角图案第一行#,第2行#*#,第三行#***#,第四行##.急用!

Dim KG As IntegerPrivate Sub form_Click()  Me。Cls  KG = 0  N = InputBox("要输入的行数!")  If IsNumeric(N) And N <> 0 Then    Print Space(N); "#"    For i = 1 To N * 2 - 3 Step 2      KG = KG + 1      Print Space(N - KG); "#"; String(i, "*"); "#"    Next i  Else    MsgBox "请输入有效数值!"  End IfEnd Sub'等腰三角形 '任意行数 '例子是插入了30行