Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If Then '(选填字母,从下列A、B、C、D四个选项中选取一项)
t = t1: t1 = t2: t2 = t
End If
i = t1
Do While '(选填字母,从下列A、B、C、D四个选项中选取一项)
f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
'(填程序代码)
Loop
End Sub
划线①、②处的选项:
A .i <= t2 B .f <= t2 C .t1 > t2 D . i < f