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