Dim a As Integer = 136161 'Args(0) Dim b(99999) As Integer Dim an As Integer = 0 If a > 0 And CInt(a) = CDbl(a) Then For i As Integer = 2 To Math.Ceiling(Math.Sqrt(a)) If a Mod i = 0 Then b(an) = i b(an + 1) = a\i Output.Show(b(an) & "," & b(an + 1)) End If Next Else MessageBox.Show("求解的数必须是正整数!") End If
加好友 
发短信
Post By：2013/8/24 15:47:00 [显示全部帖子]
