第一问答网»论坛 › 中问网 › 问答 › vb编程——八进制十进制十六进制之间的相互转换 ...

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

11 |

5 | 2011-9-12 13:37:14 | 显示全部楼层 |阅读模式

TEXT1是当前进制，text2是目标进制，text3填入数据Private Sub Command1_Click()MsgBox jinzhi(Text1, Text2, Text3)End SubFunction jinzhi(x As Long, y As Integer, z As Integer)If x = 10 And y = 8 Thenjinzhi = Oct(z)ElseIf x = 10 And y = 16 Thenjinzhi = Hex(z)ElseIf x = 16 And y = 10 Thenjinzhi = Val("&H" & z)ElseIf x = 8 And y =...

使用道具举报