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

Предположим , есть массив m(n), где m(n)=100, n=1,2...
Тогда просто перебором , можно будет найти

Dim m(1 To 100) As Long
Dim a As Long
m(100) = Int((100 * Rnd))
1:
if m(n)=33 then Msgbox(n)
if m(n)=100 then Msgbox("No elements")
if m<>100 and m <> 33 goto 1