Başlangıç > Kodlar > Visual basic 6 ile 3 ve 7’ye kalansız bölünen sayıları bulmak

Visual basic 6 ile 3 ve 7’ye kalansız bölünen sayıları bulmak


0 dan 99'a kadar olan sayıların 3'e ve 7'ye kalansız bölünenlerini form ekranına yazan program


Private Sub Command1_Click()
For i% = a To 99
If (i% Mod 3 = 0) And (i% Mod 7 = 0) Then
Print "sayı 3'e ve 7'ye kalansız bölünür="; i%
End If
Next i%

End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: