Простые запросы на выборку. Массив - VB
Формулировка задачи:
Найти среднее арифметическое не равных нулю элементов заданного
вектора X1, X2, ..., Xn и подсчитать число элементов с неотрицательными
значениями (включая и элементы, равные нулю).
Решение задачи: «Простые запросы на выборку. Массив»
textual
Листинг программы
SQL = "select * from Массив where Массив.Элемент >=0" Set RST = dbs.OpenRecordset(SQL) RST.MoveLast RST.MoveFirst MsgBox RST.RecordCount, 64, ""