1. 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