Описать процедуру AddLeftDigit(D, K ) - VB

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

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

Описать процедуру AddLeftDigit(D, K ), добавляющую к целому положительному числу K слева цифру D (D — входной параметр целого типа, лежащий в диапазоне 1–9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K слева данные цифры D1 и D2, выводя результат каждого добавления. Помогите, у меня не получается...заранее благодарю

Решение задачи: «Описать процедуру AddLeftDigit(D, K )»

textual
Листинг программы
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.     Dim D1 As Integer, D2 As Integer, K As Long
  5.     Cls
  6.    
  7.     K = CLng(InputBox("K = ", "", "9876543"))
  8.     D1 = CInt(InputBox("D1 = ", "", "3"))
  9.     Print "K = " & K
  10.     Print "D1 = " & D1
  11.    
  12.     AddLeftDigit D1, K
  13.     Print "K = " & K
  14.    
  15.     D2 = CInt(InputBox("D2 = ", "", "7"))
  16.     Print "D2 = " & D2
  17.     AddLeftDigit D2, K
  18.     Print "K = " & K
  19.    
  20. End Sub
  21.  
  22. Private Sub AddLeftDigit(ByVal D As Integer, ByRef K As Long)
  23.     K = CLng(CStr(D) & CStr(K))
  24. End Sub

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


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

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

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

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

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

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