1. (2019高二下·丽水期末) 某VB程序的一个事件处理过程如下：

Private Sub Command1_Click()

  Dim a As Integer

  a = Val(Text1.Text)

  Text1.Text = Str(Sqr(a))

End Sub

程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。出现错误的原因可能是（  ）