输出100~999之间的回文数，怎么用VB实现啊。

Private Sub Command1_Click()
Dim n!, i!, m!, w!
w = 0
For i = 100 To 999
m = i - i \ 100
n = m Mod 10
    If n = 0 Then Print i;: w = w + 1
        If w = 10 Then Print: w = 0
Next i
End Sub
刚刚想出来~贼高兴了~

'方案一:转换为字符串判断
dim i as integer,a as string
for i=100 to 999
  a=trim(i)
  if left(a,1)=right(a,1) then print i
next

'方案二：不转换，纯数字判断
dim i as integer
for i=100 to 999
  if int(i/100)=i mod 10 then print i
next

给你个简单的
for i= 100 to 999
    if strrever(i)=i then
    print i;
next i