VB操作题 判断参数a是否为素数，如果是素数则返回ture……

[s330404]

在考生目录下有一个工程文件 sjt5.vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为"计算"、"存盘"，如图所示。并有一个函数过程isprime可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。
请编写适当的事件过程， 使得在运行时，单击"计算"按钮，则找出大于18000的第1个素数，并显示在 Text1中；单击"存盘"按钮，则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过"存盘"按钮存入out5.txt文件中，否则无成绩。



各位大哥，大姐能帮个忙吗？小弟明天要考试了。没把握啊。谢谢各位大侠了！

[m00ners]

Dim n As Long

Private Sub C1_Click()
n = 18000
Do Until isprime(n)
n = n + 1
Loop
Text1.Text = n
End Sub

Private Sub C2_Click()
Open App.Path & "\out5.txt" For Output As #1
Write #1, n
Close #1
End Sub

[m00ners]

稍作改动
Dim n As Long

Private Sub C1_Click()
n = 18000
Do
n = n + 1
Loop Until isprime(n)
Text1.Text = n
End Sub

Private Sub C2_Click()
Open App.Path & "\out5.txt" For Output As #1
Write #1, n
Close #1
End Sub

[zq972]

唉......