Re: [VB6 ] 階層問題 麻煩幫幫忙><
※ 引述《posen2012 (posen)》之銘言：
: 我想在文字框a中輸入階層數，例如輸入5
: 然後他就會在文字框b中顯示1x2x3x4x5 = 120
: 請問這段程式要怎麼寫呢............
: 目前程式:
: Private Sub Command1_Click()
: n = Text1.Text
: sum = 1
: For i = 1 To n
: sum = sum * i
: Next
: Text2 = n + "!:" & sum
: End Sub
: --------------
如果你的答案是 120, 即 5! 的解,程式是
p = 1
for i = 1 to 5
p = p * i
next i
相對的,當你的答案是要 "1x2x3x4x5", 那就是做一個轉換,把乘積改成拼合一個文字
all = ""
n = 5
for i = 1 to n
all = all & i
if i < n then all = all & "x"
next i
那你要的 "1x2x3x4x5 = 120" 可以找到類似的拼合方式.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.231.70.138
推
06/18 17:28, , 1F
06/18 17:28, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：