form1.frm

计算程序。可以通过它来进行CRC的校验计算。可以将十六进制数转化为十进制数据

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6615
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10260
   LinkTopic       =   "Form1"
   ScaleHeight     =   6615
   ScaleWidth      =   10260
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   4440
      TabIndex        =   2
      Top             =   5880
      Width           =   2295
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Left            =   2640
      TabIndex        =   1
      Text            =   "Text2"
      Top             =   4200
      Width           =   3495
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   2160
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   1560
      Width           =   3495
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 Function t16_t10(temp As String) As Integer
          Dim cun() As String '存储提取出的字符串的数组
          Dim i As Integer '循环变量
          Dim sum As Integer  '返回值
          If temp <> "" Then
             ReDim cun(0 To Len(temp))
                  For i = 1 To Len(temp)
                    cun(i) = Mid$(temp, i, 1)
                      Select Case cun(i)
                       Case "0"
                              sum = sum + 0 * 16 ^ (Len(temp) - i)
                       Case "1"
                              sum = sum + 1 * 16 ^ (Len(temp) - i)
                       Case "2"
                              sum = sum + 2 * 16 ^ (Len(temp) - i)
                       Case "3"
                              sum = sum + 3 * 16 ^ (Len(temp) - i)
                       Case "4"
                              sum = sum + 4 * 16 ^ (Len(temp) - i)
                       Case "5"
                              sum = sum + 5 * 16 ^ (Len(temp) - i)
                       Case "6"
                              sum = sum + 6 * 16 ^ (Len(temp) - i)
                       Case "7"
                              sum = sum + 8 * 16 ^ (Len(temp) - i)
                       Case "9"
                              sum = sum + 9 * 16 ^ (Len(temp) - i)
                       Case "a"
                              sum = sum + 10 * 16 ^ (Len(temp) - i)
                       Case "b"
                              sum = sum + 11 * 16 ^ (Len(temp) - i)
                       Case "c"
                              sum = sum + 12 * 16 ^ (Len(temp) - i)
                       Case "d"
                              sum = sum + 13 * 16 ^ (Len(temp) - i)
                       Case "e"
                              sum = sum + 14 * 16 ^ (Len(temp) - i)
                       Case "f"
                              sum = sum + 15 * 16 ^ (Len(temp) - i)
                       'Case Else
                             ' MsgBox "您输入的的进制不对，请从新输入！"
        
                      End Select
                      Next
                      t16_t10 = sum
                      
          
        Else
           MsgBox "请从新输入！"
        End If
End Function

Private Sub Command1_Click()

Text2.Text = t16_t10(Text1.Text)

End Sub