提问者:沐若晨浴 | 浏览 次 | 提问时间: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
低调啊911
回答数:46 | 被采纳数:143
ss诗诗520
回答数:131 | 被采纳数:11
唯爱鬼鬼君
回答数:19 | 被采纳数:76
仙袂舞流萤
回答数:178 | 被采纳数:38
小冰,是一个迷。谜一样的存在加上谜一样的用户。每次当你觉得已经似乎窥得“庐山真面目”时,很有可能马上沮丧地发现不过又是一轮“盲人摸象”。如果用类似微软官方的描述来勾勒全像,这是一...
几乎每个windows xp系统用户都曾经遇到过系统奔溃的情况,系统奔溃一般情况下是由于操作失误或者病毒、恶意软件入侵电脑导致电脑系统无法正常的工作,频繁的死机也算是其中的一...
今天给大家带来怎样看懂电脑的主板,看懂电脑的主板的方法有哪些,让您轻松解决问题。 你了解主板上的各种借口吗?这么多元器件分别是干什么用的?这里拿比较过时的主板先做了解,相信你了解了...
大家都知道系统自带一些程序可以保护文件,但是很少人知道,Windows7下用PCSafeguar海可以保护文件吧.这也不奇怪,因为,在Windows 7 M3的版本中...