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

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


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

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

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