当前位置: 高中信息技术 / 综合题
  • 1. (2020高二下·金华月考) 编写VB程序,实现如下功能:在文本框Text1和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  '(选填字母,从下列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

微信扫码预览、分享更方便