进制转换代码.docxVIP

Public Class Form2 Fun ction Tra nDec$( ByVai m%, ByVai r%) Dim c% Tra nDec = Do While m 0 c = m Mod r If c 9 The n Tra nDec = Chr(c - 10 + 56) Tran Dec Else Tran Dec = c Tran Dec End If m = m \ r Loop End Fun cti on Private Sub Butt on 1_Click( System.Eve ntArgs) Han diesDim m0%, r0% m0 = Vai