Отвечает: AlexanderZh
Здравствуйте, Гробенюк Александр Александрович!
Воспользуйся функцией IsNumeric()
--------- Людей можно поделить на 10 типов: тех, кто понимает двоичную систему и тех, кто нет...
Ответ отправил: AlexanderZh (статус:
9-ый класс)
Ответ отправлен: 22.06.2006, 19:34
Отвечает: Александр Шевченко
Здравствуйте, Гробенюк Александр Александрович!
Если нужно проверить, содержится ли в строке число, например "-12,3" - то можно использовать функцию IsNumeric(),
если же в строке должны содержаться только цифры, то поможет следующая функция:
Public Function IsDigits(str As String) As Boolean
Dim i As Integer
IsDigits=True
For i = 1 To Len(str)
If Not IsNumeric(Mid$(str, i, 1)) Then IsDigits=False
Next
End Function
Ответ отправил: Александр Шевченко
(статус: 5-ый класс)
Ответ отправлен: 23.06.2006, 08:37
Отвечает: Филатов Евгений Геннадьевич
Здравствуйте, Гробенюк Александр Александрович!
Отправлял ответ 23 числа, но почему-то не прошел.
На форме помещаем Text1 свойство Multiline=False и Label1 свойство WordWrap=True. Запускаем проект. При вводе числа отделяются
одинарными пробелами (можно вставить проверку на наличие повторяющихся пробелов ) и нажимаем ENTER. В Label построчно выведутся
все введенные числа, либо надпись "не число". Разделитель целой и дробной части по-умолчанию.
В связи с тем, что не известно, в каком формате вводятся числа, то преобразование производится функцией CDbl, можно округлить
функцией ROUND ( число, знаков_после_нуля ) или использовать функцию CLng.
