包
/files/2007/5/8/1059086/k4me _ VB6-str-x-str . rar
我想我能看懂，只是知道如何工作。
以下都是代碼。
========================================
私有子命令1_Click()
k4me 2009
'2009-02-24 04;39
2009年最雷人的VB6代碼，完全按照手工紙莎草紙計算法相乘。增強後可以用於界面的實時演示。
理論是無限的，不是擴展的，可能的限制是字符串長度/數組長度和寬度(兩者都可以通過二進制轉磁盤解決)。....
錯誤未被刪除
-
在此調整限制。
不需要Hh = 1100“行”。
Ll = 1100 '列，'列和列中輸入的總位數不得大於矩陣。
Dim T (2103，2103) as long' dim比hh/ll多+3行，暫保' 100*100位純乘法紙莎草'算法':P
-
a = Trim$(Text1。正文)
b = Trim$(Text2。正文)
la = Len(a): lc = la
lb = Len(b):如果lc & ltlb那麽lc = lb
-
對於x = ll到ll-la+1step-1 '端口條目。
t(x，1) = Val(Left$(Right$(a，ll - x + 1)，1))':MsgBox Str $(t(1，x))
然後
對於x = ll到ll-lb+1step-1 '端口條目。
t(x，2) = Val(Left$(Right$(b，ll - x + 1)，1)) ': MsgBox Str$(t(2，x))
然後
打開“k4me1.txt”輸出為#1
對於y = 1到ll
對於x = 1到ll
如果t(x，y) = 0，那麽chrs = "-"
chrs = Trim$(Str$(t(x，y)))
o = o & ampchrs
然後
打印編號1，o
o = " "
然後
關閉
Now=當前存儲的數據線9 * 9 = 81，81+9-0 ~ 90，每次不得超過2位。
nowl = 2
對於n = ll至ll - lb + 1步長-1
nowl = nowl + 1
對於m = ll到ll-la+1step-1 '這對xy應該用另壹代-_-！
Oldbit = t(n-ll+m，nowl)'記錄當前位值。
舊位1 = t (n-ll+m -1，nowl)'記錄值為-1。
Ji = t(n，2) * t(m，1)+oldbit '乘積+舊值。
T(n-ll+m，nowl) = ji Mod 10 '取壹位到當前位'-nowl+3。
T (n-ll+m-1，nowl) = (ji-t (n-ll+m，nowl)+oldbit 1)/10 '十位數加上舊值。
然後
然後
'268061072163
'122304560788089
'32785091695279945579866507
'32785091695279945579866507
00617763035719945579866507 err
-
按列求和。每列的最大值
對於x = ll至ll - la - lb - 1步長- 1
ji = 0
Odbt = t(x，lb+3)'當前列的原始值。
Odbt1 = t(x-1，lb+3)'當前列的左列的原始值。
對於y = 3到lb + 2
ji = ji + t(x，y)
然後
ji = ji + odbt
t(x，lb + 3) = ji Mod 10
調試。打印t(x，lb + 3)
t(x - 1，lb + 3) = (ji - t(x，lb + 3)) / 10 + odbt1
然後
-
輸出紙莎草紙
打開“k4me.txt”輸出為#1
列的總數取決於輸出結果。
對於y = 1到lb + 3
如果y = 3，則打印#1，"- k4me2009 -"
對於x = ll - la - lb到ll
如果t(x，y) = 0，那麽chrs = "-"
chrs = Trim$(Str$(t(x，y)))
o = o & ampchrs
然後
如果y = lc + 3，則打印#1，"- k4me2009 -"
打印編號1，o
out = o
o = " "
然後
關閉
Text3 = out
結束
末端接頭
私有子窗體_Load()
命令1。值=真
末端接頭
私有子命令6_Click()
結束
末端接頭