冰雹数跌落到1进行的步骤，及其中的峰值。其他都没问题，就是这个峰值老是出问题，一直显示的初始值。

以下是代码
===========
m=inputbox("计算冰雹数步骤","冰雹数","100")
cs=m
s=CStr(m)
zd=m
b=0
do until m=1
if m mod 2=0 then
m=m\2
else
m=3*m+1
end if
if m > zd then zd = m
s=s & "→" & CStr(m)
b=b+1
loop
msgbox "初始数" & cs & "经过" & b & "步变成1，以下是详细步骤" & chr(13) & chr(13) & s & chr(13) & chr(13) & "途经最大数为："& zd

m输入的是字符串，你先用cint或clng变成真数字才能和数字比大小