Написать программу в vba: в заданной последовательности символов поменять местами первый символ с последним символом. !

    vb. dim s as string         dim text as string         s = "123456789"         text = mid(s, len(s), 1) & mid(s, 2, len(s) - 2) & mid(s, 1, 1)

8символов "фамилия" и 6 символов "имя". взята стандартная кодировка в 8 бит.  (8+6)*8 =  112 бит информации. объём на 1 страницу 50*60 =  3 000 символов. 3000*8 =  24 000 бит расчёт проведу в 2 способа: 1. отталкиваясь от реального объёма флешки. 2. исходя из объёма в 8 гб первый вариант: реальный объём примерно  8 000 000 000 байт 8  000  000 000*8 =  64 000 000 000 бит 64 000 000 000/24 000 =  2 666 666 страниц можно записать на флешку (округленно до целого числа) второй вариант: 8*1024*1024*1024*8 =  68 719 476 736 бит 68 719 476 736/24 000 =  2 863 311  страниц можно записать на флешку  (округленно до целого числа)

Vb. dim i as string i = inputbox("введите число") if i = strreverse(i) then msgbox("ура! число " & i & " является палиндромом.") '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 pascal.  var n, m, p: word  begin write('введите число: ');   readln(n); m : = n; p : = 0;   while m > 0 do begin       p : = p * 10 + m mod 10;       m : = m div 10;   end; if n = p then writeln("ура! число   является палиндромом." )readln; end. ? жми  лучший