应用题
1. 在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。
注意：不得修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
注意：不得修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
【正确答案】【操作步骤】
步骤1：打开本题工程文件。
步骤2：分析并在适当位置编写程序代码。
参考答案
Dim a As Integer
Dim b As Integer
a=0
b=arr(1)
For i=1 To 40 '确定素数个数
If prime(arr(i))Then '判断是否为素数
a=a+1 '素数个数累加
Label3.Caption=a '在标签中显示
Next
For i=1 To 40 '查找最小素数
If prime(arr(i))And arr(i) ＜=b Then '比较素数大小
b=arr(i) '将较小素数赋给b
Label4.Caption=b '在标签中显示
Next
步骤3：按照题目要求调试并运行程序，效果如图所示。
步骤1：打开本题工程文件。
步骤2：分析并在适当位置编写程序代码。
参考答案
Dim a As Integer
Dim b As Integer
a=0
b=arr(1)
For i=1 To 40 '确定素数个数
If prime(arr(i))Then '判断是否为素数
a=a+1 '素数个数累加
Label3.Caption=a '在标签中显示
Next
For i=1 To 40 '查找最小素数
If prime(arr(i))And arr(i) ＜=b Then '比较素数大小
b=arr(i) '将较小素数赋给b
Label4.Caption=b '在标签中显示
Next
步骤3：按照题目要求调试并运行程序，效果如图所示。
【答案解析】[考点] 本题考点有：标签的Caption属性，Int()函数，Sqr(x)函数，Function过程，文件操作(Open、Close、Input)，App.Path相对路径，数组以及变量的定义。
除了1和它本身以外，不再有别的约数，这种整数叫做素数。判别某数m是否是素数的经典算法是：对于m，依次判别能否被I(I=2，3，4…m-1)整除，只要有一个能整除，m就不是素数，否则m是素数。本题需统计数据中素数的个数和所有素数中的最小素数。自定义函数过程prime用来判断是否为素数，返回True则为素数，反之则为非素数，通过对返回值的判断确定素数，并进行个数统计及查找最小值。
除了1和它本身以外，不再有别的约数，这种整数叫做素数。判别某数m是否是素数的经典算法是：对于m，依次判别能否被I(I=2，3，4…m-1)整除，只要有一个能整除，m就不是素数，否则m是素数。本题需统计数据中素数的个数和所有素数中的最小素数。自定义函数过程prime用来判断是否为素数，返回True则为素数，反之则为非素数，通过对返回值的判断确定素数，并进行个数统计及查找最小值。