原创力文档- 1、本文档共3页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VB用函数将2-10-16进制相互转,窗体加代码
代码：
Private Sub CMD_10to2_Click()
Dim reternstring As String, ModNum As Integer
Dim val_text1 As Long
val_text1 = Val(Text1.Text)
Do While val_text1 0
ModNum = val_text1 Mod 2
val_text1 = Fix(val_text1 / 2)
reternstring = Trim(Str(ModNum)) + reternstring
Loop
If Len(reternstring) 8 Then reternstring = String(8 - Len(reternstring), 0) + reternstring
Text2.Text = reternstring
End Sub
十进制——八进制
Private Sub CMD_10to8_Click()
MsgBox 8进制数为 Oct(Text1.Text)
End Sub
Private Sub CMD_16to10_Click()
Dim B As Double
B = H + Text1.Text
Text2.Text = B
End Sub
十六进制——二进制
Private Sub CMD_16to2_Click()
Dim reternstring As String, ModNum As Integer
Dim val_text1 As Long
Dim Val_10 As Double
Dim LEN_A As Double, LEN_B As Integer
Val_10 = H + Text1.Text
val_text1 = Val_10
Do While val_text1 0
ModNum = val_text1 Mod 2
val_text1 = Fix(val_text1 / 2)
reternstring = Trim(Str(ModNum)) + reternstring
Loop
LEN_A = Len(Text1.Text) * 4 计算输入数据的位数用于计算输出二进制数的位数（1位输入位＝4位二进制位）
LEN_B = LEN_A - Len(reternstring) 用输入位数（1位输入位＝4位二进制位）计算输出二进制位数与实际二进制位数之差
If Len(reternstring) Len(Text1.Text) * 4 Then reternstring = String(LEN_B, 0) + reternstring 不足预设位在前面补0
Text2.Text = reternstring + b
End Sub
二进制——十进制
Private Sub CMD_2to10_Click()
Dim B As Integer
Dim c
Cls
For B = 1 To Len(Text1.Text)
c = c + Mid(Text1.Text, B, 1) * 2 ^ (Len(Text1.Text) - B)
Next B
MsgBox 10进制数为 c
End Sub
Private Sub CMD_2to16_Click()
Dim B As Integer
Dim c
Cls
For B = 1 To Len(Text1.Text)
c = c + Mid(Text1.Text, B, 1) * 2 ^ (Len(Text1.Text) - B)
Next B
End Sub
八进制——十进制
Private Sub CMD_8to10_Click() 8to10
Dim B As Integer
B = o + Text1.Text
MsgBox 10进制数为 B
End Sub
Private Sub CMD_8to16_Click()
Dim B As Integer
Dim c
Cls
For B = 1 To Len(Text1.Text)
c = c + Mid(Text1.Text, B, 1) * 8 ^ (Len(Text1.Text) - B)
Next B
MsgBox 16进制数为 Hex(c)
End Sub
文档评论（0）