Ввести последовательность чисел, конец ввода является число 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д