一个弹球会发出红、绿或蓝三种单色光。发着光的弹球从高处垂直下落，触地会垂直弹起，且弹起时发光颜色会变化。假设弹球下落高度为h,触地前发红光、绿光、蓝光时，反弹高度分别为0.8h、0.6h、0.5h。触地若干次后，弹球弹起时不再发光。
观察弹球的发光颜色变化，并用字符串记录，其中每个字符表示弹球一次触地前的发光颜色（字符R、G、B分别表示红、绿、蓝）。
编写一个VB程序，计算弹球发光状态下的运动轨迹长度。在文本框Text1中输入弹球的初始高度，在文本框Text2中输入表示发光颜色变化的字符串，单击命令按钮Commandl后，文本框Text3中显示弹球在发光状态下的运动轨迹长度，程序运行界面如图所示。
（1）若要将命令按钮Commandl上显示的内容改为“计算”，能实现该功能的语句是

B

B

（单选，填字母：A.Command1=“计算”/B.Command1.Caption=“计算”/C.Commandl.Text=“计算”）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Commandl_Click（　　）
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中显示的内容是

40

40

。