Private Sub Command1_Click()

    Timer1.Enabled =      ①    

End Sub

Private Sub Timer1_Timer()                 

    sec = Val(Text2.Text)

    min = Val(Text1.Text)

If sec> 0 Then

    sec = sec - 1

Else

    sec = 59                           

If min > 0 Then                            

    min = min - 1

Else

   Text1 = 0

   Text2 = 0

MsgBox "倒计时时间到"

End If

End If

Text1 = min

Text2 = sec

End Sub

小明用VB设计了计算个税的程序，程序运行时界面如图所示，在文本框Text1中输入月收入后，点击“开始计算”按钮后，在文本框Text2中显示该产品应征收的税金。

图1

Private Sub Command1_Click()

  Dim x As Double

  Dim y As Double

  x = Val(Text1.Text)

  y = Abs(x)

  x = int(y)

  Text2.Text = Str(x)

End Sub

此应用程序执行后，出现了如图所示的错误信息，请问产生此错误的原因是(   )