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