1、如何编写程序使用循环语句显示10000以内所有回文数，并统计其个数和平均数。2、编写过程使用循环将大写字母A-Z对应的ASCII值储存到数组alpasc的对应元素中，并将各元素值在立即窗口中显示。

假设有一张表：回文数（id，回文）

一个窗体，按钮（Command0），他的事件代码如下：

Private Sub Command0_Click()

    Dim A As String, B As String, i, j
    Dim HW As Long
    CurrentDb.Execute "delete * from 回文数"
    A = "123456789"
    B = "0123456789"
    For i = 1 To 10    '10以内
        HW = CLng(Mid(B, i, 1))
        CurrentDb.Execute "INSERT INTO 回文数(回文) VALUES(" & HW & ")"
    Next i
    For i = 1 To 9    '10~99
        HW = CLng(Mid(A, i, 1) & Mid(A, i, 1))
        CurrentDb.Execute "INSERT INTO 回文数(回文) VALUES(" & HW & ")"
    Next i
    For i = 1 To 9    '100~999
        For j = 1 To 10
            HW = CLng(Mid(A, i, 1) & Mid(B, j, 1) & Mid(A, i, 1))
            CurrentDb.Execute "INSERT INTO 回文数(回文) VALUES(" & HW & ")"
        Next j
    Next i
    For i = 1 To 9    '1000~9999
        For j = 1 To 10
            HW = CLng(Mid(A, i, 1) & Mid(B, j, 1) & Mid(B, j, 1) & Mid(A, i, 1))
            CurrentDb.Execute "INSERT INTO 回文数(回文) VALUES(" & HW & ")"
        Next j
    Next i
    MsgBox "共有" & DCount("*", "回文数") & "个回文数，平均值为：" & DAvg("回文", "回文数") & "。"
End Sub