中科新闻网为爱所困第二季22土豆:一道简单VB题
来源：百度文库 编辑：中科新闻网 时间：2024/04/27 23:24:20
两质数的差为2,称此质数为质数对,设计一个程序找出100以内的质数对,并在窗体上成对显示成果.要求质数的判断用一自定义函数完成.
Private Sub Command1_Click()
a = InputBox("请输入一个整数")
sushu (a)
End Sub
Public Function sushu(ByVal b As Integer)
Dim a As Integer
Dim x As Integer
Dim j As Integer
For a = 2 To b
For j = 2 To a
If a Mod j = 0 Then
Exit For
End If
Next
If a = j Then
If a - x = 2 and x<>0 Then
Print x, a
End If
x = a
End If
Next
End Function
在窗体上拉个按纽就可以了
private function iss(byval n as integer)as boolean
dim i as integer
iss=true
for i=2 to int(sqr(n))+1
if (n mod 2)=0 then
iss=false
exit for
next
end function
private sub form_load()
dim i as long
for i=2 to 98
if iss(i) then if iss(i+2) then print i,i+2
next
end sub
把代码复制到窗体的代码编辑窗口里，运行就可以在窗体里显示。
我明白了，是不是像3和5这样的质数对呀。