学进去

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

（1）Cmd1 对象属于___________ 类（单选，填字母：A.Form / B.Label / C. TextBox D.CommandButton）
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
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