当前位置: 高中信息技术 / 综合题
  • 1. (2020高二上·丽水月考) 小刘记录了某地每天最高气温和最低气温,现要编写VB程序,计算一周内最大温差(当日最高气温与最低气温之差)。功能如下:在文本框Text1中依次输入本周内每天的最高气温与最低气温(数据都用逗号分隔并以逗号结尾),单击“计算”按钮Cmd后,程序计算出最大温差,结果显示在Label1中。界面设计如下图所示:

    1. (1) Cmd 对象属于类 (单选,填字母:A . Form / B . Label / C . TextBox   D . CommandButton)。
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Private Sub Command1_Click()

      Dim i As Integer, j As Integer, k As Integer

      Dim min As Single, max As Single

      Dim d As Single, v As Single, s As String

      s = Text1.Text

      d = 0: maxd = 0

      j = 1: k = 1

      For i = 1 To Len(s)

         If Mid(s, i, 1) = "," Then

         

           j = i + 1

           If  Then

              max = v

           Else

              min = v

              d = max - min

              If d > maxd Then

      End If

           k = k + 1

         End If

      Next i

      Label1.Caption = "本周温差最大值为" & Str(maxd)

      End Sub

    3. (3) 加框处的代码有误,请改正:
    4. (4) 运行该程序,输入数据如上图所示,程序执行到循环结束时,变量k为

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