Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Задача в VBA
Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы "." (точка).

Ответ оставил Гость

Sub str_4()
On Error GoTo Handler

Dim S As String
Dim N As Integer

S = InputBox("Stroka?")
N = InputBox("Chislo?")

If Len(S) > N Then S = Right(S, N)

While Len(S) < N
S = "." + S
Wend

MsgBox (S)
End

Handler:
MsgBox "Oshibka!"

End Sub