VB編程：編程輸出1000~9999之間的全部回文數。

dim n as long

dim x as string

dim y as string

for i=1000 to 9999

x=mid(i,1,2)

y=mid(i,4,1) & mid(i,3,1)

if x=y then

form1.print i

end if

next

end sub

輸出也可以更改為text控件，多行文本就沒有窗體輸出的問題了。

form1.print i 更改為,text1.text=text1.text & i & " "