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
Похожие ответы