已解决帮忙看一下。。有些地方不是很懂。。。

提问者：沐若晨浴  |  浏览次  |  提问时间：2017-02-04  |  回答数量：4

Private Function TrDec(ByVal idec As Integer, ibase As Integer) As String Dim strDecR$, iDecR% strDecR = \"\" Do While idec <> 0 iDecR = idec Mod ibase If iDecR >= 10 ThenstrDecR = Chr$(65 + iDecR - 10) & strDecRElsestrDecR = iDecR & strDecREnd Ifidec = idec \\ ibaseLoopTrDec = strDecREnd FunctionPrivate Sub Command1_Click() Dim Tr_in% Tr_in = InputBox(\"输入一个十进制数：\") Print TrDec(Tr_in, 2) Print TrDec(Tr_in, 8) Print TrDec(Tr_in, 16)End Sub