Как описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста решить задачу Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный (K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел.

Решение задачи: «Как описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный»

textual
Листинг программы
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.     Dim i As Long, k As Long
  5.     Me.AutoRedraw = True
  6.     For i = 0 To 4
  7.         k = Rnd * 100000
  8.         Me.Print k,: Inverse k: Me.Print k
  9.     Next
  10. End Sub
  11. Private Sub Inverse(k As Long)
  12.     k = CLng(StrReverse(CStr(k)))
  13. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы