（加试题）如图所示程序运行时，点击“生成”按钮，随机产生100个不重复的仅由数字和大小写字母组成的3位字符串并显示在List1中，点击“排序”按钮，将所有字符串排序后在List2中输出。要求：数字开头的字符串在前并按升序排序，字母开头的字符串在后并按降序排序。

实现上述功能的代码如下，但划线处代码有错，请改正。
Private Sub Command1_Click()
‘随机产生100个不重复的仅由数字和大小写字母组成的3位字符串并存储到数组zfc(1)至zfc(100)中，同时在List1中显示，代码略。
Private Sub Command2_Click()
Dim zfc(1 to 101) as integer
Dim i, j, m, k As Integer
Dim s As Boolean
For i = 1 To 100
If Asc(Mid(zfc(i), 1, 1)) >=48  Then  t = t + 1    ________________
Next  i
For i = 1 To 99
For  j = i + 1 To 100 _____________
If zfc(j - 1) > zfc(j) Then
zfc(101) = zfc(j - 1): zfc(j - 1) = zfc(j): zfc(j) = zfc(101)
End If
Next  j
Next  i
For  i = t + 1 To 99
k = i
For  j = i + 1 To 100
If zfc(k) < zfc(j) Then k = j
Next j
If  k <> i Then zfc(101) = zfc(i): zfc(i) = zfc(k): zfc(k) = zfc(101)
Next  i
For  i = 1 To 100
List2.AddItem zfc(i)
Next  i
End sub