iki sayı arasındaki asal sayılar
bu da çok eskiden yazdığım bir kod, o zamanlar visual basic kullanmışım ondan sonra bir daha visual basic kullandığımı sanmıyorum :). kodlar çok saçma veya gereksiz olabilir ama hatıra olsun diye üzerinde hiç bir değişiklik yapmadan yayınlayacağım.
programın yaptığı, yazdığınız iki sayı arasındaki asal sayıları bulmak. çalışmasını denemek için 2 Listbox, 2 Textbox, 1 Command Box eklemelisiniz.
Dim a, b, i, c As Long
Private Sub Command1_Click()
List1.Clear 'list1 i temizliyelim ki 2. kez araninca üst üste binmesin'
k = Val(Text1.Text) - 1 'k yi ilk sayidan bir eksige ayarliyoruz cunku sonra ekliycez'
l = Val(Text2.Text) - 1 '2. sayiyi dahil etmemek icin ondan da 1 cikariyoruz'
1: 'eger sayi asal degilse burdan baslasin'
k = k + 1 'iste k ye 1 ekliyoruz "soz verdigimiz gibi"'
For a = k To l 'k ile l arasindaki sayilar'
c = a 2 + 1 'iste program fazla yorulmasin diye yarisina kadar aratiyorz'
For i = 2 To c 'yarisina kadar aratmamin sebebi yarisindan büyük'
'bir sayiya zaten bölünemiyecegi'
b = a Mod (i) 'daha basit bir kod olsun diye modu kullandim'
If b = 0 Then GoTo 1 'eger sayimiz asal degilse yeni sayi denemek icin basa dönsün'
Next i '...'
List1.AddItem (a) 'eger sayi for döngüsünden kurtuldu ise asal demektir ve'
'list e eklenmeye hak kazanmıstir'
Next a '...'
End Sub 'sizce analamsiz kodlar olabilir ama bu benim ilk projem'
've sanirim ÖSS sinavina hazirlanmamdan dolayi 2. si'
'uzun bir zaman sonra olacak'
