【正确答案】正确答案：本题重点考查函数调用、For循环语句、If判断语句。素数的判断准则就是看该数除了1及其本身外是否别无其他约数。要找出大于2 000的最小素数，可以用FOR循环语句逐个对大于2 000的整数通过调用原题提供的isPrimeNum()函数判断其是否为素数，若找到第一个素数，这就是最小素数，将其赋给Textl的Text属性，并用Exit For结束循环。 根据题意，双击Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() Dim a As Integer Dim b AS Boolean a=2000 b= isPrimeNum(a) Wbile b=False a=a+1 b= isPrimeNum(a) Wend Textl． Text =a End Sub Function isPrimeNum(num As Integer)As Boolean isP rimeNum=True Dim i AS Integer For i=2 To hum-1 If num Mod i=0 Then isPrimeNum=False Exit For End If Next i End Function 单击