beats耳机支持安卓吗:求VB代码，可运行追加50悬赏！

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
Next k
If pass = True Then
s = i + j * 10
For k = 2 To m
pass = True
If s Mod k = 0 Then pass = False: Exit For
Next k
s = i * 10 + j
If pass = True Then List1.AddItem s
End If
Next j
Next i
End Sub
刚写出来的，绝对可运行，不过不知道是不是有点烦，还没来得及修剪，需要解释的话我再添上