Question

vb:在立即窗口中显示10000以内所有回文数,并统计其个数及平均值.

Answer 1

Sub s()
    Dim i%, ct%, sm&
    For i = 1 To 10000
        If f(i) Then
            Debug.Print i,
            ct = ct + 1
            sm = sm + i
            If ct Mod 10 = 0 Then Debug.Print
        End If
    Next
    Debug.Print
    Debug.Print "数量：" & ct, "平均值：" & sm / ct
End Sub
Function f(ByVal x%) As Boolean
    Dim i%, n%, c$
    c = CStr(x)
    n = Len(c)
    For i = 1 To n / 2
        If Mid(c, i, 1) <> Mid(c, n - i + 1, 1) Then
            f = False
            Exit Function
        End If
    Next
    f = True
End Function