По информатике скоро зачёт и я не очень сильно в нём разбираюсь, прошу помочь мне с решением некоторых задач.Вот код работы собственно:
Function НайтиСлова(Текст)
Dim Результат() As String
Dim ТекущаПозиция As Long
Dim НайденноеСлово As String
Dim ДлинаСлова As Integer
ReDim Результат(0)
ТекущаяПозиция = 1
Do While MyInstr(ТекущаяПозиция, Текст) > 0
ДлинаСлова = MyInstr(ТекущаяПозиция, Текст) - ТекущаяПозиция
слово = Mid(Текст, ТекущаяПозиция, ДлинаСлова)
If ДлинаСлова > 0 Then
Результат(UBound(Результат)) = слово
ReDim Preserve Результат(UBound(Результат) + 1)
End If
ТекущаяПозиция = ТекущаяПозиция + ДлинаСлова + 1
Loop
Результат(UBound(Результат)) = Mid(Text1.Text, ТекущаяПозиция)
НайтиСлова = Результат

End Function
Private Sub Command1_Click()
Label2.Caption = "Позиция: " & InStr(Text3.Text, Text1.Text, Text2.Text)
End Sub
Private Sub Command2_Click()
слова = НайтиСлова(Text1.Text)
List1.Clear
For i = 0 To UBound(слова)
List1.AddItem слова(i)
Next
Label3.Caption = "Количество: " & UBound(слова)
End Sub
Function MyInstr(ТекущаяПозиция, Текст)
Результат = Len(Text1.Text)
Позиция = InStr(ТекущаяПозиция, Text1.Text, " ")
If Позиция < Результат And Позиция > 0 Then
Результат = Позиция
End If
Позиция = InStr(ТекущаяПозиция, Text1.Text, ".")
If Позиция < Результат And Позиция > 0 Then
Результат = Позиция
End If
Позиция = InStr(ТекущаяПозиция, Text1.Text, ",")
If Позиция < Результат And Позиция > 0 Then
Результат = Позиция
End If
Позиция = InStr(ТекущаяПозиция, Text1.Text, vbCr)
If Позиция < Результат And Позиция > 0 Then
Результат = Позиция
End If
Позиция = InStr(ТекущаяПозиция, Text1.Text, vbLf)
If Позиция < Результат And Позиция > 0 Then
Результат = Позиция
End If
If Результат = Len(Text1.Text) Then Результат = 0
MyInstr = Результат
End Function
Private Sub Command3_Click()
слова = НайтиСлова(Text1.Text)
Ind = 0
For i = 1 To UBound(слова)
If Len(слова(Ind)) < Len(слова(i)) Then
Ind = i
End If
Next
Label4.Caption = "Слово: " & слова(Ind)
Label5.Caption = "Символов" & Len(слова(Ind))
Label6.Caption = "Позиция " & InStr(1, Text1.Text, слова(Ind))
End Sub
И текст задания:
Валенки, да, валенки, ой
Да неподшиты стареньки
Нельзя валенки носить
Не в чем к миленькой сходить

Валенки, валенки
Эх, неподшиты стареньки
Валенки, валенки
Эх, неподшиты стареньки

Ой, ты Коля, Коля, Николай
Сиди дома, не гуляй
Не ходи на тот конец
Ох, не носи девкам колец
И сами задания:надо самое длинное слово заменить на самое короткое,четные слова поменять с нечетными,заместо четных слов написать четное,заместо слова валенки должно быть слово подшиты.Вот пара заданий кто чем может помогите,пожалуйста, очень благодарен.

А конкретно по заданию напишите код и куда вставлять,пожалуйста

После каждого слова вставить количество символов содержащихся в нём.Помогите,пожалуйста, очень срочно нужна помощь!!!

Какие ты корыстный человек...Да я не очень понимаю VB,и прошу сделать мне ведь тут как я понимаю немного кода надо прописать

Private Sub Command4_Click()
Dim stroka As Variant, k As Integer, char As Variant
Text4.Text = " "
stroka = Text1.Text
k = 0
For I = 1 To Len(stroka)
char = Mid(stroka, I, 1)
If AscW(char) >= AscW("А") Then 'And AscW(char) <= AscW("я")
k = k + 1
End If
Next I
MsgBox "Количество букв : " & k
End Sub
Вот что то написал но считает слова во всем тексте а мне надо в каждом слове(

Я не в ворде делаю, а в visual basic просто копирую код оттуда.все норм работает только считает все буквы текста,а мне надо каждого слова по отдельности