標題:

483的因數

發問:

急一定要今天~~~~~~~~~~~~~~~~~

最佳解答:

' 需要一個 Command Dim i As Integer Private Sub Command1_Click() Form1.AutoRedraw = True For i = 1 To 483 '利用迴圈去跑 If 483 Mod i = 0 Then Print i ' 讓483除以1~483 如果餘數為0 則為因數 然在表單上顯示答案 Next '若需其他數值的因數,修改483即可 End Sub 2011-08-18 19:15:28 補充: 顯示的數值為: 1 3 7 21 23 69 161 483 共8個 2011-08-19 14:32:36 補充: 啊災~沒差 程式也能解決數學問題...XD

 

此文章來自奇摩知識+如有不便請留言告知

其他解答:

所以說學程式也要學好數學=︿=|||||搞不好這是問數學 不是問程式....|||||3~~ 7~~ 23~~6524A8F2D361E9E1
arrow
arrow
    創作者介紹
    創作者 jpjzhf9 的頭像
    jpjzhf9

    jpjzhf9的部落格

    jpjzhf9 發表在 痞客邦 留言(0) 人氣()