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