[問答題] 在考生文件夾中有一個工程文件sjt5.vbp。該程序的功能是從in5.txt文件中讀入40個數(shù)據(jù)，統(tǒng)計這些數(shù)據(jù)中素數(shù)的個數(shù)，并找出所有素數(shù)中最小的素數(shù)（判斷素數(shù)的函數(shù)已給出）。最后將查找和統(tǒng)計的結(jié)果分別顯示在標(biāo)簽Label4和Label3中（窗體外觀如圖所示）。程序不完整，請在指定的位置把程序補(bǔ)充完整。注意：不得修改原有程序和控件的屬性。程序結(jié)束運行之前，必須至少正確運行一次程序，將統(tǒng)計的結(jié)果顯示存標(biāo)簽中，否則本題無成績。最后把修改后的文件按原文件名存盤。

[操作步驟]步驟1：打開本題工程文件。步驟2：分析并在適當(dāng)位置編寫程序代碼。 Dim a As Integer Dim b As Integer a=0 b=arr(1) For i=1 To 40’確定素數(shù)個數(shù) If prime(arr(i))Then’判斷是否為素數(shù) a=a+1’素數(shù)個數(shù)累加 Label3.Caption=a’在標(biāo)簽中顯示 Next For i=1 To 40’查找最小素數(shù) If prime(arr(i))And arr(i)

[解題思路] 除了1和它本身以外，不再有別的約數(shù)，這種整數(shù)叫做素數(shù)。判別某數(shù)m是否是素數(shù)的經(jīng)典算法是：對于m，依次判別能否被I(I=2，3，4，…，m-1)整除，只要有一個能整除，m就不是素數(shù)，否則m是素數(shù)。本題需統(tǒng)計數(shù)據(jù)中素數(shù)的個數(shù)和所有素數(shù)中的最小素數(shù)。自定義函數(shù)過程prime用來判斷是否為素數(shù)，返回True則為素數(shù)，反之則為非素數(shù)。通過對返回值的判斷確定素數(shù)，并進(jìn)行個數(shù)統(tǒng)計及查找最小值。