Cоставьте программу определяющую,скольо отрицательных чисел есть среди трех введенных чисел - VB
Формулировка задачи:
составьте программу определяющую,скольо отрицательных чисел есть среди трех введеных чисел.
Решение задачи: «Cоставьте программу определяющую,скольо отрицательных чисел есть среди трех введенных чисел»
textual
Листинг программы
Dim k As Integer Dim a As Integer Private Sub Form_Load() For i = 1 To 3 a = InputBox("Введите " & i & " число") If a < 0 Then k = k + 1 Next Text1.Text = k End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д