modlngnum.bas

来自「可以对无限长度的整数进行加、减」· BAS 代码 · 共 60 行

Attribute VB_Name = "ModLngNum"
Private Function IsNum(ByVal Num As String) As Boolean
    Dim t As String * 1
    
    t = Left(Num, 1)
    Num = Right(Num, Len(Num) - 1)
    If Not (t = "-" Or (t >= "0" And t <= "9")) Then
        IsNum = False
        Exit Function
    End If
    Do While Num <> ""
        t = Left(Num, 1)
        Num = Right(Num, Len(Num) - 1)
        If Not (t >= "0" And t <= "9") Then
            IsNum = False
            Exit Function
        End If
    Loop
    IsNum = True
End Function

Public Function Plus(Num1 As String, Num2 As String) As String
    Dim Num As New LngNum
    
    If Not IsNum(Num1) Or Not IsNum(Num2) Then
        Plus = "输入错误"
        Exit Function
    End If
    Num.Number1 = Num1
    Num.Number2 = Num2
    Num.Plus
    Plus = Num.ResultGet
End Function

Public Function Minus(Num1 As String, Num2 As String) As String
    Dim Num As New LngNum
    
    If Not IsNum(Num1) Or Not IsNum(Num2) Then
        Minus = "输入错误"
        Exit Function
    End If
    Num.Number1 = Num1
    Num.Number2 = Num2
    Num.Subtraction
    Minus = Num.ResultGet
End Function

Public Function Multiply(Num1 As String, Num2 As String) As String
    Dim Num As New LngNum
    
    If Not IsNum(Num1) Or Not IsNum(Num2) Then
        Multiply = "输入错误"
        Exit Function
    End If
    Num.Number1 = Num1
    Num.Number2 = Num2
    Num.Multiply
    Multiply = Num.ResultGet
End Function