@初音✨七奈 太难了怎么把回文数跳出来，我的代码只能跳出24小时内的数不能挑选帮我看看吧

你这个代码把问题搞得太复杂了吧……
像这样写就好：
Dim n%, i%, a&, b&, c&
n = Val(InputBox("")) '输入速度，具体我这里省略了，照你原来写的就行，不用改
For i = 1 To 24 '依次经过一天的24个小时
a = 95959 + n * i '计算出第i个小时后的里程
b = a: c = 0 '用两个变量辅助判断是否为回文数，令b初始等于a，c初始等于0
Do While b <> 0 '当b不为0时，进行如下循环
c = c * 10 + b Mod 10 '从后往前依次取出b的每一位数，累加到c后面
b = b \ 10 '每取出一位，就把这一位从b中除掉
Loop
If c = a Then Picture1.Print "当速度为"; n; "经过"; i; "小时，新的对称数为："; a
'如果c=a，则表明a是回文数，输出相应结果
Next i