程序设计:求大于一个数的最小素数

文章作者 100test 发表时间 2007:03:10 17:21:48
来源 100Test.Com百考试题网

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