Помогите пожалуйста разобраться с задачей:
Дана непустая последовательность целых чисел, оканчивающаяся числом 100. Определить, есть ли в последовательности число 33. Если имеются несколько таких чисел, то определить индекс первого их них.
Я так думаю, что здесь надо использовать функцию rnd
Dim m(1 To 100) As Long
Dim a As Long
m(100) = Int((100 * Rnd))

Спасибо, разобрался сам)
Я ошибался на счёт m(100) = Int((100 * Rnd)). Будет заполняться только сотый компонент массива. Взял m(i) и поставил счётчик на равенство.

У меня есть ещё одна задача:
Для выборки случайных чисел, содержащихся в массиве A(n), построить гистограмму распределения, содержащую m интервалов.
Примечание. гистограммой (или диаграммой) распределения называется массив из m элементов, значение каждого из которых равно количеству (или доле из общего числа) чисел из А, попавших в соответствующий интервал. Ширина каждого интервала определяется как (amax-amin)/m