1. (2019高三上·浙江月考) 如果一个数大于等于4，它的平方根肯定不会超过它自己，且一个数的平方根最多不会超过它的一半，例如求8的平方根，8的一半是4，4^2=16>8，如果这个数越大越是如此。小王利用这一规律使用对分查找思想计算某数的算数平方根，编写了一个VB程序，功能如下：单击“产生”按钮Command1，产生一个大于等于0且小于100的随机整数，并显示在文本框Text1中；单击“计算”按钮Command2，在文本框Text1中显示随机整数的平方根，且结果只保留整数部分，小数部分舍去。程序运行界面如图所示：

1. （1） 观察程序界面，具有 Caption 属性的对象有个。
3. （2） 程序代码中，将划线处代码补充完整。

   Private Sub Command1_Click()

       Dim a As Integer

       Randomize

      

       Text1.Text = Str(a)

   End Sub

   Private Sub Command2_Click()

       Dim L As Integer, R As Integer, m As Integer

       Dim x As Integer, square As Integer

       x = Val(Text1.Text) L = 0

       R =

       Do While L < R

                   '改错

           square = m * m

           If square > x Then

               R = m - 1

           Else

              

           End If

       Loop

       Text2.Text = Str(L)

   End Sub

5. （3） 程序代码中，加框处有错，请改正。