你想参加二级考试吧?
Private Sub Command1_Click()
Command1.Move (Form1.Width - Command1.Width) / 2, Form1.Height - 1200
For i = 1 To 9
CurrentX = Form1.Width / 2 - 270 * i
For j = 1 To i
Print j;
Next
n = i
While n > 1
n = n - 1
Print n;
Wend
Print
Next
End Sub
Private Sub Form_click()
Cls
End Sub