void main(void){unsigned long d_in,d_out;cout>d_in;while(d_in99999){cout>d_in;}d_out=d_in/10000+((d_in%10000)/1000)*10+((d_in%1000)/100)*100+((d_in%100)/10)*1000+d_in%10*10000;cout5 then writeln('重新输入') else for i:=5 downto 1 do
write(s); writeln; end....
下面是VB代码，数字多长都可以反向，连字符都可以反向Function xx(ByVal aa As String) As String
Dim longth As Integer
Dim i As Integer
longth = Len(aa)
For i = longth To 1 Step -1...
