Головна Головна -> Інше українською -> Інформатика, комп'ютери, програмування -> Вкладені алгоритми

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

Назва:
Вкладені алгоритми
Тип:
Інше
Мова:
Українська
Розмiр:
0,55 KB
Завантажень:
124
Оцінка:
 
поточна оцінка 5.0


Скачати цю роботу безкоштовно
Лабораторна робота №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

Завантажити цю роботу безкоштовно



Інше на тему: Вкладені алгоритми

BR.com.ua © 1999-2017 | Реклама на сайті | Умови використання | Зворотній зв'язок