这是一道在两次考试中都出现过的题：
　在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称 为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为"计算"、 "存盘"，如图所示。并有一个函数过程 isprime可以在程序中直接调用， 其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。 请编写适当的事件过程，使得在运行时，单击"计算"按钮，则找出小于 18000的最大的素数，并显示在Text1中；单击"存盘"按钮，则把 Text1 中的计算结果存入考生文件夹下的out5.txt文件中
　　我是这样写的，为什么不能用啊？请大家帮帮忙
Prvaite sub c1-click()
dim i as long
dim MaxPr as long
for i = 18000 to 0 '找最大的素数
if isprime(i) then'找到，返回值并退出循环
MaxPr = i
exit for
next i
Text1.Text=MaxPr'赋值显示
end sub
Prvaite sub c2-click()
dim fr as new io.filewriter("out5.txt",file.create)
fr.write(Text1.Text)'把结果写到文本文件
end sub

呵呵，有点意思，1800循环到0，为什么不用两分法做？你机器配制不错啊，呵呵

Private Sub C1_Click()
Dim i As Long
Dim MaxPr As Long
For i = 18000 To 0 Step -1 '找最大的素数
If isprime(i) Then MaxPr = i: Exit For '找到，返回值并退出循环
Next i
Text1.Text = MaxPr '赋值显示
End Sub

Private Sub C2_Click()
Open "c:\ks\out5.txt" For Random As #1
Write #1, Text1.Text '把结果写到文本文件
Close #1
End Sub

Private Function isprime(a As Long) As Boolean
Dim i As Integer
For i = 2 To Sqr(a)
If a Mod i = 0 Then isprime = False: Exit Function
Next i
isprime = True
End Function

谢谢楼上的帮助，我是菜鸟，请问一下什么是两分法？