Re: 質因數判斷與完全數

看板Visual_Basic作者ClubT (風)時間18年前 (2007/10/01 11:39)推噓2(2推 0噓 0→)

留言2則, 2人參與討論串2/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 If b Mod i = 0 Then j = 0 Do While (b Mod i = 0) j = j + 1 b = b / i Loop List1.AddItem (CStr(i) + "," + CStr(j)) 'i是質因數 j是該次方數 End If Next i End Sub 完全數這種東西上網找就有了 ex: 6這個數的因數1,2,3,6 扣掉自己就剩1,2,3 如果剩下的因數相加等於本身就是完全數所以 1+2+3=6 -> 6是完全數 -- 我的Blog http://clubtblog.blogspot.com 我的巴哈小站 http://home.gamer.com.tw/clubt -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.230.127.214

推

q123997788

10/02 23:42, , 1^F

10/02 23:42, 1^F

推

presider7859

12/07 20:16, , 2^F

12/07 20:16, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 ClubT 的文章

文章代碼(AID): #1706lQJu (Visual_Basic)