|
樓主 |
發表於 2008-3-22 05:01:19
|
顯示全部樓層
Private Sub Command1_Click()
Dim S(1) As String
S(0) = "123456789876543210123456789"
S(1) = "9876543210123456789876543210123456789876543212345678987654321012345678987654321"
Print mADD(S(0), S(1))
End Sub
Function mADD(ByVal s1 As String, ByVal s2 As String) As String
Dim I As Integer, St As String, T As Integer, X As Integer
If Len(s1) < Len(s2) Then St = s1: s1 = s2: s2 = St
X = Len(s2): mADD = s1
For I = Len(s1) To 1 Step -1
If X > 0 Then
St = Int(Mid$(s1, I, 1)) + Int(Mid$(s2, X, 1)) + T
X = X - 1
Else
If T = 0 Then Exit Function
St = Int(Mid$(s1, I, 1)) + T
End If
T = -1 * (Len(St) > 1)
Mid$(mADD, I, 1) = Right$(St, 1)
Next
If T Then mADD = "1" & mADD
End Function |
|