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

  • Автор темы Vladuha
  • Дата начала
V

Vladuha

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


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

alex777

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

Vladuha

Гость
#3
Большущее вам спасибо 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
 
A

alex777

Гость
#4
можно так. Только в свойствах текствокса не забудь поставоить мультилине на 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
 
V

Vladuha

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

vital

Больной Компом Детектед
29.01.2006
2 432
40
codeby.net
#7
Он не может=) Минимум 10 сообщений, что бы иметь право на это. Сделано воизбежание бессмысленной накрутки.
Ну да не страшно.. Я за него=)