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

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

admin2010-09-11  46
问题 下列程序的功能是求出所有的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://kaotiyun.com/show/wwmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)