题干

【加试题】求孪生素数。孪生素数是指两个相邻奇数且都是素数,由于它们是最近的素数,就像孪生兄弟一样。下列Visual Basic程序用于查找100以内的所有孪生素数,其中函数f用于判断一个数是否是素数,程序运行界面如图1所示,Command1鼠标单击事件过程的流程图如图2所示。

 图1
   图2

 程序代码如下:

Private Sub Command1_Click()

  Dim i As Integer

  List1.Clear            '清除列表框内容

  For i = 3 To 97 ______

    If f(i) And     ②     Then

      List1.AddItem Str(i) + " 和 " + Str(i + 2)

    End If

  Next i

End Sub

Private Function f(x As Integer) As Boolean  '自定义函数f,返回值为逻辑型

  Dim j As Integer

  f = True

  For j = 2 To Int(Sqr(x))

    If x Mod j = 0 Then

      f =     ③      '函数返回值

      Exit For           '跳出For循环

    End If

  Next j

End Function

上一题 下一题 0.0难度 选择题 更新时间:2016-05-23 05:20:07

答案(点此获取答案解析)