visual basic hakkında pek bilgim yok yaptıklarım uzun yoldan olabilir ama istediğini yapıyor :msp_biggrin: Kod:

m ve n tamsayıları arAsında 5 ile veya 7 ile tam bölünebilen tamsayıların kaç tane olduğunu hesaplayan program yazınız? arkadaşlar yardım edebilecek olan var mı sabahtan beri uğraşıyorum.

Soru iki sayı arasındaki diyor verili 3 sayı bölünür mü demiyor. Birde hangi sayılar demiyor, kaç tane sayı diyor. M ve N sayılarının benim yazdığım kısımdan önce bir şekilde tanımlandığını düşünürsek. Benimde VB hakkında hiç bilgim yok, yukarıdaki komut kullanımları doğru ise aşağıdaki, sorunun yanıtı olarak çalışması lazım. Dim K As Integer Dim Q As Integer if Then K= M-N Q=M ElseIf K=N-M Q=N End If Dim i As Integer = 0 Dim Toplam As Integer=0 Do While i &lt; K Dim sonuc As Integer = Mod 5 Dim sonuc2 As Integer = Mod 7 If (sonuc = 0) Then Toplam = Toplam + 1 ElseIf (sonuc2 = 0) Then Toplam = Toplam + 1 End If i = i + 1 Loop MsgBox(&quot;İki sayı arasındaki 5'e veya 7'ye bölünebilen sayılar toplamı &quot; &amp; Toplam) ... Dediğim gibi VB bilgim yok sadece algoritmasına dair benim dediklerim. M ve N sayıları dahil bu algoritmada, M ve N sayıları dahil değilse, i 0 değil 1 ile başlatılır, K değişkeni bir küçültülür.