Задача в VBA Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, т
Задача в VBA Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы "." (точка).
Sub aaa() s = InputBox("Введите строку") n = CInt(InputBox("Введите длину N")) m = Len(s) If m > n Then s = Right(s, n) Else If m < n Then s = String(n - m, ".") + s End If MsgBox "Результат: " + s, vbInformation End Sub