Замена символа на его двухзначный порядковый номер в алфавите (например "а" меняется на "01", "к" на "12") - VB
Формулировка задачи:
Нужна помощь
Решение задачи: «Замена символа на его двухзначный порядковый номер в алфавите (например "а" меняется на "01", "к" на "12")»
textual
Листинг программы
Sub Command1_Click()
Dim s$, ss$
Do Until s Like "[А-Яа-яЁё]": s = InputBox("Введите один символ русского алфавита"): Loop
ss = Space(2)
RSet ss = Asc(UCase(s)) - 191: ss = Replace(ss, " ", 0)
MsgBox "Символ: " & s & " - " & ss & " в таблице"
End Sub