Вычислить сумму целых чисел в промежутке от 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

15   голосов , оценка 4.2 из 5
Похожие ответы