作者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