编写VB程序,实现如下功能:在文本框Textl和Text2中分别输入一个整数,单击命令按钮Command1,在列表框List1中显示结果,运行效果如1图所示。结果包含两列数据,第1列为两数之间的摄氏温度值(间隔1度、升序),第2列为对应的华氏温度值。
1图
(1)
要使命令按钮Command1上显示的文本改为“转换”,可在其属性窗口(2图)中将属性的属性值修改为“转换”。
2图
(2)
为实现上述功能,请在方框处填入合适代码。
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
t = t1: t1 = t2: t2 = t
End If
i = t1
Do While ②
f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
Loop End Sub
(3)
划线处填入合适的选项:
A.i <= t2 B.f <= t2
C.t1 > t2 D. i < f
① ②
答案: 【1】Caption
i + 1
【1】C【2】A