1. (2021高二下·丽水月考) 某垃圾分类VB程序功能如下：在文本框Text1中输入一串字符（数据用逗号分隔，以逗号结尾），单击“统计”按钮Cmd1后，程序实现计算干、湿垃圾的重量及总重量（单位：斤）。输入字符串中的前后两个数字字符为一组，第一个数字字符代表垃圾种类，1表示干垃圾，2表示湿垃圾，第二个数字字符代表该垃圾的重量。例如：输入字符串“2，1，1，12，”，程序统计结果为干垃圾12斤，湿垃圾1斤，总重量13斤。程序运行界面如图所示。

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

   Private Sub Cmd1_Click()

       Dim s As String, s1 As String, t As Integer, i As Integer

       Dim k As Integer, bh As Integer, w As Integer

       Dim w1 As Integer, w2 As Integer

       s = Text1.Text: k = 1: t = 0: bh = 0      'bh存储当前垃圾的垃圾编号

       w1 = 0: w2 = 0

       For i = 1 To Len(s) s1 = Mid(s, i, 1)

           If  Then

               t = t * 10 + Val(s1)

           Else

               If Then

                   bh = t

               Else

                   If bh = 1 Then

                       w1 = w1 + t

                   Else

                       w2 = w2 + t

                   End If

                  

               End If

               k = k + 1

              

           End If

       Next i

       List1.AddItem "干垃圾共" + Str(w1) + "斤"

       List1.AddItem "湿垃圾共" + Str(w2) + "斤"

       Label3.Caption = "总重量共有" + Str(w) + "斤"

   End Sub

5. （3） 程序中加框处代码有错，请改正。