TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Jak zjistit pomocí několika řádků zda je dané číslo prvočíslem...
Pomocí poměrně jednoduchého kódu si ukážeme jak na to.
Trochu teorie: Prvočíslo je takové číslo, které je dělitelné pouze jedničkou (1) a samo sebou (např.: 2, 3, 5, 7, 11, 13, 17...).
Private Sub Command1_Click()
Print Text1.Text, Prvocislo(Val(Text1.Text))
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Function Prvocislo(n As Integer) As String
For i = 2 To Sqr(n)
If n / i = Int(n / i) Then a = True
Next i
Prvocislo = IIf(a, "ne", "ano")
End Function
Private Sub Form_Load()
Text1.Text = 0
End Sub
Jak vidíte, je to záležitostí několika sekund. Dvě procedury a jedna funkce.
