幫忙看一下。。有些地方不是很懂。。。

提問者：沐若晨浴  |  瀏覽 次  |  提問時間：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