Re: [問題]請問一下一個的問題1+11+111+1111+11111 …

[triste (麥肯錫之夢)]

※ 引述《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