Вычислить сумму целых чисел в промежутке от 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
