求VB代码,可运行追加50悬赏!
来源:百度知道 编辑:UC知道 时间:2024/06/21 23:12:32
绝对素数:一个素数,当他的十位和个位调换任是素数时,这样的素数就叫绝对素数。
If pass = True Then List1.AddItem s
不解~~~~~
二楼的有写数没出来啊~~~
Function ss(Tmp As Long) As Boolean '素数判断
ss = True
For i = 2 To Tmp / 2
If Tmp Mod i = 0 Then
ss = False
Exit Function
End If
Next
End Function
Function chn(Tmp As Long) As Long '十位和个位调换
chn = Int(Tmp / 100) * 100 + (Tmp Mod 10) * 10 + (Tmp / 10 Mod 10)
End Function
Private Sub Command1_Click()
Dim a As Long
For a = 10 To 100 '小一点 从10到 100吧!
If ss((a)) And ss(chn(a)) Then
Print a
End If
Next
End Sub
其他地方你还可以自行修改!
是要列举出10-99之间的所有绝对素数么?
点击按钮在列表框中列出所有两位数绝对素数:
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, s As Integer, m As Integer,pass as boolean
For i = 1 To 9
For j = 0 To 9
s = i * 10 + j
m = Int(Sqr(s))
For k = 2 To m
pass = True
If s Mod k = 0 Then pass = False: Exit For