[此贴子已经被作者于2007-3-21 16:29:46编辑过]
Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 5 Print Tab(20 - i); j = 2 * i - 1 Print String(j, "*") NextEnd Sub
谢谢版主,^_^