DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Dim alt, ust, i, j,k As Double
Dim asal As Boolean
Label3 = ""
alt = Val(TextBox1.Value)
ust = Val(TextBox2.Value)
ListBox1.Clear
ProgressBar1.Min = 0
ProgressBar1.Max = ust - alt
For i = alt To ust
asal = True
ProgressBar1.Value = i - alt
k = Int(i ^ (1 / 2))
For j = 2 To k
If (i Mod j) = 0 Then asal = False: Exit For
Next
If asal Then ListBox1.AddItem i
Next
Label3 = ListBox1.ListCount & " adet listelendi"
End Sub
Sn dost kodlar bana değil Sn veyselemre'ye aittir. Fakat bana ait olsaydı her türlü değişiklik ve öneriden memnun olurdum. Neticede burası bir paylaşım forumu.Sayın leventm'nin izni ile yazdığı kodlarında küçük bir değişiklik yaptım
Bunu bilmiyordum. Buda güzel bir matematik bilgisi oldu.Bulunan sayıyı bulduğumuz sayının karekökü olan sayılara kadar bölmemiz yeterlidir.