编写程序,找出所有既是素数又是回文数的三位正整数.例如：131等要求编写一个函数过程判断某数是否是素数.编写一个函数过程判断一个数是否是回文数.

Question

编写程序,找出所有既是素数又是回文数的三位正整数.例如：131等
要求编写一个函数过程判断某数是否是素数.编写一个函数过程判断一个数是否是回文数.

Answer 1

Module Module1
Sub Main()
For i = 101 To 999
Dim si As String
si = i.ToString()
If (ss(i) And hs(si)) Then
Console.WriteLine(i)
End If
Next
Console.Write("按任意键结束")
Console.Read()
End Sub
'是否素数
Function ss(ByVal s As Integer) As Boolean
For i = 2 To s - 1
If (s Mod i) = 0 Then
Return False
End If
Next
Return True
End Function
'是否回数
Function hs(ByVal s As String) As Boolean
Dim s2 As String
s2 = StrReverse(s)
For i = 1 To Len(s) / 2
If (Mid(s, i, 1) Mid(s2, i, 1)) Then
Return False
End If
Next
Return True
End Function
End Module