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

private Sub C1 _ Click()
Open " in5 . txt "作为#1输入
Input #1，a%
Close #1
Text1。text = a %
结束Sub

private Sub C2 _ Click()
a % = text 1。text
Do
a % = a %+1
循环，直到I prime(a %)
text 2。text = a %
结束Sub