当前位置: 高中信息技术 / 综合题
  • 1. (2016·杭州模拟) 【加试题】求孪生素数。孪生素数是指两个相邻奇数且都是素数,由于它们是最近的素数,就像孪生兄弟一样。下列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

    1. (1) 程序中加框部分的算法是(选填:解析算法/枚举算法)
    2. (2) 在程序①、②、③划线处,填入适当的语句或表达式,把程序补充完整:

      程序中①划线处应填入

      程序中②划线处应填入

      程序中③划线处应填入

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