Работа с символами

Тема в разделе "Visual Basic", создана пользователем Vladuha, 12 дек 2009.

  1. Vladuha

    Vladuha Гость

    Помогите пожалуйста с задачей. Последняя лабораторная работа и не успеваю её сделать. Очень надеюсь на вашу помощь, так как надежды уже не осталось. Есть еще что делать, но не успеваю. Если кто может понять студента, то помогите очень прошу...!!! :)


    Дана строка символов. Группы символов, разделенные пробелами
    ( одним или несколькими ) и не содержащие пробелов внутри
    себя, будем называть словами. Подсчитать число слов,заканчивающихся
    заданным символом.
     
  2. alex777

    alex777 Гость

    Код (Text):
    'Строку разбить на массив:
    Dim ELEM() as String
    Dim i, KOL, СТРОКА, ОКОНЧАНИЕ
    СТРОКА = InputBox("Введите строку", "Ввод данных")
    ELEM = Split(СТРОКА, " ")

    'А потом перебрать все элементы массива и проверить их окнчания:
    ОКОНЧАНИЕ = InputBox("Введите окончание", "Ввод условий")
    For i = 0 To UBound(ELEM) - 1
    if Right(ELEM(i), 1) = ОКОНЧАНИЕ Then KOL = KOL + 1
    Next i
    MsgBox "Найдено " & KOL & " слов, оканчивающихся на " & ОКОНЧАНИЕ, vbOKOnly, "Подсчёт слов"
    Где-то так
     
  3. Vladuha

    Vladuha Гость

    Большущее вам спасибо alex777. Конечно же программа работает верно! Не верится, что на белом свете есть еще добрые люди, которые могут помочь в трудную минуту. Еще раз огромное вам спасибо!!!

    Если это возможно, я хотел бы у вас спросить насчет моей предыдущей лабораторной работы:

    Я сделал вывод двумерного массива с помощью Print на форму
    А преподаватель хочет чтобы все выводилось в TextBOX.
    Но я не знаю как сделать чтобы в ТЕКСТБОКСЕ многомерный массив
    отображался как таблица??? Подскажите, если вам не трудно??

    Вот фрагмент кода:

    Код (Text):
    ReDim x(s, c)

    For i = 1 To s
    For j = 1 To c
    x(i, j) = Int(50 * Rnd - 15 / 2)
    Print x(i, j);
    Next j
    Print
    Next i
    Print
    End Sub
    s,c - строки и колонки например 3х3
     
  4. alex777

    alex777 Гость

    можно так. Только в свойствах текствокса не забудь поставоить мультилине на True(Да)
    Код (Text):
    Private Sub Комманда1_Click()
    Dim X(5, 6)

    Форма1.Текст1.Text = Empty


    For i = 1 To 5
    For j = 1 To 6
    X(i, j) = Int(50 * Rnd + 1)
    Форма1.Текст1.Text = Форма1.Текст1.Text & "  " & X(i, j)
    Next j
    Форма1.Текст1.Text = Форма1.Текст1.Text & vbCrLf
    Next i

    End Sub
     
  5. Vladuha

    Vladuha Гость

    Огромнейшее вам спасибо, вы мне очень помогли!
     
  6. alex777

    alex777 Гость

    Здесь спасибо говорят "+"
     
  7. vital

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.468
    Симпатии:
    27
    Он не может=) Минимум 10 сообщений, что бы иметь право на это. Сделано воизбежание бессмысленной накрутки.
    Ну да не страшно.. Я за него=)
     
  8. Vladuha

    Vladuha Гость

    vital, и вам спасибо!
     
Загрузка...
Похожие Темы - Работа символами
  1. Andrey Kha
    Ответов:
    0
    Просмотров:
    16
  2. Hoasker
    Ответов:
    0
    Просмотров:
    63
  3. garri671
    Ответов:
    0
    Просмотров:
    48
  4. lelik200969
    Ответов:
    0
    Просмотров:
    49
  5. Kozolick
    Ответов:
    0
    Просмотров:
    134

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