Public Function t1(ByVal n As Integer, ByVal r As Integer)     '方法二实现进制转换
If n <> 0 Then
  t1 = t1(n \ r, r)     '递归调用的方式，进行进制转换
  Picture1.Print n Mod r;     '结果依次在窗体上输出
End If
End Function


Private Sub Command1_Click()
Dim m%, r%, i%
m = Val(Text1.Text)     '取要进行转换的十进制数
r = Val(Text2.Text)     '取要转换的进制R
Picture1.Cls
Picture1.Print "用方法二转换成"; r; "进制数是："
Picture1.Print t1(m, r)     '调用递归函数实现进制转换
End Sub

不知你看懂了没有。一种是中文描述，一种是代码描述。



原始调用 100 , 8
    第一次递归调用 ( 12, 8)
       第二次递归调用 （ 1 , 8)
         第三次递归调用 ( 0 , 8 )   此处调用，根据函数定义，是直接返回
       执行第二次递归调用显示部分 n =1 , mod r =1
    执行第一次递归调用显示部分 n =12 , mod r =4
执行原始调用显示部分 n=100, mod r=4



-----原始调用----
  t1(100,8)
   n=100
   r=8
   if n<>0 then
      t1(100\8,8)
 -------第一次递归--------
         n=12
         r=8   
         if n<>0 then
            t1(12\8,8)
 -------第二次递归--------
              n=1
              r=8
              if n<>0 then
                 t1(1/8 ,8)
 --------第三次递归-------------
                 n=0
                 r=8
                 if n<>0 then
                       '不执行
                 end if
 ---------第三次递归结束---------------
                 Picture1.Print n Mod r
               end if
 ---------第二次递归结束---------------
              Picture1.Print n Mod r
            end if
 ---------第一次递归结束---------------
          Picture1.Print n Mod r
        end if
 ------原始调用结束------------
          Picture1.Print n Mod r
        end if