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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д