visual basic yardımm

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 .

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

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(M>N) 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 < K
Dim sonuc As Integer = (Q+i) Mod 5
Dim sonuc2 As Integer = (Q+i) Mod 7
If (sonuc = 0) Then
Toplam = Toplam + 1
ElseIf (sonuc2 = 0) Then
Toplam = Toplam + 1
End If

i = i + 1
Loop
MsgBox("İki sayı arasındaki 5'e veya 7'ye bölünebilen sayılar toplamı " & 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.