String. Напишите, пожалуйста, код - VB

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

Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».

Код к задаче: «String. Напишите, пожалуйста, код - VB»

textual
Dim s As String 'ваше число
If IsNumeric(s) then
 If inStr(s, ".") > 0 then
   Debug.Print "2"
Else
   Debug.Print "1"
End If
Else
   Debug.Print "0"
End If

10   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ