寫寫vb程式: 第4題.質因數分解

Private Sub Form_Load() Me.Hide Dim N As Long, ch As Boolean, Ans As String, chh Open App.Path & "\in4.txt" For Input As #1 Open App.Path & "\out4.txt" For Output As #2 Input #1, N For i = 2 To N If N Mod i = 0 Then ch = True For j = 2 To (i / 2)

chscvb.blogspot.com