一个vb程序设计题，谁有好方法告诉我

 

1、            通过输入对话框输入一批成绩（以输入“－1”表示结束），把及格的和不及格的成绩分别存放在数组a和b中，并以每行5 个数据的形式输出数组a和b。

昨晚弄了好久呢~~~最好玉丰帮忙实现了，但是那代码他自己用了半个小时才弄完的。觉得开始的路就不对。
只好把他那代码珍藏了。“可抄性”太差了~~~

Dim n1() As Integer

Dim ss As Single


'------------------------------------------------------------
Dim a() As Integer
Dim b() As Integer

Dim C() As Integer
Dim aSize As Integer
Dim bSize As Integer


'------------------------------------------------------------






Private Sub Command1_Click()

aSize = 0
bSize = 0

   Dim intA As Integer
   Dim intC As Integer
   Dim i As Integer
   

'初始化




msg$ = "请输入分数（-1结束）"
msgtitle$ = "输入数据"
start:
ss = InputBox(msg$, msgtitle$)

If ss < 0 Or ss > 100 Then
GoTo finish
Else





If ss < 60 Then

    If aSize > 0 Then
       
        ReDim C(UBound(a)) As Integer
        For intA = 0 To UBound(a)
            C(intA) = a(intA)
        Next intA
       
    End If
    
    ReDim a(aSize + 1) As Integer
    
     If aSize > 0 Then
        For intC = 0 To UBound(C)
        a(intC) = C(intC)
        Next intC
        a(aSize + 1) = ss
     End If
    a(aSize) = ss
    aSize = aSize + 1
End If



GoTo start

End If

finish:

For i = 0 To UBound(a)
    Print a(i)

Next i
   


End Sub


Private Sub Form_Load()

End Sub