【正文】 1 = True = 1 = TrueEnd SubPrivate Sub Label1_Click()Dim a As Integera = Val() = amp。 = False39。 = False39。39。39。39。ff是傳輸結(jié)束標志39?？刂凭彌_單元 = Chr$(Val(amp。 s amp。 f = Chr$(Val(amp。H amp。 s amp。H0))a = Val()s = Int(a / 16)s1 = sIf s = 10 Then s = aIf s = 11 Then s = bIf s = 12 Then s = cIf s = 13 Then s = dIf s = 14 Then s = eIf s = 15 Then s = ff = a s1 * 16If f = 10 Then f = aIf f = 11 Then f = bIf f = 12 Then f = cIf f = 13 Then f = dIf f = 14 Then f = eIf f = 15 Then f = f = Chr$(Val(amp。H7)) 39。H5)) 39。H9)) = Chr$(Val(amp。H8)) = Chr$(Val(amp。H6)) 39。H5)) = Chr$(Val(amp。H9)) = Chr$(Val(amp。H8)) = Chr$(Val(amp。FFH結(jié)束標志，7E判斷結(jié)束標志 = Chr$(Val(amp。End SubPrivate Sub Command1_Click()39。39。39。39。HFF)) 39。 f)) 39。H amp。 s amp。 f)) = amp。H amp。50h = Chr$(Val(amp。5fh = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。5ah = Chr$(Val(amp。H7)) = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。H6)) = Chr$(Val(amp。77H不保存標志39。If = 0 Then = amp。End SubPrivate Sub Check7_Click() = + * 2 + * 4 + * 8 + * 16 + * 32 + * 64If = 1 Then = amp。39。39。39。HFF)) 39。 f)) 39。H amp。 s amp。 f)) = amp。H amp。50h = Chr$(Val(amp。5fh = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。5ah = Chr$(Val(amp。H7)) = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。H6)) = Chr$(Val(amp。77H不保存標志39。If = 0 Then = amp。End SubPrivate Sub Check6_Click() = + * 2 + * 4 + * 8 + * 16 + * 32 + * 64If = 1 Then = amp。39。39。39。HFF)) 39。 f)) 39。H amp。 s amp。 f)) = amp。H amp。50h = Chr$(Val(amp。5fh = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。5ah = Chr$(Val(amp。H7)) = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。H6)) = Chr$(Val(amp。77H不保存標志39。If = 0 Then = amp。End SubPrivate Sub Check5_Click() = + * 2 + * 4 + * 8 + * 16 + * 32 + * 64If = 1 Then = amp。39。39。39。HFF)) 39。 f)) 39。H amp。 s amp。 f)) = amp。H amp。50h = Chr$(Val(amp。5fh = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。5ah = Chr$(Val(amp。H7)) = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。H6)) = Chr$(Val(amp。77H不保存標志39。If = 0 Then = amp。End SubPrivate Sub Check4_Click() = + * 2 + * 4 + * 8 + * 16 + * 32 + * 64If = 1 Then = amp。39。39。39。HFF)) 39。 f)) 39。H amp。 s amp。 f)) = amp。H amp。50h = Chr$(Val(amp。5fh = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。5ah = Chr$(Val(amp。H7)) = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。H6)) = Chr$(Val(amp。77H不保存標志39。If = 0 Then = amp。End SubPrivate Sub Check3_Click() = + * 2 + * 4 + * 8 + * 16 + * 32 + * 64If = 1 Then = amp。39。39。39。HFF)) 39。 f)) 39。H amp。 s amp。 f)) = amp。H amp。50h = Chr$(Val(amp。5fh = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。5ah = Chr$(Val(amp。H7)) = Chr$(Val(amp。H7)) = Chr$(Val(amp。H3)) = Chr$(Val(amp。H6)) = Chr$(Val(amp。77H不保存標志39。If = 0 Then = amp。End SubPrivate Sub Check2_Click() = + * 2 + * 4 + * 8 + * 16 + *