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

1. （1） Cmd 对象属于类 （单选，填字母：A . Form / B . Label / C . TextBox   D . CommandButton）。
3. （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

5. （3） 加框处的代码有误，请改正：
7. （4） 运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k为