Question

Для данного натурального числа найдите число число, цифры которого записаны в обратном порядке. (vba)

Answer 1

Sub aaa()
    s = InputBox("Исходное число")
    k = Len(s)
    For i = 1 To k 2
        t = Mid(s, i, 1)
        Mid(s, i, 1) = Mid(s, k - i + 1)
        Mid(s, k - i + 1, 1) = t
    Next
    MsgBox s
End Sub

Answer 2

в dim что написать?

Answer 3

В данном случае можно ничего не писать, программа проверена, она работает

Answer 4

спасибо

Answer 5

Пожалуйста

Answer 6

Если что-то не описано, по умолчанию оно имеет тип variant