题目
编写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 ' (选填字母,从下列ⅰ、Ⅱ、Ⅲ、Ⅳ中选取一项) t = t1: t1 = t2: t2 = tEnd Ifi = t1Do While②'(选填字母,从下列ⅰ、Ⅱ、Ⅲ、Ⅳ中选取一项)f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度List1.AddItem Str(i) + " " + Str(f) '(填程序代码)LoopEnd Sub划线①、②处的选项: Ⅰ.i <= t2 Ⅱ.f <= t2 Ⅲ.t1 > t2 Ⅳ.i < f
答案: 【1】Caption
【1】Ⅲ【2】Ⅰ【3】i=i+1