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

[Vladuha]

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


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

 

[alex777]

'Строку разбить на массив:
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, "Подсчёт слов"

Где-то так

 

[Vladuha]

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

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

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

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

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

 

[alex777]

можно так. Только в свойствах текствокса не забудь поставоить мультилине на True(Да)

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

 

[Vladuha]

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

 

[alex777]

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

 

[vital]

Он не может=) Минимум 10 сообщений, что бы иметь право на это. Сделано воизбежание бессмысленной накрутки.
Ну да не страшно.. Я за него=)

 

[Vladuha]

vital, и вам спасибо!