下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2,如3和5,11和13等,请填空。 Private Sub Form_Click() Dim i As Integer For i = 3 To

admin2010-09-11  29

问题 下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2,如3和5,11和13等,请填空。
   Private Sub Form_Click()
      Dim i As Integer
      For i = 3 To 97 Step 2
        If【   】Then
           Print i,  i + 2
        End If
      Next i
   End Sub
   Public Funtion Prime  (ByVal n As Integer)  As Boolean
      Dim i as Integer
      For i = 2 To n - 1
         If【   】Then
             Exit For
         End If
      Next i
      If i = n Then
         Prime = True
      Else
         Prime =  False
      End If
    End Function

选项

答案Prime(i)And Prime(i+2) ,n Mod i=0

解析 此题Prime函数用来判断参数n是否为素数,如果是,则返回False,否则返回0,所以【   】处应填“n Mod i=0”。要找出100以内的所有孪生素数可采用以下方法:可用循环变量i从第一个素数3开始判断该数和它的下一个奇数(只有奇数才有可能是素数)是否同时为素数,如果是,则把该数和它的下一个奇数输出,然后循环变量加2,接着进行判断。此处判断某数是否为素数,可以通过调用函数Prime来实现,故【   】处应填写“Prime(i) And Prime(i +2)”。
转载请注明原文地址:https://jikaoti.com/ti/PPg0FFFM
0

最新回复(0)