Private Sub Command1_Click()For I = 9 To 0 Step -1Print Space(9 - I); String(2 * I + 1, Trim(Str(I)))NextEnd Sub