看板 [ Visual_Basic ]
討論串質因數判斷與完全數
共 2 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#2
Re: 質因數判斷與完全數
推噓2(2推 0噓 0→)留言2則，0人參與, 最新作者ClubT (風)時間18年前 (2007/10/01 11:39), 編輯資訊
0
0
2
內容預覽:
Private Sub Command1_Click(). Dim a As Long. Dim b As Long. Dim i As Long. Dim j As Integer. a = CLng(Text1.Text). List1.Clear. b = a. For i = 2 To a.
(還有223個字)
#1
質因數判斷與完全數
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者q123997788 (小小小強)時間18年前 (2007/09/30 11:43), 編輯資訊
0
0
0
內容預覽:
Private Sub Command1_Click(). a = Text1.Text. b = 0 '記錄幾個因數. List1.Clear '把列出來的數字清掉. For i = 1 To a. If a Mod i = 0 Then. List1.AddItem i. b = b + 1.
首頁
上一頁
1
下一頁
尾頁