VB编程。。跪求100~999的回文数素数!

2025-01-04 00:45:46
推荐回答(2个)
回答1:

Private Sub Form_click()
Dim i As Integer, n As Integer
For i = 100 To 999
If Left(i, 1) = Right(i, 1) Then
Print i;
n = n + 1
If n Mod 10 = 0 Then Print
End If
Next
End Sub

回答2:

你回文数会输出吧?