vb編程找出10000-30000間所有的回文數，打印出來

Private Sub Command1_Click()

For i = 10000 To 30000

If i \ 10000 = i Mod 10 Then

If i \ 1000 Mod 10 = i \ 10 Mod 10 Then

List1.AddItem i

End If

End If

Next i

End Sub

如果要打印，可將List1.AddItem i換成：

print i; : k=k+1: If k Mod 10=0 Then Print