Найти количество цифр числа - Visual Basic .NET

Узнай цену своей работы

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

Есть программа, которая выводит количество цифр, если число от 0 до 999, если больше - пишет ошибку. Нужно дополнить программу, чтобы если я не вводил ничего ИЛИ вводил дробное число (то есть вещественное), то тогда мне выдавало сообщение с ошибкой. Помогите, пожалуйста!

Решение задачи: «Найти количество цифр числа»

textual
Листинг программы
  Dim vvod As String
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles cmdПуск.Click
    vvod = InputBox("Введите число от 1 до 999", "Количество цифр", "1", -1, -1).Trim
    If IsNumeric(vvod) And vvod.Length < 4 And vvod Like New String("#"c, vvod.Length) Then
      MsgBox("Ваше число " + vvod + Chr(13) + "состоит из " + {"одной цифры", "двух цифр", "трёх цифр"}(vvod.Length - 1), (0 + 64), "Результат")
    Else
      MsgBox("Ошибка ввода!", 16, "Ошибка!")
    End If
  End Sub

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы