Описать процедуру AddLeftDigit(D, K ) - VB
Формулировка задачи:
Описать процедуру AddLeftDigit(D, K ), добавляющую к целому положительному числу
K слева цифру D (D — входной параметр целого типа, лежащий в диапазоне
1–9, K — параметр целого типа, являющийся
одновременно входным и выходным). С помощью этой процедуры последовательно
добавить к данному числу K слева данные цифры D1
и D2, выводя результат каждого добавления.
Помогите, у меня не получается...заранее благодарю
Решение задачи: «Описать процедуру AddLeftDigit(D, K )»
textual
Листинг программы
- Option Explicit
- Private Sub Command1_Click()
- Dim D1 As Integer, D2 As Integer, K As Long
- Cls
- K = CLng(InputBox("K = ", "", "9876543"))
- D1 = CInt(InputBox("D1 = ", "", "3"))
- Print "K = " & K
- Print "D1 = " & D1
- AddLeftDigit D1, K
- Print "K = " & K
- D2 = CInt(InputBox("D2 = ", "", "7"))
- Print "D2 = " & D2
- AddLeftDigit D2, K
- Print "K = " & K
- End Sub
- Private Sub AddLeftDigit(ByVal D As Integer, ByRef K As Long)
- K = CLng(CStr(D) & CStr(K))
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д