题目

如果一个数大于等于4，它的平方根肯定不会超过它自己，且一个数的平方根最多不会超过它的一半，例如求8的平方根，8的一半是4，4^2=16>8，如果这个数越大越是如此。小王利用这一规律使用对分查找思想计算某数的算数平方根，编写了一个VB程序，功能如下：单击“产生”按钮Command1，产生一个大于等于0且小于100的随机整数，并显示在文本框Text1中；单击“计算”按钮Command2，在文本框Text1中显示随机整数的平方根，且结果只保留整数部分，小数部分舍去。程序运行界面如图所示： （1） 观察程序界面，具有 Caption 属性的对象有个。 （2） 程序代码中，将划线处代码补充完整。Private Sub Command1_Click()    Dim a As Integer    Randomize        Text1.Text = Str(a)End SubPrivate 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 （3） 程序代码中，加框处有错，请改正。 答案： 【1】4 【1】a=Int(Rnd*100)【2】x\2+1【3】L=m (L+R+1)\2

查看本题答案和解析