题库 高中信息

题干

   (加试题)两质数的差为2,称此对质数为质数对。下列程序是找出100以内的质数对,并成对显示结果。其中,函数zsd判断参数m是否为质数。请完善以下程序:

Function zsd(m) As Boolean
 Dim i As Integer
 zsd = True
 For i = 2 To Int(Sqr(m))
If  _______________= 0 Then zsd = False
 Next i
End Function
Private Sub Command1_Click()
 Dim i As Integer
 p1 = zsd(3)
 For i = 5 To 100 Step 2
p2 = zsd(i)
If ________________ Then List1.AddITem i - 2 & ” ” & i
p1 = zsd(i)
 Next i
End Sub
上一题 下一题 0.99难度 填空题 更新时间:2019-05-06 12:29:24

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