c语言既是素数又是回文数的三位数,编写程序,找出所有既是素数又是回文数的三位正整数.例如：131等...

共回答了26个问题采纳率：84.6%

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

1年前

4