有关：数值溢出问题！真是怪啊！！！

Question

sorry,i = 1# * 3600 * 24 * 365才对

Answer 1

Private Sub Command1_Click()
    Dim i As Double
     i = 3600 * 24 
     i = i * 365
     Text1.Text = i
End Sub原因是值赋给 i 以前已经溢出了。

Answer 2

还不行，应该是
Private Sub Command1_Click()
    Dim i As Double
     i = 3600
     i = i * 24  * 365
     Text1.Text = i
End Sub