разность сумм эл-в массивов, VBA в Access (модули) Опции

[Jerry]

Здавствуйте помогите дописать правильно код. Я тут кое-что пробывала, но у меня компилятор на переменные ругается. Где ошибка?
мне надо найти разность сумм эл-в массивов.

Код

Dim N1 As Integer
Dim N2 As Integer
Dim N3 As Integer
Dim NN As Integer
Dim Minus_Sum As Integer

Dim res(1) As String

'M1
Dim gr1(10) As String
gr1(0) = 14
gr1(1) = 95
gr1(2) = 51
gr1(3) = 92
gr1(4) = 75
gr1(5) = 25
gr1(6) = 60
gr1(7) = 42
gr1(8) = 35
gr1(9) = 64
gr1(10) = 80

'M2
Dim gr2(8) As String
gr2(0) = 36
gr2(1) = 77
gr2(2) = 42
gr2(3) = 98
gr2(4) = 14
gr2(5) = 25
gr2(6) = 80
gr2(7) = 51
gr2(8) = 69
Function SUM(gr1, gr2)
SUM1 = 0
SUM2 = 0
Do While N1 < 10
Do While N2 < 8
SUM1 = SUM Xor gr1(N1)
SUM2 = SUM Xor gr2(N2)
Next

End Function

Sub smth()
' создаем таблицу
sql1 = "create table result (результат integer )"
DoCmd.RunSQL sql1

Minus_Sum = SUM1 - SUM2
res(N3) = Minus_Sum
NN = res(N3)
            'на экран
           MsgBox "Результат = " & CStr(res(N3))
            'записываем результат в таблицу
            DoCmd.RunSQL ("INSERT INTO result VALUES( " & NN & " )")
          
MsgBox "Результат = " & CStr(N3)

'просмотр результата
DoCmd.OpenTable "result", acViewNormal, acReadOnly
MsgBox "Результат работы в таблице.Таблица закрывается"
DoCmd.Close acTable, "result"

' удаляем таблицу
DoCmd.RunSQL ("drop table result")
  
End Sub

Сообщение отредактировано: Jerry - 10.04.2007 18:13