Проверка сумммы чисел на равенство 10 - VB

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

Помогите доделать программу. Надо чтобы проверяло сумму 3 соседних чисел, если их сумма будет ровна 10, чтоб выбивало на экран "Есть", а если нету, то чтоб выбивало "Нету"
Private Sub Command1_Click()
Dim mas(1 To 10) As Byte
Dim i, sum As Byte
Randomize
 
 
mas(1) = InputBox("Введите первое число: ", , 0)
mas(2) = InputBox("Введите второе число: ", , 0)
Print mas(1); mas(2);
 
For i = 3 To 10
mas(i) = Int((6 * Rnd) + 1)
Print mas(i);
Next i
 
End Sub

Код к задаче: «Проверка сумммы чисел на равенство 10 - VB»

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

10   голосов, оценка 3.400 из 5


СОХРАНИТЬ ССЫЛКУ