VB中，运行以下代码后，Texr1.Text的值为（     ）。

Private Sub Command1_Click( )

    Dim a As Integer, b As Integer

    a = val(“9”)

    b = sqr(a)

    Texr1.Text =str (b)

End Sub

A、3

B、6

C、"3"

D、"6"