Liczba pierwsza
Cóæ tu duæo mówię, program mówi nam czy podana przez nas liczba jest liczb¹ pierwsz¹.
Dim a, c, i As Integer
Private Sub koniec_Click()
Unload Me
End Sub
Private Sub licz_Click()
a = CInt(txta)
c = CInt(Sqr(a) + 1)
If (a + 1) Mod 6 = 0 Or (a - 1) Mod 6 = 0 Then
i = 3
Do While a Mod i <> 0 And i <= c
i = i + 2
Loop
If i > c Then
Wynik.Text = CStr(a) & " jest liczb¹ pierwsz¹"
Else
Wynik.Text = CStr(a) & " nie jest liczb¹ pierwsz¹"
End If
Else
Wynik.Text = CStr(a) & " nie jest liczb¹ pierwsz¹"
End If
End Sub
| Pobierz program |
 |
>