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

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

Помогите пожалуйста решить задачу! Совсем запуталась. Я ввела массив чисел от 10 до 99:

                    Листинг программы
                
 
                        
                          
                    
Dim M(0 To 89) As Integer, s As Integer
M(0) = 10
For i = 1 To 89
M(i) = M(0) + 1
M(0) = M(i)
Next i
M(0) = 10
List1.List = M
Dim D As Single

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

Решение задачи: «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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы