ＶＢ编程求出１００～９９９之间的所有回文数，并按行输出

首先说明什么是回文数：左右对称的自然数称回文数。如121，4224，13731等你所出的题目是求三位数以内的所有回文数，所以只要判断第一位和第三位的数字是否一样，一样则为回文数。代码如下：Private Sub Command1_Click()
For i = 100 To 999 '100到999循环
a$ = Trim$(Str(i)) '转换成字符串
b = Left$(a$, 1) '截取左边第一位
d = Right$(a$, 1) '截取右边第一位
If b = d Then '判断左右是否相等,相等既是回文数.
T1.Text = T1 + Str(i)
End If
Next
End Sub

Private Sub Command1_Click()
For i = 100 To 999 '从100到999循环
If i = Val(StrReverse(Str(i))) Then 'StrReverse()函数是将字符串反序
Print i '打印出符合条件的数
End If
Next i
End Sub

Private Sub Form_Activate()
Dim i As Integer, n As Integer
For i = 100 To 999
If Left(i, 1) = Right(i, 1) Then
Print i;
n = n + 1
If n Mod 10 = 0 Then Print
End If
Next
End Sub