Public Function Vmod(ByVal X1 As Variant, X2 As Variant) As Boolean        Dim temp_str As String
        
        temp_str = Format(CDec(X1) / CDec(X2), "0.00000")
        
        If Right(temp_str, 6) = ".00000" Then
            Vmod = True
        Else
            Vmod = False
        End IfEnd Function用来取代系统mod运算符的,因为现在要对超长整数运算,只想知道前者是否可以整除后者.
有更好的办法没有,大量运算实在是感觉效率不高