私人小組Command1_Click（）

尺寸B（）字節，S作為字符串

'B到串行的頭發是一個字節數組

B=STRCONV（右（串（6，0）和十六進制（文本），6），vbFromUnicode）

驗證

對于i=0要UBound函數（二）

S=S＆十六進制（B（I））

Debug.Print小號

以下是減少

=格式（VAL（“＆H”，vbUnicodeSTRCONV（B）），

Debug.Print小號

ENDSUB

私人小組Form_Load（）

文本1。文本字符串（“0”））=“000042

ENDSUB