如果一個(gè)數(shù)大于等于 4，它的平方根肯定不會(huì)超過它自己，且一個(gè)數(shù)的平方根最多不會(huì)超過它的一半，例如求 8的平方根，8的一半是 4，4^2=16＞8，如果這個(gè)數(shù)越大越是如此。小王利用這一規(guī)律使用對(duì)分查找思想計(jì)算某數(shù)的算術(shù)平方根，編寫了一個(gè) VB程序，功能如下：單擊“產(chǎn)生”按鈕 Command1，產(chǎn)生一個(gè)大于等于 0且小于 100的隨機(jī)整數(shù)，并顯示在文本框 Text1中；單擊“計(jì)算”按鈕 Command2，在文本框 Text1中顯示隨機(jī)整數(shù)的平方根，且結(jié)果只保留整數(shù)部分，小數(shù)部分舍去。程序運(yùn)行界面如圖所示：
（1）觀察程序界面，具有Caption屬性的對(duì)象有

4

4

個(gè)。
（2）程序代碼中，將橫線處代碼補(bǔ)充完整。
（3）程序代碼中，加框處有錯(cuò)，請(qǐng)改正。
Private Sub Command1_Click （　　）
 Dim a As Integer
Randomize

①

①

Text1．Text=Str（a） End Sub
Private Sub Command2_Click

（　?。?/div>

（　?。?/div>
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
m=（L+R）\2'改錯(cuò)square=m*m
If square＞x Then R=m-1
Else

③

③

End If Loop
Text2．Text=Str（L） End Sub