обработка данных строкового типа

Тема в разделе "Visual Basic", создана пользователем Lilly, 11 ноя 2010.

  1. Lilly

    Lilly Гость

    Помогите написать программу в Visual Basic, плиз. Дана строка длиной до 254 символов. Посчитать во сколько раз цифр в строке меньше чем букв латинского алфавита. Использовать функции для работы с данными символьного типа. Результатом должно быть сообщение о найденном значении или об отсутствии значения.
     
  2. VBAaddict

    VBAaddict Гость

    что-то типа следующего:

    Код (Text):
    Dim MyString, MyChar as String
    Dim NumOfChars, NumOfDigits as Integer

    MyString = "snkjfhslfhslkjflsjflsjf1893kwjrhjkwhrojel13131"
    NumOfChars = 0
    NumOfDigits = 0

    For i = 1 to len(MyString)
    MyChar = Mid(MyString,i,1)
    'http://articles.org.ru/docum/ansi.php - коды символов ANSI где видно, что цифры это коды от 48 до 57
    if ASC(MyChar)>=48 and ASC(MyChar)<=57 Then
    NumOfDigits = NumOfDigits + 1
    Else
    'Все остальные символы т.е. рус, лат, непечатаемые и т.д.
    NumOfChars = NumOfChars + 1
    End if
    Next i

    if NumOfDigits = 0 Then
    Msgbox "Цифр в строке не найдено"
    Else
    if NumOfChars = 0 then
    Msgbox "Букв в строке не найдено"
    Else
    Msgbox "Количество цифр в строке меньше количества букв в " & NumOfChars/NumOfDigits & " раз"
    End if
    End if
    остальное - если нужно дорабатывайте сами...
     
Загрузка...
Похожие Темы - обработка данных строкового
  1. kolka
    Ответов:
    6
    Просмотров:
    252
  2. anna
    Ответов:
    9
    Просмотров:
    882
  3. FaRReLL
    Ответов:
    0
    Просмотров:
    867
  4. crow1986
    Ответов:
    8
    Просмотров:
    1.872
  5. Dazzel
    Ответов:
    1
    Просмотров:
    948

Поделиться этой страницей