Вывести первые буквы слов - VB
Формулировка задачи:
Доброго времени суток. Очень нужна ваша помощь. Есть задачка, суть её такова: необходимо вывести первые буквы каждого слова в предложении. Бьюсь третий день, пока получилось так:
Дело в том что я никак не могу вывести все буквы в label1. Если предварительно ввести в textbox то количество слов, которое указано в выводе label1 то всё работает, но это не устраивает. В общем, прошу помощи.
Листинг программы
- Dim TestString As String
- Dim TestArray() As String
- Private Sub Command1_Click()
- TestString = Text1.Text
- TestArray() = Split(TestString, " ")
- Label1 = Mid(TestArray(0), 1, 1) + Mid(TestArray(1), 1, 1) + Mid(TestArray(2), 1, 1) + Mid(TestArray(3), 1, 1)................
- End Sub
Решение задачи: «Вывести первые буквы слов»
textual
Листинг программы
- For i= 0 to Ubound(TestArray)
- Label1 = Label1 & Mid(TestArray(i), 1, 1)
- next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
