一個彈球會發(fā)出紅、綠或藍三種單色光。發(fā)著光的彈球從高處垂直下落，觸地會垂直彈起，且彈起時發(fā)光顏色會變化。假設(shè)彈球下落高度為h,觸地前發(fā)紅光、綠光、藍光時，反彈高度分別為0.8h、0.6h、0.5h。觸地若干次后，彈球彈起時不再發(fā)光。
觀察彈球的發(fā)光顏色變化，并用字符串記錄，其中每個字符表示彈球一次觸地前的發(fā)光顏色（字符R、G、B分別表示紅、綠、藍）。
編寫一個VB程序，計算彈球發(fā)光狀態(tài)下的運動軌跡長度。在文本框Text1中輸入彈球的初始高度，在文本框Text2中輸入表示發(fā)光顏色變化的字符串，單擊命令按鈕Commandl后，文本框Text3中顯示彈球在發(fā)光狀態(tài)下的運動軌跡長度，程序運行界面如圖所示。
（1）若要將命令按鈕Commandl上顯示的內(nèi)容改為“計算”，能實現(xiàn)該功能的語句是

B

B

（單選，填字母：A.Command1=“計算”/B.Command1.Caption=“計算”/C.Commandl.Text=“計算”）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Commandl_Click（　?。?br />Dimh As Single,sumAsSingle
Dims As String,cAsString
Dimi As Integer
h=Val（Textl.Text）
s=Text2.Text
sum=h
Fori=1ToLen（s）-1
①
Ifc=″R″Then
h=0.8*h
②
h=0.6*h
Else
h=0.5*h
End If
sum=sum+h*2
Next i
Text3.Text=Str（Int（sum））
End Sub
（3）若將程序中的語句“Text3.Text=Str（Int（sum））”改為“Text3.Text=Str（Int（h））”，在文本框Text1中輸入“100”，在文本框Text2中輸入“BRG”，單擊命令按鈕Command1后，文本框Text3中顯示的內(nèi)容是

40

40

。