【正确答案】正确答案：【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并在适当位置编写程序代码。 Dim a As Integer Dim b As Integer a=0 b=err(1) For i=1 To 40’确定素数个数 If prime(err(i))Then’判断是否为素数 a=a+1’素数个数累加 Label3．Caption=a'在标签中显示 Next For i=1 To 40'查找最小素数 工f prime(arr(i))And arr(i) ＜ =b Then’比较素数大小 b=arr(i)'将较小素数赋给b Label4．Caption=b‘在标签申显示 Next 步骤3：按照题目要求调试并运行程序，效果如图3．16所示。