Вычислить сумму целых чисел в промежутке от 1 до 50, кратных 3 и 4 одновременно - VB
Формулировка задачи:
Вычислить сумму целых чисел в промежутке от 1 до 50, кратных 3 и 4 одновременно.Числа вводятся с клавиатуры.
заранее спасибо
Решение задачи: «Вычислить сумму целых чисел в промежутке от 1 до 50, кратных 3 и 4 одновременно»
textual
Листинг программы
Private Sub Command1_Click() ' Код для кнопки s = 0 For i = 1 To CInt(Text1.Text) ' Текстовое поле Text1 If i Mod 3 = 0 And i Mod 4 = 0 Then s = s + i End If Next MsgBox "Сумма = " & s End Sub