求用vb2008写一个求10000到50000之间的所有回文数的编程并显示出来10个数字一行

编程序输出1到10000内的所有回文数并统计总个数。~

① a,b,c,d都没有定义也没有计算；
② 那个逻辑判断也没有完备， 有漏掉的情况。
③ 给你个完整的代码；
#include
#include

int main(int argc, char *argv[])
{
unsigned int a, b, c, d;
int i;
int sum;
int flag = 0;


printf("Printing reverse number from 1 to 10000
");
for (i=1; i <= 10000; i++)
{
flag = 0;
a = i/1000;
b = (i-a*1000)/100;
c = (i-a*1000-b*100)/10;
d = i-a*1000-b*100-c*10;

/* printf("%d=%d, %d, %d, %d
", i, a, b, c, d); */ /* debug */

if (i < 10) /* single digit */
{
flag = 0;
}
else if (i<100) /* double digits */
{
if (c == d)
flag = 1;
}
else if (i < 1000) /* triple digits */
{
if (b == d)
flag = 1;
}
else /* quadruple digits */
{
if ((a == d) && (b == c))
flag = 1;
}

if (flag) {
printf("%d
", i);
sum++;
}

}

printf("Sum = %d
", sum);
return 0;
}

应该输出190个。

Option Explicit
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 10000
If f1(i) = True And f1(i ^ 2) = True Then List1.AddItem i & "^" & "2" & "=" & i ^ 2
Next i
End Sub

Private Sub Command2_Click()
End
End Sub
Private Function f1(n As Long) As Boolean
Dim j As Long, m As Long
m = Len(CStr(n))
For j = 1 To m / 2
If Mid(n, j, 1) Mid(n, m - j + 1, 1) Then Exit Function
Next j
f1 = True
End Function

创建宏：
Sub Macro1()
x = 1000
r = 1
While x < 10000
If Left(x, 1) = Right(x, 1) And Mid(x, 2, 1) = Mid(x, 3, 1) Then
Cells(r, 1) = x
r = r + 1
End If
x = x + 1
Wend
End Sub


Cls
Dim i, j, m, n As Single
Dim a(5) As Integer
For i = 10000 To 50000
n = i
For j = 1 To 5
a(j) = n Mod 10
n = n \ 10
Next j
For j = 1 To 5 \ 2
If a(j) <> a(5 - j + 1) Then Exit For
Next j
If j > 5 \ 2 Then Print i;: m = m + 1: If m Mod 10 = 0 Then Print
Next i

---

求用vb2008写一个求10000到50000之间的所有回文数的编程并显示出来10个数字一行视频