Сложение больших чисел - VB

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

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

наработки сверху объясните мне как сделать чтобы складывались большие числа которые не входят ни в один тип данных?

Решение задачи: «Сложение больших чисел»

textual
Листинг программы
Function add_long(ByVal a1 As String, ByVal a2 As String) As String
      L1% = Len(a1)
      L2% = Len(a2)
      Sh% = 0
      If L1% < L2% Then a1 = String$(L2% - L1%, "0") & a1
      If L2% < L1% Then a2 = String$(L1% - L2%, "0") & a2
      Res$ = Space$(Len(a1) + 1)
      For i% = Len(a1) To 1 Step -1
          c1% = Val(Mid$(a1, i%, 1))
          c2% = Val(Mid$(a2, i%, 1))
          r% = c1% + c2% + Sh%
          If r% >= 10 Then
            Sh% = 1
            r% = r% - 10
         Else
            Sh% = 0
         End If
         Mid$(Res$, i% + 1, 1) = CStr(r%)
      Next i%
      If Sh% > 0 Then Mid$(Res$, 1, 1) = CStr(Sh%)
      add_long = Res$
End Function
 
Sub Test()
 
    a1$ = "9999999999999999999999"
    a2$ = "2"
    
    Debug.Print add_long(a1$, a2$)
 
    a1$ = "3333333333333333333333333333333333333333"
    a2$ = "5555555555555555555555555555555555555555"
    
    Debug.Print add_long(a1$, a2$)
 
End Sub

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


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

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

13   голосов , оценка 4.154 из 5
Похожие ответы