Составить блок-схему и написать на VBA процедуру, организующую ввод с клавиатуры восьми слов, с последующей распечаткой на рабочем листе таблицы по форме: | Слово | Длина_слова | Начальная_буква_слова | Последняя_буква_слова | Элементы ввода объединить в массив.
Ответы
Ответ дал:
0
Sub z()
Dim a(8) As String
For i = 1 To 8
a(i) = InputBox("Введи слово")
Next i
For i = 1 To 8
Cells(i + 1, 1) = a(i)
n = Len(a(i))
Cells(i + 1, 2) = n
Cells(i + 1, 3) = Mid(a(i), 1, 1)
Cells(i + 1, 4) = Mid(a(i), n, 1)
Next i
End Sub
Первую строку не использовал, оставил для заголовков
Dim a(8) As String
For i = 1 To 8
a(i) = InputBox("Введи слово")
Next i
For i = 1 To 8
Cells(i + 1, 1) = a(i)
n = Len(a(i))
Cells(i + 1, 2) = n
Cells(i + 1, 3) = Mid(a(i), 1, 1)
Cells(i + 1, 4) = Mid(a(i), n, 1)
Next i
End Sub
Первую строку не использовал, оставил для заголовков
Приложения:
![](https://st.uroker.com/files/88d/88d92db84df822e5dc1f96afc3a4935a.jpg)
Вас заинтересует
1 год назад
6 лет назад
9 лет назад