Ввести последовательность чисел, конец ввода является число 0 - VB

Узнай цену своей работы

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

Помоги, пожалуйста, постоянно какие-то ошибки: Запросить послед-ть произвол чисел,признаком конца ввода явл-ся 0 и с помощью MsgBox отобразить их на экране в виде таблице из 3 колонок.в первой все числа, во второй отрицательные, а в 3 только положительные.

Решение задачи: «Ввести последовательность чисел, конец ввода является число 0»

textual
Листинг программы
'O - Отрицательные, V - Все, P - Положительные, Str - Вводимое значение.
Dim O, V, Str, P
 
Private Sub cmdStart_Click()
'Очищаем значения (если не очистить то после нового ввода останутся старые значения)
V = ""
O = ""
P = ""
'Вкл. таймер
Timer1.Interval = 1
End Sub
 
Private Sub Timer1_Timer()
Str = InputBox("Введите любое число", "Ввод числа", "0")
If Str = 0 Then GoTo EndMsg 
V = V & vbCrLf & Str
If Str > 0 Then
P = P & vbCrLf & Str
Else
O = O & vbCrLf & Str
Str = ""
End If
Exit Sub
EndMsg:
     MsgBox "Все числа:" & V & vbCrLf & vbCrLf & "Положительные:" & P & vbCrLf & vbCrLf & "Отрицательные:" & O & vbCrLf
     Timer1.Interval = 0 'Интервал - 0 иначе запросит заново
End Sub

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


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

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

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