VB，错误‘6’，溢出，求高手帮我看看怎么回事，我刚接触VB

调试时提示：t(2) = 31 * 24 * 60 * 60
有问题，

Private Sub Command12_Click()
Dim a(121) As Double

Dim Tbi As Double, Tchu As Single, tuwendu As Single, tudaore As Single, tumidu As Single, tubire As Single
Dim kongrezu As Single, kongjing As Single, l As Single, kuosan As Single
Dim t(121) As Double

Const pi = 3.141592654
Const n = 10

a(0) = 0
a(1) = Val(Text1.Text)
a(2) = Val(Text2.Text)
a(3) = Val(Text3.Text)
a(4) = Val(Text4.Text)
a(5) = Val(Text5.Text)
a(6) = Val(Text6.Text)
a(7) = Val(Text7.Text)
a(8) = Val(Text8.Text)
a(9) = Val(Text9.Text)
a(10) = Val(Text10.Text)
a(11) = Val(Text11.Text)
a(12) = Val(Text12.Text)
tudaore = Val(Text13.Text)
tumidu = Val(Text14.Text)
tubire = Val(Text15.Text)
kongrezu = Val(Text16.Text)
tuwendu = Val(Text17.Text)
kongjing = Val(Text18.Text)
l = Val(Text19.Text)

For i = 13 To n * 12