VB写的一个机器应用程序

Private Sub Command1_Click() 'Text1.Text = "0B" 'text1.Text = 'Text2.Text = CLng("&H" & Text1.Text) Text2.Text = CHex(Text1.Text) End Sub Public Function CHex(H) As Double Dim Hv, Dv, D H = UCase(H) For m = 1 To Len(H) Hv = Left(Right(H, m), 1) Select Case Hv Case "A": Dv = 10 Case "B": Dv = 11 Case "C": Dv = 12 Case "D": Dv = 13 Case "E": Dv = 14 Case "F": Dv = 15 Case Else: Dv = Hv End Select D = D + (Dv * (16 ^ (m - 1))) Next CHex = D End Function If Text1.Text <> "" Then strP = Text1.Text Text1.Text = CHex(Right(strP, 1)) Sleep (40) Else End If