作者yauhh (哟)
看板Visual_Basic
标题Re: [VB6 ] 阶层问题 麻烦帮帮忙><
时间Mon Jun 18 10:18:43 2012
※ 引述《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
1F：推 posen2012:感谢大大 已经解出来了 谢谢你>< 06/18 17:28