Private Sub Form_click()
Cls
Print: Print: Print
For i = 1 To 8 '输出8行
Print Tab(20 - i); '控制每行的起始位置
For j = 1 To 2 * i - 1 '每行输出2*i-1个“*”
Print "*";
Next
Print '换行
Next
End Sub
Private Sub Form_click()
Cls
Print: Print: Print
For i = 1 To 8 '输出8行
Print Tab(20 - i); '控制每行的起始位置
For j = 1 To 2 * i - 1 '每行输出2*i-1个“*”
Print "*";
Next
Print '换行
Next
End Sub