进制转换代码.docVIP

Public Class Form2 Function TranDec$(ByVal m%, ByVal r%) Dim c% TranDec = Do While m 0 c = m Mod r If c 9 Then TranDec = Chr(c - 10 + 56) TranDec Else TranDec = c TranDec End If m = m \ r Loop End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m0%, r0% m0 = Val(TextBox1.Text) r0 = Val(TextBox2.Text) If r0 2 Or r0 16 Then MsgBox(数制超出范围)