作者triste (麦肯锡之梦)
看板Visual_Basic
标题Re: [问题]请问一下一个的问题1+11+111+1111+11111 …
时间Sun Nov 4 09:47:57 2007
※ 引述《zxcvlead ( )》之铭言：
: 请问一下有没有大大可以帮忙写一下 这个数学式的的CODE要怎麽写
: 1+11+111+1111+11111+111111+11..N
: 1+到N个1的数学式 程式码该怎麽写 麻烦指导一下 谢谢!!
'A1=n是多少
'A2=Output
Sub kk()
Dim i As Integer
Cells(2, 1).Value = 0
j = 0
For i = 1 To Cells(1, 1).Value
j = j + 10 ^ (i - 1)
Cells(2, 1).Value = Cells(2, 1).Value + j
Next
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.121.137.58