- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-18 09:43 ½s¿è
¦^´_ 6# c_c_lai - VABªº»¡©ú
- Boolean ¸ê®Æ«¬ºA
- Boolean ÅܼƫY¥H 16 ¦ì¤¸( 2 Ӧ줸²Õ)¼Æ¦rªº§Î¦¡Àx¦s¡A¦ý¥u¯à¬O True ©Î¬O False¡CBoolean ÅܼƪºÈ¤£¬O True ´N¬O False ( ¦b¨Ï¥Î Print ªº®ÉÔ )¡A©Î¬O #TRUE# ©M #FALSE# ( ¦b¨Ï¥Î Write # ªº®ÉÔ )¡C¨Ï¥ÎÃöÁä¦r True »P False ¥i±N Boolean Åܼƫü©w¬°³o¨âÓª¬ºA¤¤ªº¤@Ó¡C
- ·íÂà´«¨ä¥Lªº¼ÆÈ«¬ºA¬° Boolean ®É¡A0 ·|Âন False¡A¦Ó©Ò¦³¨ä¥LªºÈ«hÅܦ¨ True¡C·íÂà´« Boolean Ȭ°¨ä¥Lªº¸ê®Æ«¬ºA,®É¡AFalse ¦¨¬° 0 ¡A¦Ó True ¦¨¬° -1¡C
- If .[¹Bºâ¦¡±ø¥ó]..Then...Else ³¯z¦¡ ¨ä[¹Bºâ¦¡±ø¥ó]¤§¹Bºâµ²ªG¬° True ©Î False
- True ©Î False ¬O Boolean ¸ê®Æ«¬ºA
½Æ»s¥N½X- Sub Ex()
- Dim Vari
- Vari = "oBL"
- '¤TÓ¦¡¤lªº¹Bºâµ²ªG³£¤@¼Ëªº Boolean ¸ê®Æ«¬ºA
- 'If Vari Like "*OBL*" = False Then
- 'If Vari Like "*OBL*" = 0 Then
- If Not Vari Like "*OBL*" Then
- MsgBox Vari & " ¤£¥]§t : * OBL * "
- End If
- End Sub
½Æ»s¥N½X- Sub Ex1()
- Dim Vari As String
- Vari = "AOBL"
- MsgBox InStr(Vari, "OBL")
- If InStr(Vari, "OBL") Then '¹Bºâµ²ªG¬O Boolean ¸ê®Æ«¬ºA
- 'If InStr(Vari, "OBL") > 0 Then
- MsgBox Vari & " ¥]§t : * OBL * "
- End If
- End Sub
½Æ»s¥N½X |
|