查找80-150的特殊十进制数VB编写)

来源：百度知道 编辑：UC知道 时间：2024/05/27 09:51:59
查找80-150的特殊十进制数,特点是该十进制对应的八进制数为回文数(从左向右读走从右向左读一样的数)例105对应151 151属于回文所以105是符合要求的数) (VB编写)

Sub FindHW(fLBound As Long, fUBound As Long)
Dim i As Long, s As String
For i = fLBound To fUBound '循环
s = Oct(i) '十进制转八进制
If s = StrReverse(s) Then '如果它的颠倒字符串结果等于原字符串
Debug.Print Trim(Str(i)); "(10) - "; Trim(s); "(8)是回文数" '输出
End If
Next
End Sub

Private Sub Form_Load()
Call FindHW(80, 150) '查找
End Sub