处理
            zz = c(j + i + k)
            k = k + 1
        Loop
    Next j
Next i
zz = ""
For k = c1 To 1 Step -1
    If c(k) <> 0 Then Exit For                '去掉结果中的前导0
Next k
k = IIf(k < 1, 1, k)
For i = k To 1 Step -1
    zz = zz + Trim(Str(c(i)))
Next i
zz = xx + " X " + yy + " = " + zz
ts = "计算结果：  " + Str(a1) + "位 X " + Str(b1) + "位  结果为" + Str(k) + "位"
MsgBox zz, , ts                            '算式和结果输出
End
End Sub
以上程序在vb6.0上编译通过，并且能正确计算254位乘254位的长整数，输出结果为508位长整数，精确到每一位。
5、结束语
理论上这个算法可以计算任意位数的整数乘法，本程序为了说明算法，只设计了一个模块，没有使用到窗体。使用的是vb中的标准输入输出函数。所以它能处理的结果位数位508位，因为超过254位的数据不能输入了。要增加处理位数，只需要增加一个窗体，把输入和输出放在窗体上就可以了，实际上还可以用多个字符串连接，这样能计算的位数就没有限制了，而且当所处理的位数超过数组的最大定义范围时还可以用多维数组。总之，只要采用一定的方法，可以计算任意长度的数字。
把本程序稍做修改，可以做成一个自定义函数，把两个输入参数作为函数的参数，在其他地方调用本函数就可以计算任何整数的阶乘（n!），也可以计算任何整数的整数次方(n^m)。
本文给出的算法能给我们一种编程思路，也给我们一种启示，即只要我们充分利用计算机的功能和特性，有些看来是不可能实现的计算处理，通过一定的转换，我们总能找到解决的方法。

参考文献：
Visual Basic 6.0 中文版实用参考手册——语句、函数、对象与方法篇.晶辰工作室. 电子工业出版社, 1998
Visual Basic 6.0 中文版控件大全. 李玉东，李罡，李雷. 电子工业出版社, 2000
数据结构. 刘良观，黄水松.  武汉大学出版社, 2000

上一页  [1] [2]