程序設(shè)計:求大于一個數(shù)的最小素數(shù)

Private Sub C1_Click()
     Open "in5.txt" For Input As #1
     Input #1, a%
     Close #1
     Text1.Text = a%
    End Sub
    Private Sub C2_Click()
     a% = Text1.Text
     Do
     a% = a% + 1
     Loop Until isprime(a%)
     Text2.Text = a%
    End Sub