For big = 1 To temp
        For i = 1 To temp
                For j = 1 To temp
                        If shuzu(i, j) = (shuzu(i, j) And shuzu(j, i)) Then
                                If j = temp Then
                                        If cshuzu(i) = i Then
                                        Else
                                                Text8.Text = Text8.Text & " " & i
                                                cshuzu(i) = i
                                                GoTo 1
                                        End If
                                End If
                                GoTo 2
                        End If
                Exit For
        2:Next j
1:Next i
        For i = 1 To temp
                up = cshuzu(i)
                For m = 1 To temp
                        For n = up To up
                                shuzu(m, n) = 0
                        Next n
                Next m
        Next i
        Text8.Text = Text8.Text & vbCrLf
Next big

希望有牛人帮小弟改下上面那个程序，使其能用MATLAB运行。小弟不盛感激