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.