用vba运行太慢了，带不动！是哪位老师帮忙修改成c语言格式，
在淘宝上找了全是黑心中介，东西不会做开口几千几百！恶心到！
谢谢
Sub 前区编码定制()
Dim B%, h#, i#, u#, X%, s#, n#, J#, Er(1 To 5)  '对半值'？？？？？？？？？？？？
Dim Ar(0 To 9, 0 To 9) '？？？？？？？？？？？？
Dim N1%, N2%, N3%, N4%, N5%, N6%, N7%, N8%, N9%, N10%, N11%, N12%, N13%, N14%, N15%, N16%, N17%, N18%
B = UBound(Er)
With Sheet16 '红新编码？？？？？？？？？？？？
.[c1] = B '长度发送
For N1 = LBound(Ar) To UBound(Ar) - 4
    For N2 = N1 + 1 To UBound(Ar) - 3
        For N3 = N2 + 1 To UBound(Ar) - 2
            For N4 = N3 + 1 To UBound(Ar) - 1
                For N5 = N4 + 1 To N4 + 1
                        n = n + 1
                        Er(1) = N1
                        Er(2) = N2
                        Er(3) = N3
                        Er(4) = N4
                        Er(5) = N5
                        For h = 1 To UBound(Er)
                            For i = 1 To UBound(Er)
                                Ar(Er(i), Er(h)) = Ar(Er(i), Er(h)) + 1
                            Next i
                        Next h
                Next N5
            Next N4
        Next N3
    Next N2
Next N1
MsgBox n
    .Range("A2").Resize(UBound(Ar, 1) + 1, UBound(Ar, 2) + 1) = Ar
End With
End Sub