你想参加二级考试吧? 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