Как описать процедуру 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д