VB程序输出100内所有差为二的素数.尽量简单一些,并且最好能说明每步的含义.若两个素数之差为2,则这两个素数就是一对孪生素数.编写程序找出1~100之间的所有孪生素数
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 09:48:49
VB程序输出100内所有差为二的素数.尽量简单一些,并且最好能说明每步的含义.若两个素数之差为2,则这两个素数就是一对孪生素数.编写程序找出1~100之间的所有孪生素数
VB程序输出100内所有差为二的素数.
尽量简单一些,并且最好能说明每步的含义.
若两个素数之差为2,则这两个素数就是一对孪生素数.编写程序找出1~100之间的所有孪生素数
VB程序输出100内所有差为二的素数.尽量简单一些,并且最好能说明每步的含义.若两个素数之差为2,则这两个素数就是一对孪生素数.编写程序找出1~100之间的所有孪生素数
Private Sub Command1_Click()
Dim a() As Integer
Dim k As Integer, m As Integer, i As Integer, j As Integer
k = 0
For m = 2 To 100
i = 2
Do While m Mod i 0 '判断是否是素数
i = i + 1
Loop
If i = m Then '是素数
ReDim Preserve a(k) '不知道数组的长度应该用redim定义重新范围数组
'ReDim Preserve 进行对数组赋值
a(k) = m
k = k + 1
End If
Next m
For j = LBound(a()) To UBound(a()) - 1
If a(j + 1) - a(j) = 2 Then
Print a(j + 1); a(j) & "这两个素数就是一对孪生素数"
End If
Next j
End Sub