作者Changsunche (长孙辙)
看板Visual_Basic
标题Re: [VB6 ] 如何写出一个极大值相乘
时间Mon Nov 9 20:04:23 2009
我觉得写程式，总是需要一点灵感，
有想到，就是你的；没想到，题目就卡在那边。
现在的我大概就是这样吧:[
今天才完成之前问的问题，
脑袋一直在[进位]这个地方打转，
最後呢！
今天，才想到那个解答，请各位指教，
因为自己有写成功，才来请各位批评，
以及可以的话缩短，当然在此时也会想如何缩短。
▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
Text2.Text = ""
Dim a()
Dim b()
Dim c()
t = Text1.Text
l = Len(t)
ReDim a(l)
ReDim b(l)
ReDim c(l * 2 )
For i = 1 To l
a(i) = Mid(t, l - i + 1, 1)
Next
'---------------------------------------------------------------------
For i = 1 To l
For j = 1 To l
N = a(j) * a(i)
c(i + j) = N \ 10 + c(i + j)
c(i + j - 1) = N Mod 10 + c(i + j - 1)
Next
Next
If c(UBound(c)) = 0 Then: ReDim Preserve c(UBound(c) - 1)
For i = 1 To UBound(c)
If c(i) > 9 Then
c(i + 1) = c(i) \ 10 + c(i + 1)
c(i) = c(i) Mod 10
End If
Text2.Text = c(i) & Text2.Text
Next
▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
之前有问过板友说，强制宣告这个地方，
我发现我试不成功，那段的程式码弄上去，是否还要加什麽呢？
用力鞭吧！我会努力学习的...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 125.228.237.26