ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð¦U¤j¤jÀ°¸ÑÃDPrivate Sub CBC_Click()

½Ð¦U¤j¤jÀ°¸ÑÃDPrivate Sub CBC_Click()

1.CBC mode»Ý¹ïÀ³Åܰʸê®Æ¨Ó·½¦ÓŪ¸ê®Æ®wªº¸ê®Æ¨Ó¦^¶Ç­È                                                                                       
2.¹ïÀ³¨ì¨C¤@¦C¥¿½T¦ì¸m¦Ó»Ý¦^¶Ç¥¿½T­ÈTrue©ÎFalseÅã¥Ü(¨C­Ó³£¬OActivex±±¨î¶µ(®Ö¨ú¤è¶ô))                                                                                       
3.·í¹ïÀ³¨C¦C­È¦Ó¦^¶Ç¥¿½T¦ì¸m¦³¥´¤Ä´NTrueµL¥´¤Ä´NFalse                                                                                       
                                                                       
Private Sub CBC_Click()
¦p¦ó§PÂ_§ä¹ï¥¿½T¦ì¸m?
If C1.Value = True Then
If C2.Value = True Then
If C3.Value = True Then
If C4.Value = True Then
If C5.Value = True Then
If C6.Value = True Then
If C7.Value = True Then
If C8.Value = True Then
If C9.Value = True Then
If C10.Value = True Then
If C11.Value = True Then
If C12.Value = True Then
If C13.Value = True Then
If C14.Value = True Then
If C15.Value = True Then
If C16.Value = True Then
If C17.Value = True Then
TextBox1.Value = "Click!"
Else: CBC.Value = ""
End If
End Sub
ÙT°U¤j¤jÀ°¸Ñ

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD