H>>определяем как давно встречался этот признак,
А>Какой признак? Признак чего? "Давно" в последних десяти или во всём диапазоне?

Данные поступают в виде чисел. для каждого числа уже ранее определены признаки (9 штук тип логический)
создана таблица вида
число, признак_1, признак_2, и т.д.

Собственно важно как давно последний раз встречался каждый признак (за последние 10 раз)
Этим занимается внутренний цикл (работает как часы, надежно и просто).


А>!!!неработает!!!
хм... что именно?
Я разумется не показывал в примере подключение к базе.
А двумерность массива вызвана необходимостью (в нем еще кое что хранится)
но это ни на что не влияет, с тем же успехом можно использовать одномерный масив.



А>PS: код с объявлением переменных плз...
Собственно объявляем db и rs для работы с ДАО 3.6 и простенький двумерный целочисленный массив
db подключаем к базе данных написаной как видно из заголовка в Аксцессе

dim mstavka(9, 4)  as integer

Вот рабочий код для проверки таблица RES содержит два поля id и d

set db=opendatabase("data1.mdb")
for t=1 to 2000
D=int(10*rnd(1))
db.Execute ("insert into RES (d) values (" + Str(d)+ ")") 
Set rs = db.OpenRecordset("select res.id from res") 
rs.MoveLast 
For i = 1 To 10 
debug.print rs.Fields(0)
rs.MovePrevious 
Next i
next t