vb编程——八进制 十进制 十六进制之间的相互转换

 我来答
沙慧月03
2011-09-12 · TA获得超过2157个赞
知道大有可为答主
回答量:2717
采纳率:100%
帮助的人:3626万
展开全部
TEXT1是当前进制,text2是目标进制,text3填入数据
Private Sub Command1_Click()
MsgBox jinzhi(Text1, Text2, Text3)
End Sub
Function jinzhi(x As Long, y As Integer, z As Integer)
If x = 10 And y = 8 Then
jinzhi = Oct(z)
ElseIf x = 10 And y = 16 Then
jinzhi = Hex(z)
ElseIf x = 16 And y = 10 Then
jinzhi = Val("&H" & z)
ElseIf x = 8 And y = 10 Then
jinzhi = Val("&O" & z)
ElseIf x = 8 And y = 16 Then
jinzhi = Hex(Val("&O" & z))
ElseIf x = 16 And y = 8 Then
jinzhi = Oct(Val("&H" & z))
End If
End Function
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
2011-09-12 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5677万
展开全部
看MSDN,有专门的函数
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
979367913
2011-09-12
知道答主
回答量:58
采纳率:0%
帮助的人:22.4万
展开全部
自己做,和十进制一个道理
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友1d20606
2011-09-12 · 超过25用户采纳过TA的回答
知道答主
回答量:139
采纳率:0%
帮助的人:71.8万
展开全部
多看看基础的书····
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
房殊惠M9
2011-09-13 · TA获得超过105个赞
知道答主
回答量:228
采纳率:0%
帮助的人:121万
展开全部

55555
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式