当前位置: 高中信息技术 / 综合题
  • 1. (2020·广西模拟) 孪生素数是指间隔为2的相邻素数,它们之间的距离已经近得不能再近了,就像孪生兄弟一样,也称为双生素数。例如,素数11和13,其间隔为2,就是一组孪生素数。请编写程序,输入自然数n(n<1000),判断n和n+2是否为率生素数。(补充说明:素数是指在一个大于1的自然数中,除了1和此数自身外,无法被其他自然数整除的数)

    算法描述如图所示,请将程序补充完整。

    Private Sub Form_Click()

    Dim n As Integer, i As Integer

    Dim x As Integer       ‘判断是否为季生素数的变量

     = Val(InputBox("输入自然数 n"))

    x=1

    If n<=1 Then x = 0

    End If

    For i = 2 To Sqr(n+2)

      If n Mod i = 0 OrThen

        x = 0

      End If

      Next i

      If x=1 Then

        Print n,n+2 ;"是孪生素数”

      Else

        Print ;"不是孪生素数”

      End If

    End Sub

微信扫码预览、分享更方便