一个VB基础问题希望大家帮忙解决下

来源：百度知道 编辑：UC知道 时间：2024/05/05 06:45:32
题目是这样的：
在考生文件夹建立一个工程文件szft5.vbp,其窗体上有一个文本框，名称为Text1;还有2个
命令按钮，名称分别为C1，C2，标题分别为“计算”和“存盘”，如下图所示。并有一个函数过程
isprime可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回true,否则返回
false，
请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出小于18000的最大素数，并显示
在Text1中，单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。

Private Sub C1_Click()
Dim i As Integer

For i = 18000 To 2 Step -1
If IsPrime(i) Then
Text1.Text = i
Exit Sub
End If
Next i
End Sub

Private Sub C2_Click()
If IsNumeric(Text1.Text) Then
Open App.Path + "\out5.txt" For Output As #1
Write #1, Val(Text1.Text)
Reset
Else
MsgBox "请确认文本框内是合法的数字"
End If
End Sub