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