借计だ秆




  

  

  

  
[把σ秆氮]

  

  [瑈祘瓜]

  

  

  

  

  [祘Α絏]

  
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim n, i, r As Integer

    Label4.Text = ""

    n = Val(TextTest.Text)  ' N=计 Multiplier

    i = 2    ' i=计, Factor

  

  
 Do

      
    r = n Mod i            '眖计2秨﹍硋埃计,―ㄤ緇计

       
    If r = 0 Then                    '璝緇计箂,玥赣计计ぇ借计

         
    Label4.Text = Label4.Text & vbCrLf & i '盢赣借计﹃钡vbCr+vbLf玻ネ︽﹃

  
       n = n / i

      
    Else

          
    i = i + 1        '璝ぃ俱埃玥刚计

      
    End If

    Loop Until i >= n      '璝计禬筁计玥挡代刚

  

  
 Label4.Text = Label4.Text & vbCrLf & n    'Ω场陪ボ┮Τ借计

  

  
 End Sub