Рассчитать количество чисел в промежутке от А до В кратных 5 - VB

Формулировка задачи:

как в программе Visual Basik рассчитать количество чисел в промежутке от А до В кратных 5 ??? Заранее спасибо)

Решение задачи: «Рассчитать количество чисел в промежутке от А до В кратных 5»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim a As Integer, b As Integer, sum As Integer, i As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a < b Then
For i = a + 1 To b - 1
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Else
For i = b + 1 To a - 1
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
End If
Text3.Text = sum
End Sub

Оцени полезность:

14 голосов , оценка 4.429 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы