Visual basic: Вывести все двузначные простые числа - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста решить задачу! Совсем запуталась. Я ввела массив чисел от 10 до 99:
И теперь мне нужно выбрать из этих чисел только те,которые деляться только сами на себя и на еденицу. Помогите!!!

Решение задачи: «Visual basic: Вывести все двузначные простые числа»

textual
Листинг программы
Private Sub Command1_Click()
Dim M(89) As Integer, i As Integer
For i = 0 To 89
    M(i) = i + 10
    If prVal(M(i)) = False Then List1.AddItem M(i)
Next i
End Sub
Private Function prVal(n As Integer) As Boolean
Dim i As Integer
For i = 2 To Sqr(n) + 1
    If (n Mod i = 0) Then prVal = True: Exit Function
Next i
prVal = False
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы