Question

Составить блок-схему и написать на VBA процедуру, организующую ввод с клавиатуры восьми слов, с последующей распечаткой на рабочем листе таблицы по форме: | Слово | Длина_слова | Начальная_буква_слова | Последняя_буква_слова | Элементы ввода объединить в массив.

Answer 1

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

Первую строку не использовал, оставил для заголовков