三、综合应用
    在考生目录下有一个工程文件djks002.vbp，其窗体上有一个文本框，名称为Text1；还有一个命令按钮，名称为C1，标题为“计算”，如图所示。有一个函数isprime()可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出小于2000的最大素数，并显示在Text1中。
    注意：
    考生不得修改isprime()函数过程和控件的属性。
    程序代码如下：

【答案】
Private Sub C1_Click()
    Static a As Integer
    Dim i As Integer
    For i = 1 To 2000
      Call isprime(i)
      If isprime(i) = True Then
         a = i
      End If
    Next i
    Text1.Text = a
End Sub
【解析】 
    在窗体上双击C1，进入程序代码编写窗口。根据题意，主要是使2000以内的最大素数显示在文本框中。故可以使用For循环语句，令变量i在1～2000之间取值，逐一作为实参调用isprime()函数过程，当遇到isprime()函数过程返回True值时（此时i值为素数），把i的值赋给a。这样便可求出2000以内的最大素数。