[填空題] 下列程序的功能是：當(dāng)發(fā)生窗體的單擊事件時(shí)，求出3～1000之間的所有素?cái)?shù)的和以及所有能被3和5整除的數(shù)的和(素?cái)?shù)是指只能被1和它本身整除的數(shù))，并在窗體上把這兩個(gè)和顯示出來(lái)。

Private Sub Form_Click()

Dim s1 As Long，s2 As Long

Dim i As Integer

For i=3 To 1000

If prime(i) Then

s1=s1+i

Else If 【11】 Then

s2=s2+i

End If

Next i

Print s1，s2

End Sub

Public Function prime(ByVal n As Integer)As Boolean

Dim j As Integer

For j=2 To n-1

If n Mod j=0 Then

Exit For

End If

Next j

If j=n Then

【12】

Else

prime=False

End If

End Function

[11]i Mod 3=0 And i Mod 5=0 [12]prime=True

本題Prime()函數(shù)的功能是判斷形參n是否為素?cái)?shù)，若是，則返回True，不是則返回False。具體分析請(qǐng)參看有關(guān)章節(jié)。要使函數(shù)返回一個(gè)值，必須在函數(shù)中給函數(shù)名賦值，故[12]處應(yīng)填“prime=True”。發(fā)生Form_Click事件時(shí)，將把3～1000之間的所有素?cái)?shù)加到s1中，把能被3和5整除的數(shù)加到s2中，在循環(huán)中首先調(diào)用Prime()函數(shù)判斷循環(huán)變量是否為素?cái)?shù)，若是，則把它加到s1，否則應(yīng)該判斷循環(huán)變量i是否能被3和5整除，若能，則把它加到s2中，所以[11]處應(yīng)填“i Mod 3=0 And i Mod 5=0”。