Question

VB1000以内的回文数,

显示1000以内的所有的回文数字,并在TEXT中显示
最后再计算出1000以内回文数字的个数,显示在TEXT的最下方.

Answer 1

Private Sub Form_Load()
Dim i As Integer, n As Integer, s As String

For i = 1 To 1000
s = i
If Mid(s, 1, 1) = Mid(s, Len(s), 1) Then
Text1.Text = Text1.Text & vbCrLf & i
n = n + 1
End If
Next i

Text1.Text = Text1.Text & vbCrLf & n
End Sub