进入作家协会有工资吗:vb改错请教高手，在线等

Option Explicit
Private Sub Command1_Click()
Dim I As Integer, J As Integer, B() As Integer, K As Integer
Call sub1(B)
For I = 1 To 20
For J = 1 To 20
If J > I Then
For K = 1 To 20
If I <> K And K <> J Then
If B(I) + B(J) + B(K) = 100 Then
List1.AddItem Str(B(I)) & Str(B(J)) & Str(B(K))
End If
End If
Next K
End If
Next J
Next I
End Sub
Private Sub sub1(A() As Integer)
Dim I As Integer, J As Integer, K As Integer
I = 1
ReDim A(I)
A(I) = Int(51 * Rnd) + 10
Text1 = Text1 & Str(A(I))
Do
K = Int(51 * Rnd) + 10
For J = I - 1 To 1 Step -1
If K = A(J) Then Exit For
Next J
If J < 1 Then
ReDim Preserve A(I)
A(I) = K
Text1 = Text1 & Str(K)
If I Mod 5 = 0 Then Text1 = Text1 & vbCrLf
I = I + 1
End If
Loop While I < 20
End Sub