Проверить корректность решения задач - VB
Формулировка задачи:
Проверьте пожалуйста задания
Решение задачи: «Проверить корректность решения задач»
textual
Листинг программы
Private Sub Command1_Click()
Dim L, B, S, N As Integer
L = Val(InputBox("Введите начальное число"))
B = Val(InputBox("Введите конечное число"))
N = 0: S = 1
For i = L To B
If i > 7 And i < 20 Then
S = S * i
N = N + 1
End If
Next i
If N > 0 Then
Text1.Text = "Количество чисел в промежутке от 7 до 20 = " + Str(N) & vbCrLf & "Произведение этих чисел = " + Str(S)
Else
Text1.Text = "Нет чисел, входящих в промежуток от 7 до 20"
End If
End Sub