Лабораторна робота №1

Тема: Вкладені алгоритми

Постановка задачі: за допомогою вікна InputBox ввести речення яке складається з кількох слів ввести окремо кожне слово за допомогою вікна MsgBox. Врахувати, що слова розділені комами або пробілами.

Такст програми:

Private Sub Command1_Click()

Dim r As String, bykva As String, slovo As String, i As Integer

r = InputBox("", "", "на дворі зима, холод, мороз щипає щічки.")

slovo = ""

For i = 1 To Len(r)

bykva = Mid(r, i, 1)

If bykva = " " Or bykva = "," Or bykva = "." Then slovo = slovo + Chr(10) + Chr(13): MsgBox "slovo " + slovo _

Else: slovo = slovo + bykva

Next i

End Sub

Пояснення програми:

Текст програми:

вивід речення задопоомогою вікна InputBox

вивід результату у вікні MsgBox