不知道错在哪？？救命啊

Dim n1, h1, h2 As Integer, a As IntegerPrivate Sub Command1_Click()
Dim s
s = "请输入三角形的行数" + Chr(13) + Chr(10) + "3到17之间的整数"
a = InputBox$(s, "输入行数", 12)
Command2.Enabled = True
Command3.Enabled = True
n1 = 0
n2 = 0
End SubPrivate Sub Command2_Click()
Cls
Timer11.Interval = a * 100
Timer1.Enabled = True
Timer11.Enabled = True
End SubPrivate Sub Command3_Click()
Cls
Timer22.Interval = a * 100
Timer2.Enabled = True
Timer22.Enabled = True
End SubPrivate Sub Command4_Click()
End
End SubPrivate Sub Timer1_Timer()
n1 = n1 + 1
Print Tab(30 - n1); String$(2 * n1 - 1, "*")
End SubPrivate Sub Timer11_Timer()
Timer1.Enabled = False
Timer11.Enabled = False
n1 = 0
End SubPrivate Sub Timer2_Timer()
n2 = n2 + 1
Print Tab(10 + n2); String$(2 * a - (2 * n2 - 1), "*")
End SubPrivate Sub Timer22_Timer()
Timer2.Enabled = False
Timer22.Enabled = False
n2 = 0
End Sub
这是个根据用户输入的数字，然后用户选择点击“三角形”或“倒三角形”，则输出相应的图形，但是输出倒三角形时不对，各位大侠烦请帮忙看看