某VB程序的一个事件处理过程如下：

Private Sub Command1_Click()

  Dim a As Integer

  a = Val(Text1.Text)

  Text1.Text = Str(Sqr(a))

End Sub

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

A、Sqr函数计算时出现错误

B、Str函数计算时出现错误

C、窗体上缺少文本框Text1

D、变量a类型定义错误