IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> разность сумм эл-в массивов, VBA в Access (модули)
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 46
Пол: Женский

Репутация: -  0  +


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


--------------------
Zettai Unmei Mokushiroku
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.10.2020 2:13
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name