【正确答案】[解题思路] 函数过程isprime(a)的功能是通过Do While语句、If判断语句和Int函数，判断参数a是否为素数，如果是素数，则函数返回True，否则函数返回False。在单击“计算”按钮事件过程中，通过For语句和调用函数过程isprime(a)，找出小于18000的最大的素数，并将其显示在Text1中；在单击“存盘”按钮事件过程中，通过文件操作把Text1中的计算结果存入考生文件夹下的out5. txt文件中。
[操作步骤]
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码
Private Function isprime(a As Integer) As Boolean
Dim flag As Boolean
flag = True
b% = 2
Do While b% ＜ =Int(a/2) And flag
If Int(a/b%) =a/b% Then
flag = False
Else
b% =b% +1
End If
Loop
isprime = flag
End Function
程序结束
参考答案
Private Sub C1_Click()
Dim i As Integer
For i = 17999 To 1 Step - 1
If isprime(i) Then
Text1 = i
Exit For
End If
Next
End Sub
Private Sub C2_Click()
Open App. Path & "/out5. txt" For Output As #1
Print #1, Text1. Text
Close #1
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。