Проверка сумммы чисел на равенство 10 - VB
Формулировка задачи:
Помогите доделать программу.
Надо чтобы проверяло сумму 3 соседних чисел, если их сумма будет ровна 10, чтоб выбивало на экран "Есть", а если нету, то чтоб выбивало "Нету"
Решение задачи: «Проверка сумммы чисел на равенство 10»
textual
Листинг программы
Private Sub Command1_Click() Dim mas(1 To 10) As Byte, i As Integer, j As Integer, sum As Byte AutoRedraw = True Randomize Cls mas(1) = InputBox("Введите первое число: ", , 3) mas(2) = InputBox("Введите второе число: ", , 2) Print mas(1); mas(2); For i = 3 To 10 mas(i) = Int((6 * Rnd) + 1) Print mas(i); Next i Print For i = 2 To 9 sum = 0 For j = 1 To 3 sum = sum + mas(i + j - 2) Next j If sum = 10 Then Print "Есть", mas(i - 1), mas(i), mas(i + 1): Exit Sub Next i Print "Нету" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д