Private Sub Command1_Click() Text1 = &HFF + &HFF + &HFF + &H1F + &H2F + &H3F End Sub
'就是一般的加啊,加法和进制没有关系的 Dim m_strOutTask(5) As Long, sum As Long, i As Integer sum = &H0 m_strOutTask(0) = &HFF m_strOutTask(1) = &HFF m_strOutTask(2) = &HFF m_strOutTask(3) = &H1F m_strOutTask(4) = &H2F m_strOutTask(5) = &H3F For i = 0 To 5 sum = sum + m_strOutTask(i) Next i MsgBox Hex(sum)
Text1 = &HFF + &HFF + &HFF + &H1F + &H2F + &H3F
End Sub
sum = &H0
m_strOutTask(0) = &HFF
m_strOutTask(1) = &HFF
m_strOutTask(2) = &HFF
m_strOutTask(3) = &H1F
m_strOutTask(4) = &H2F
m_strOutTask(5) = &H3F
For i = 0 To 5
sum = sum + m_strOutTask(i)
Next i
MsgBox Hex(sum)
多谢