мне надо найти разность сумм эл-в массивов.
Код
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
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 -