Проверить является ли число положительным или отрицательным через select case

@leny03 · Регистрация: 05.10.2011

Author24 — интернет-сервис помощи студентам

проверить является ли число положительным или отрицательным.

@Казанский · 05.10.2011, 13:14

Visual Basic

Sub Test()
Dim x
Select Case InputBox("Введите число")
Case Is < 0
    x = "Отрицательное"
Case Is > 0
    x = "Положительное"
Case Else
    x = "Ноль"
End Select
MsgBox x
End Sub

А теперь постарайтесь найти ответ на вопрос: почему, если ввести пустую строку или символы "+","-","*" - результат "Отрицательное", а если ввести какую-нибудь букву, то результат "Положительное"?

@Сасун · 05.10.2011, 14:15

Вот код, который использует оператор If, чтобы проверить является введенное число цифрой.

Visual Basic

Sub Test()
Dim num
num=inputbox("Введите число")
If Not(Isnumeric(num)) Then
MsgBox "Вы не ввели число."
Else
Select Case num
Case Is < 0
    x = "Отрицательное"
Case Is > 0
    x = "Положительное"
Case Else
    x = "Ноль"
End Select
MsgBox x
End if
End Sub

@Sasha_Smirnov · 11.10.2011, 21:10

Сообщение от Сасун

является введенное число цифрой

IsNumeric — это не только цифрой [пример: Написать логическую функцию], а вообще числом.

Я понимаю, что вы понимаете, что сделали. Просто уточнил формулировку.

А вот интересно, при зачёте "учебного" кода преподаватель пытает его на некорректные данные (а вместе с ним и бедного leny03)?

@all_angarsk · 12.10.2011, 08:23

Visual Basic

Private Sub CommandButton1_Click()
 
Dim x
Select Case InputBox("Введите число")
Case Is < -2
    x = 10
Case Is > 4
    x = 5
Case Else
    x = 2 * k * k - 13 * k + 10
End Select
MsgBox x
End Sub

Почему так не работает?

@Казанский · 12.10.2011, 09:24

Сообщение от all_angarsk

Почему так не работает?

Что такое k?

Вот наглядная иллюстрация того, почему надо включить Require Variable Declaration в Tools - References - Editor!

@all_angarsk · 12.10.2011, 11:26

Visual Basic

Private Sub CommandButton1_Click()
 
Dim x, k
k =2
Select Case InputBox("Введите число")
Case Is < -2
    x = 10
Case Is > 4
    x = 5
Case Else
    x = 2 * k * k - 13 * k + 10
End Select
MsgBox x
End Sub
Поторопился и не указал

@leny03 1 / 1 / 0 Регистрация: 05.10.2011 Сообщений: 11
		1
	Проверить является ли число положительным или отрицательным через select case 05.10.2011, 11:59. Показов 11026. Ответов 6 Метки нет (Все метки) проверить является ли число положительным или отрицательным. 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	11.10.2011, 21:10	4
	Сообщение от Сасун является введенное число цифрой IsNumeric — это не только цифрой [пример: Написать логическую функцию], а вообще числом. Я понимаю, что вы понимаете, что сделали. Просто уточнил формулировку. А вот интересно, при зачёте "учебного" кода преподаватель пытает его на некорректные данные (а вместе с ним и бедного leny03)? 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	12.10.2011, 09:24	6
	Сообщение от all_angarsk Почему так не работает? Что такое k? Вот наглядная иллюстрация того, почему надо включить Require Variable Declaration в Tools - References - Editor! 0

	12.10.2011, 11:26