Пример программы на языке Visual Basic для вывода на экран всех простых чисел, не превышающих заданного N: 1
n = cint(InputBox('N='))Redim X(n)for i = 0 to n X(i) = inextfor i = 2 to n for j = i+1 to n if j mod i = 0 then X(j) = 0 nextnextres=''for i = 2 to n if X(i) <> 0 then res = res + ' '+ Cstr(X(i))nextMsgBox res
Для решения задачи можно использовать алгоритм «решето Эратосфена». 25