vb6计算器代码（国外英文资料）.doc

vb6计算器代码（国外英文资料） VB6 calculator This is a work that I did when I was a young man, in order to deal with the very long Numbers, the 8-byte unsigned, But we dont have that type of VB, the longest double can only handle 8 bytes of the number of characters, or the precision. At that time, also dont understand, cant, just made up the calculator, operations with string parameters, low operation efficiency that is, of course, at the expense of speed for function of bai, plant. Now, in fact, VB has a Variant type that can be super long, and you can try it. Dim Num As the Variant Dim highl As the Variant Dim lowl As the Variant Num = CDec CDec (highl) * (2 ^ 32) + CDec (lowl) GetInt8Str = CStr (Num) ClsStringMath: Option Explicit List of functions: character addition (jw = carry) Public Function CharAdd (s1 As String, s2 As String, jw As Boolean) As String example:? CharAdd ( 9 , 5, True) 15 string addition Public Function StringAdd (s1 As String, s2 As String) As String example:? StringAdd ( 9999999 , 2) subtract = minus sign Public Function CharSubtraction (s1 As String, s2 As String, ByRef minus As Boolean) As String example:? StringAdd ( 2 , 3) 1, minus = true string subtraction (minus = minus) Public Function StringSubtraction (ss1 As String, ss2 As String, minus As Boolean) As String example:? StringAdd ( 1234 , 23423) 22189, minus = true character multiplication (jw = carry) Public Function CharMultiple (s1 As String, s2 As String, jw As String) As String example:? CharMultiple ( 9 , 9, 5) 86, string multiplication Public Function StringMultiple (s1 As String, s2 As String) As String example:? StringMultiple ( 156 , 78) 12168, character division Public Function CharDevide (s1 As String, s2 As String, ByRef ys As String) As String example:? CharDevide ( 19 , 3, ys) 6, ys = 1 string division Public Function StringDevide (s1 As String, s2 As String, ByRef ys As String) As String example:? StringDevide ( 156 , 75, ys) 2, ys = 6 the relative size, s1