係統粉 > 電腦問答 > 其他問答

分類

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

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

已有4條答案

低調啊911

回答數：46 | 被采納數：143

function 中的chr$(65+idecr-10)是什麼意思。。？？
idec＝idec\ibase中的“\”是什麼意思
這個進製轉化函數不懂。。
請教。。講解一下。。！

2017-02-05 01:16:55

讚 4

ss詩詩520

回答數：131 | 被采納數：11

chr的作用是得到指定ASCII碼的字符
\表示除完隻取整數部分

2017-02-05 04:00:04

讚 13

唯愛鬼鬼君

回答數：19 | 被采納數：76

chr明白。。
後麵的“$”是什麼意思。。
還有（65＋idecr-10)是什麼意思？？
這個函數的do while 循環在幹什麼？？沒看懂。。？？

2017-02-05 03:31:12

讚 1

仙袂舞流螢

回答數：178 | 被采納數：38

$表示String類型
６５什麼的可能是某個ASCII碼，具體要查一下表

2017-02-05 06:40:18

讚 17

相關問答

最新其他問答

解決方法