編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Textl和Text2中分別輸入一個(gè)整數(shù)，單擊命令按鈕Command1，在列表框List1中顯示結(jié)果，運(yùn)行效果如圖a所示。結(jié)果包含兩列數(shù)據(jù)，第1列為兩數(shù)之間的攝氏溫度值（間隔1度、升序），第2列為對(duì)應(yīng)的華氏溫度值。

（1）要使命令按鈕Command1上顯示的文本改為“轉(zhuǎn)換”，可在其屬性窗口（圖b） 中將

Caption

Caption

屬性的屬性值修改為“轉(zhuǎn)換”。
（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)跈M線處填入合適代碼。
Private Sub Command1_Click （　　）
Dim t1As Integer,t2As Integer
Dim i As Integer,t As Integer
Dim f As Single
List1．Clear
t1=Val（Text1．Text）
t2=Val（Text2．Text）
If ①

t1＞t2

t1＞t2

Then
t=t1：t1=t2：t2=t
End If
i=②

t1

t1

Do While  i＜=t2
f=i*9/5+32'攝氏溫度轉(zhuǎn)換為華氏溫度
List1．AddItem Str（i）+““+Str（f）
③

i=i+1

i=i+1

Loop
End Sub