VB进制转换器.doc

VB进制转换器
VB-进制转换器
一、界面设计
1 / 10
二、代码设计
Private bo1_Click()

End Sub
Private bo2_Click()
Dim num As String
num = Text1
= "二进制" Then = "二进制" Then Text2 = Text1
= "十进制" Then Call DEC_to_BIN(num)
= "十六进制" Then Call HEX_to_BIN(num)
End If
= "十进制" Then = "二进制" Then Call BIN_to_DEC(num)
= "十进制" Then Text2 = Text1
2 / 10
= "十六进制" Then Call HEX_to_DEC(num)
End If
= "十六进制" Then = "二进制" Then
Call BIN_to_HEX(num)
= "十进制" Then Call DEC_to_HEX(num)
= "十六进制" Then Text2 = Text1
End If
End If
End Sub
Private mand1_Click(Index As Integer) Select Case Index
Case 0
Text1 = ""
Text2 = ""

Case 1
End
3 / 10
End Select
End Sub
Private Sub Form_Resize()
= 5000
= 8000
= 3000
= 4000
= ( - ) / = 1
= 1
End Sub
Private Sub DEC_to_BIN(ByVal Dec As Long) '制
tnum = ""
Do While Dec > 0
tnum = Dec Mod 2 & tnum
Dec = Dec \ 2
Loop
Text2 = tnum
End Sub
4 / 10
十进制转换二进
Private Sub BIN_to_DEC(ByVal Bin As String) '二进制转换十进制
Dim i As Long, tnum As Long
For i = 1 To Len(Bin)
tnum = tnum * 2 + Val(Mid(Bin, i, 1))
Next i
Text2 = tnum
End Sub
P