学进去

某校跳高比赛计分规则如下：每个高度每位选手最多试跳三次，成功记为1，失败或轮空记为0.如选手第一次试跳成功记为100，第二次试跳成功记为010，第三试跳成功记为001，三次失败则终止比赛。编写VB程序统计选手积分，在文本框Textl中输入姓名和成绩，在列表框Listl中输出结果，其算法如下： 1.将每个选手的跳高记录三位一组转换成十进制数存储到数组a（该数组元素的值都不相同）。2.先比较数组a中各数组元素的长度，长度长的排名在前：若长度相同的情况下从后往前依次比较字符大小，当前数值大的排名在前。程序运行界面如图所示：

请在划线处填入合适的代码。
Dima(1 To 9) As String   '存储跳高成绩
Dim b(1 To 9)As String   '存储学生姓名
Dimc(1 To 9) As Integer
Private Sub Commandl_ Click()
Dim ch As String, tmp As Integer,t As Integer
Dim p As Integer,k As Integer,i As Integerj As Integer
Dim s As String
s= Textl.Text:t=0.
For i= 1 To_______
If Mid(s,i, 1)<> "/" Then
ch= ch + Mid(s, i, 1)
Else
t=t+ 1
If t Mod2= 0 Then
a(t\2)= zh(ch)
Else
_________
End If
ch= ""
End If
Next i
For i= 1 To t\2.
c(i)=i
Next i
For i= 1 To t\2- 1
p= i
For j=i+ 1 To t\2
If Len(a(p)) < Len(a(cCj)) Then
p=j
Elself Len(a(C(j))) = Len(a(c(p))) Then
k= Len(a()): flag = True
Do While k>= 1 And flag
If Val(Mid(cCj)),k,1))> Val(Mid(a(c(p)),k,1))Then
p=j
flag=false
Elself val(Mid(c(j)), k, 1)) = val(Mid(a(c(p)), k, 1)) Then
k=k- 1
Else
flag = False
End If
Loop
End If
Nextj
If p< i Then
tmp = c():c(i) = c(p): c(p)= tmp
End If
Next i
For i= 1 To t\2 .
___________
Next i
End Sub
Function zh(cm As String) As String
Dim temp As String
Dim i As Integerj As Integer
For i= 1 To_______
For j= 1 To3
temp =temp * 2 + Val(Mid(cm,(i-1)*3+j,1))
Nextj
zh= zh + CStr(temp)   'CStr函数可把表达式转换为字符串类型
temp = 0
Next i
End Function