看板 [ Visual_Basic ]
討論串[問題]請問一下一個的問題1+11+111+1111+11111 …
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#3
Re: [問題]請問一下一個的問題1+11+111+1111+11111 …
推噓2(2推 0噓 0→)留言2則，0人參與, 最新作者imk8 (k8)時間18年前 (2007/11/06 20:38), 編輯資訊
0
0
0
內容預覽:
N = 3 '幾個N. Sum = 0 '總和. For i = 1 To N. Sum = Sum + Val(String(i, "1")). Next i. MsgBox Str(Sum) '秀出答案. 我的方法.... 好像有點奇怪. 不過結果正確就是啦.... 僅供參考吧 ~"~. --.
#2
Re: [問題]請問一下一個的問題1+11+111+1111+11111 …
推噓2(2推 0噓 2→)留言4則，0人參與, 最新作者clifflu ( 冏rz)時間18年前 (2007/11/04 15:30), 編輯資訊
0
0
2
內容預覽:
a(n) 表 n 個 1 之數值. 則 a(n) = (10^n -1)/ 9. 設 A(n) 表 a(1) + ... + a(n). 則 A(n) 可表為 (10 + 100 + ... + 10^n - n) /9. = (a(n+1) - (n+1))/9. 數學式推導不出來，這是數學程度的
(還有123個字)
#1
Re: [問題]請問一下一個的問題1+11+111+1111+11111 …
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者triste (麥肯錫之夢)時間18年前 (2007/11/04 09:47), 編輯資訊
0
0
0
內容預覽:
'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).Valu
首頁
上一頁
1
下一頁
尾頁