*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->


Join the forum, it's quick and easy


*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->

Would you like to react to this message? Create an account in a few clicks or log in to continue.

● En Güncel Paylaşım Platformu ●

---Misafir--- Hos Geldiniz Daha iyi Bir Hizmet İçin Üye olunuz.ÜyeLer Link GörebiLir

    Vb Kod Sayılar Asalmı

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


    <b>Doğum tarihi</b> Doğum tarihi : 20/06/90
    • Post n°1

    Vb Kod Sayılar Asalmı Empty Vb Kod Sayılar Asalmı

    Mesaj tarafından MnyTirith Cuma Mart 12, 2010 9:43 pm

    Private Sub Command1_Click()
    Dim i, i2
    Dim durum As Boolean
    For i = 2 To 100
    durum = True
    For i2 = 2 To i - 1
    If (i Mod i2 = 0) Then
    durum = False
    Exit For
    End If
    Next
    If durum Then
    List1.AddItem Str(i) & " sayı asaldır"
    Else
    List1.AddItem Str(i) & " asal değildir"
    End If
    Next
    End Sub
    • Sayfa başına dön

      Forum Saati Paz Mayıs 19, 2024 9:07 pm