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

B

B

（單選，填字母：A.Command1=“計(jì)算”/B.Command1.Caption=“計(jì)算”/C.Commandl.Text=“計(jì)算”）。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
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

。