Как описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный - VB
Формулировка задачи:
Помогите пожалуйста решить задачу
Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования
цифр целого положительного числа K на обратный (K — параметр целого
типа, являющийся одновременно входным и выходным). С помощью этой
процедуры поменять порядок следования цифр на обратный для каждого
из пяти данных целых чисел.
Решение задачи: «Как описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный»
textual
Листинг программы
- Option Explicit
- Private Sub Form_Load()
- Dim i As Long, k As Long
- Me.AutoRedraw = True
- For i = 0 To 4
- k = Rnd * 100000
- Me.Print k,: Inverse k: Me.Print k
- Next
- End Sub
- Private Sub Inverse(k As Long)
- k = CLng(StrReverse(CStr(k)))
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д