Проверка простые числа или не простые - VB

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

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

Составить программу для проверки утверждения: «результатами вычислений по формуле x2+x+17 при 0≤х≤15 являются простые числа». Все результаты вывести на экран. вот мой код
подскажите пожалуйста как сделать чтобы выводились все варианты простых чисел в одном окне MsgBox
0<=x<=15

Решение задачи: «Проверка простые числа или не простые»

textual
Листинг программы
Private Sub CommandButton1_Click()
Dim x As Integer, y As Integer, i As Integer, j As Integer, k As Integer, pr As Integer
Dim z1 As String, z2 As String, kol As Integer
z1 = "Простые числа: "
z2 = "Непростые числа"
kol = 0
For x = 0 To 15
    y = x ^ 2 + x + 17
    pr = 1
    k = Int(Sqr(y))
    For i = 2 To k
        If y Mod i = 0 Then
            pr = 0
            Exit For
        End If
    Next i
    If pr = 1 Then
        z1 = z1 & y & " "
        Else
        z2 = z2 & y & " "
        kol = ko + 1
    End If
Next x
If kol = 0 Then z2 = z2 & " НЕТ"
MsgBox z1 & Chr(13) & Chr(13) & z2
End Sub

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


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

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

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