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

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

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

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

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.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы