用vb求出[2000,9999]以内的所有回文数的个数.请高手们帮帮忙!本人将不胜感激!

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 08:14:44
用vb求出[2000,9999]以内的所有回文数的个数.请高手们帮帮忙!本人将不胜感激!

用vb求出[2000,9999]以内的所有回文数的个数.请高手们帮帮忙!本人将不胜感激!
用vb求出[2000,9999]以内的所有回文数的个数.
请高手们帮帮忙!本人将不胜感激!

用vb求出[2000,9999]以内的所有回文数的个数.请高手们帮帮忙!本人将不胜感激!
Private Sub Command1_Click()
For i = 2000 To 9999
If Trim(Str(i)) = Trim(StrReverse(Str(i))) Then
Print Str(i)
End If
Next
End Sub