单选题 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。要求编写一个程序，统计文本框中0～9各数字字符的个数。某人编写如下程序：
Private Sub Command1_Click()
Dim count(10) As Integer
第1个For循环
For i=0 To 9
count(i)=0
Next
S=Trim(Text1.Text)
strLen=Len(S)
第2个For循环
For i=1 To strLen
C=Mid(g,i,1)
If e＞="0" And C＜="9" Then
x=Val(c)
count(i)=count(i)+1
End If
Next
第3个For循环
For i=0 To 9
Print Str(i), count(i)
Next
End Sub
运行程序后，发现不能实现题目的要求，程序应该进行的修改是______。