看板 [ Visual_Basic ]
討論串[VB6 ] 找出範圍內的質數，想請各位幫忙縮短...
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#4
Re: [VB6 ] 找出範圍內的質數，想請各位幫忙縮短...
推噓1(1推 0噓 4→)留言5則，0人參與, 最新作者Changsunche (長孫轍)時間16年前 (2009/10/02 19:55), 編輯資訊
0
0
0
內容預覽:
Function f(p As Integer). Dim i, n, t As Integer. t = 1 '1代表質數. n = Sqr(p) 'Sqr 為開根號. For i = 2 To n. If (p Mod i) = 0 Then. t = 0 '0帶表合數. Exit For. E
(還有549個字)
#3
Re: [VB6 ] 找出範圍內的質數，想請各位幫忙縮短...
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者meto000 (陽貨欲見孔子)時間16年前 (2009/10/02 14:06), 編輯資訊
0
0
0
內容預覽:
這段有點不明白. 既然 i <= top / i. 又 j = 2 ～ top / i. 那 i*j 一定會 <= top 才對. 那就不用判斷 If j * i <= top 了. 直接下 nonprimes(j * i) = True 不就好了?. --. 迷時師渡 悟時自渡. ～ 六祖惠能.
#2
Re: [VB6 ] 找出範圍內的質數，想請各位幫忙縮短...
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者costbook (沒$結婚幹嘛,有$幹嘛結婚)時間16年前 (2009/10/01 14:06), 編輯資訊
0
0
0
內容預覽:
'找出範圍內所有整數質數. 'VB .NET. Dim nonprimes(0) As Boolean. Sub getAllPrime(ByVal top As Integer). ReDim nonprimes(top). Dim value As New MyInt(Of Integer).
(還有318個字)
#1
[VB6 ] 找出範圍內的質數，想請各位幫忙縮短...
推噓1(1推 0噓 2→)留言3則，0人參與, 最新作者Changsunche (長孫轍)時間16年前 (2009/09/30 21:12), 編輯資訊
0
0
0
內容預覽:
首先，這題目一開始是要求我去使用陣列、函數，來去寫成...... 但是問題在於函數上的使用我不太會，. 一開始編輯Function一直出錯，所以最後還是寫成一般方式...... 超級長...又凌亂，當初有問題的時候超想直接上來發問...... 但是最後還是決定先寫成之後，在來發問好了.... 結論.
(還有695個字)
首頁
上一頁
1
下一頁
尾頁