Сложение чисел как строк - VB
Формулировка задачи:
Привет! У меня проблема нужен ваш ХЕЛП!
Надо прибавить такие числа: 0000002 + 1 к примеру и получаем 0000003 как заставить Basic считать не математически!?
Решение задачи: «Сложение чисел как строк»
textual
Листинг программы
Sub LongAdd(A As String, B As String, C As String) l1% = Len(A) l2% = Len(B) C = Space$(l1% + l2% + 1) Sh% = 0 i1% = l1% i2% = l2% i3% = l1% + l2% + 1 Do If (i1% < 1) And (i2% < 1) Then Mid$(C, i3%, 1) = CStr(Sh%) Exit Do End If If i1% < 1 Then s1% = 0 Else s1% = Val(Mid$(A, i1%, 1)) End If If i2% < 1 Then s2% = 0 Else s2% = Val(Mid$(B, i2%, 1)) End If s% = s1% + s2% + Sh% If s% > 10 Then s% = s% - 10 Sh% = 1 Else Sh% = 0 End If Mid$(C, i3%, 1) = CStr(s%) i1% = i1% - 1 i2% = i2% - 1 i3% = i3% - 1 Loop For i% = 1 To Len(C) If Mid$(C, i%, 1) <> " " And Mid$(C, i%, 1) <> "0" Then C = Mid$(C, i%) Exit For End If Next End Sub Sub start() LongAdd "12673627632462347623783", "1823975837488346534651111", R$ Debug.Print R$ End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д