VB里怎样实现位运算？ vb 里的 逻辑运算 和 位运算 怎么区分？？
VB.NET\u600e\u4e48\u4f4d\u8fd0\u7b97?\u6ce8\u610f\u53ea\u80fd\u5bf9\u6574\u578b\u6267\u884c\u6309\u4f4d\u8fd0\u7b97\u3002\u6d6e\u70b9\u503c\u5fc5\u987b\u8f6c\u6362\u4e3a\u6574\u578b\u540e\uff0c\u624d\u80fd\u6267\u884c\u6309\u4f4d\u8fd0\u7b97\u3002\u6309\u4f4d\u8fd0\u7b97\u91c7\u7528\u4e8c\u8fdb\u5236\uff08\u4ee5 2 \u4e3a\u57fa\uff09\u5f62\u5f0f\u8ba1\u7b97\u4e24\u4e2a\u6574\u6570\u503c\u3002\u5b83\u4eec\u6bd4\u8f83\u5bf9\u5e94\u4f4d\u7f6e\u4e0a\u7684\u4f4d\uff0c\u7136\u540e\u57fa\u4e8e\u6bd4\u8f83\u7684\u7ed3\u679c\u8d4b\u503c\u3002\u4e0b\u9762\u7684\u793a\u4f8b\u6f14\u793a\u4e86 And \u8fd0\u7b97\u7b26\u3002\u590d\u5236Dim x As Integerx = 3 And 5\u524d\u9762\u7684\u793a\u4f8b\u5c06 x \u7684\u503c\u8bbe\u7f6e\u4e3a 1\u3002\u53d1\u751f\u8fd9\u79cd\u60c5\u51b5\u7684\u539f\u56e0\u5982\u4e0b\uff1a\u8fd9\u4e9b\u503c\u4ee5\u4e8c\u8fdb\u5236\u5f62\u5f0f\u5904\u7406\uff1a\u4e8c\u8fdb\u5236\u683c\u5f0f\u7684 3 \u4e3a 011\u4e8c\u8fdb\u5236\u683c\u5f0f\u7684 5 \u4e3a 101And \u8fd0\u7b97\u7b26\u6bd4\u8f83\u8fd9\u4e9b\u4e8c\u8fdb\u5236\u8868\u793a\u65b9\u5f0f\uff0c\u4e00\u6b21\u6bd4\u8f83\u4e00\u4e2a\u4e8c\u8fdb\u5236\u4f4d\u7f6e\uff08\u4f4d\uff09\u3002\u5982\u679c\u7ed9\u5b9a\u4f4d\u7f6e\u7684\u4e24\u4e2a\u4f4d\u90fd\u4e3a 1\uff0c\u5219\u5c06 1 \u653e\u5728\u7ed3\u679c\u4e2d\u7684\u8be5\u4f4d\u7f6e\u3002\u5982\u679c\u4efb\u4f55\u4e00\u4e2a\u4f4d\u662f 0\uff0c\u5219\u5c06 0 \u653e\u5728\u7ed3\u679c\u4e2d\u7684\u8be5\u4f4d\u7f6e\u3002\u5728\u524d\u9762\u7684\u793a\u4f8b\u4e2d\uff0c\u6309\u5982\u4e0b\u6240\u793a\u8ba1\u7b97\u7ed3\u679c\uff1a011\uff08\u4e8c\u8fdb\u5236\u683c\u5f0f\u7684 3\uff09101\uff08\u4e8c\u8fdb\u5236\u683c\u5f0f\u7684 5\uff09001\uff08\u4e8c\u8fdb\u5236\u683c\u5f0f\u7684\u8ba1\u7b97\u7ed3\u679c\uff09\u8ba1\u7b97\u7ed3\u679c\u4ee5\u5341\u8fdb\u5236\u5f62\u5f0f\u5904\u7406\u3002\u503c 001 \u662f 1 \u7684\u4e8c\u8fdb\u5236\u8868\u793a\u5f62\u5f0f\uff0c\u56e0\u6b64 x = 1\u3002\u9664\u4e86\u5728\u4efb\u4f55\u4e00\u4e2a\u6bd4\u8f83\u4f4d\u662f 1 \u6216\u4e24\u4e2a\u6bd4\u8f83\u4f4d\u90fd\u662f 1 \u7684\u60c5\u51b5\u4e0b\u5c06 1 \u8d4b\u4e88\u7ed3\u679c\u4f4d\u4ee5\u5916\uff0c\u6309\u4f4d Or \u8fd0\u7b97\u4e0e\u6b64\u7c7b\u4f3c\u3002Xor \u5728\u6bd4\u8f83\u7684\u4f4d\u6b63\u597d\u53ea\u6709\u4e00\u4e2a\u662f 1\uff08\u800c\u4e0d\u662f\u4e24\u8005\u90fd\u662f 1\uff09\u65f6\u5c06 1 \u8d4b\u7ed9\u7ed3\u679c\u4f4d\u3002Not \u91c7\u7528\u5355\u4e2a\u64cd\u4f5c\u6570\u5e76\u53cd\u8f6c\u6240\u6709\u4f4d\uff08\u5305\u62ec\u7b26\u53f7\u4f4d\uff09\uff0c\u7136\u540e\u5c06\u8be5\u503c\u8d4b\u4e88\u7ed3\u679c\u3002\u8fd9\u610f\u5473\u7740\uff0c\u5bf9\u4e8e\u6709\u7b26\u53f7\u6b63\u6570\uff0cNot \u59cb\u7ec8\u8fd4\u56de\u8d1f\u503c\uff0c\u800c\u5bf9\u4e8e\u8d1f\u6570\uff0cNot \u59cb\u7ec8\u8fd4\u56de\u6b63\u503c\u6216\u96f6\u3002AndAlso \u548cOrElse \u8fd0\u7b97\u7b26\u4e0d\u652f\u6301\u6309\u4f4d\u8fd0\u7b97\u3002 \u8ffd\u95ee\uff1a \u597d\u590d\u6742\u554a...\u8fd8\u662f\u4e0d\u4f1a,\u8fd8\u6709\u6574\u6570\u600e\u4e48\u8f6c\u6362\u4e3a\u4e8c\u8fdb\u5236\u6570? \u56de\u7b54\uff1a \u4e3a\u4ec0\u4e48\u4e00\u5b9a\u8981\u7528\u4f4d\u8fd0\u7b97\u5462\uff0c\u4f60\u90a3\u4e2a\u4e58\u6cd5\u53ea\u80fd\u901a\u8fc7\u5de6\u79fb\u64cd\u4f5c\u7b26\u201c << \u201d\u6765\u8fdb\u884c\uff0c\u800c\u5de6\u79fb\u4e00\u6b21\u4ee3\u8868\u4e58\u4ee52\uff0c\u8981\u662f\u4e58\u4ee5\u4e00\u4e2a\u5c0f\u6570\uff0c\u5c31\u5fc5\u987b\u5148\u5316\u62102\u7684n\u6b21\u65b9\uff0c\u4e0d\u591f\u518d\u7528\u52a0\u51cf\u6cd5\u8c03\u6574\uff0c\u5f88\u9ebb\u70e6\u554a\uff0c\u6ca1\u5fc5\u8981\u7528\u4f4d\u8fd0\u7b97\u554a\u3002\u3002\u3002 \u8ffd\u95ee\uff1a \u56e0\u4e3a\u6211\u8981\u8fdb\u884c\u5927\u91cf\u7684\u8fd0\u7b97,\u4f46\u901f\u5ea6\u8981\u5feb,\u6240\u6709\u7528\u4f4d\u8fd0\u7b97...\u6211\u4e5f\u4e0d\u60f3\u554a.. \u56de\u7b54\uff1a \u90a3\u5c31\u4e0d\u8be5\u7528VB \u554a\uff0cc/c++\u5728\u6267\u884c\u6548\u7387\u4e0a\u662f\u6ca1\u8bdd\u8bf4\u7684\u3002 \u8ffd\u95ee\uff1a \u95ee\u9898\u5c31\u662f\u4e0d\u4f1a\u561b... \u56de\u7b54\uff1a \u90a3\u4f60\u4e0acsdn\u4e0a\u53d1\u5e16\u6548\u679c\u5e94\u8be5\u4e0d\u9519 \u8ffd\u95ee\uff1a CSDN\u53d1\u4e86,\u6211\u53d1\u5728\u9ad8\u6027\u80fd\u8fd0\u7b97,\u6ca1\u4eba... \u56de\u7b54\uff1a \u8010\u5fc3\u4e00\u4e9b\uff0c\u6216\u8005\u4f60\u5e94\u8be5\u53d1\u5230VB.NET\u8bba\u575b\u90a3\u91cc\u3002\u3002\u3002 \u8ffd\u95ee\uff1a \u989d..\u53ea\u80fd\u8fd9\u6837\u4e86... \u63d0\u95ee\u8005 \u7684\u611f\u8a00\uff1a \u592a\u590d\u6742\u4e86..\u7b97\u4e86 2010-11-08
\u903b\u8f91\u8fd0\u7b97\u7b26\u5305\u62ec6\u4e2a\uff1a
And \u8fd0\u7b97\u7b26
Eqv \u8fd0\u7b97\u7b26
Imp \u8fd0\u7b97\u7b26
Not \u8fd0\u7b97\u7b26
Or \u8fd0\u7b97\u7b26
Xor \u8fd0\u7b97\u7b26
\u5982\u679c\u4e24\u4e2a\u8868\u8fbe\u5f0f\u7684\u503c\u90fd\u662f True\uff0c\u5219 result \u662f True\u3002
\u5982\u679c\u5176\u4e2d\u4e00\u4e2a\u8868\u8fbe\u5f0f\u7684\u503c\u662f False\uff0c\u5219 result \u662f False\u3002
\u4f4d\u8fd0\u7b97\u7b26\u3000\u3000\u542b\u4e49
&\u3000\u3000\u3000\u3000\u6309\u4f4d\u4e0e
|\u3000\u3000\u3000\u3000\u6309\u4f4d\u6216
^ \u3000\u3000\u3000\u6309\u4f4d\u5f02\u6216
~\u3000\u3000\u3000\u3000\u53d6\u53cd
<< \u3000\u3000\u5de6\u79fb
>> \u3000\u3000\u53f3\u79fb
\u8bf4\u660e\uff1a
\uff081\uff09\u4f4d\u8fd0\u7b97\u7b26\u4e2d\u9664 ~ \u5916\uff0c\u5747\u4e3a\u4e8c\u76ee\u8fd0\u7b97\u7b26\uff0c\u5373\u8981\u6c42\u51fa\u4fa7\u5404\u6709\u4e00\u4e2a\u8fd0\u7b97\u91cf\u3002
\uff082\uff09\u8fd0\u7b97\u65e9\u53ea\u80fd\u662f\u6574\u578b\u6216\u5b57\u7b26\u578b\u7684\u6570\u636e\uff0c\u4e0d\u80fd\u4e3a\u5b9e\u578b\u6570\u636e\u3002
逻辑运算符中所含的And 运算符，Eqv 运算符，Imp 运算符，Not 运算符，Or 运算符，Xor 运算符等均可用来实现位运算。
算术运算符的* 运算符，\ 运算符可用于左移和右移位运算。
And 运算符，还对两个数值表达式中位置相同的位进行逐位比较，并根据下表对 result 中相应的位进行设置：
Or 运算符，对两个数值表达式中位置相同的位进行逐位比较，并根据下表对 result 中相应的位进行设置：
Xor 运算符既可作为逻辑运算符，也可作为位运算符。使用互斥或的逻辑进行的两个表达式的逐位比较，其结果通过下表说明：
详细的参考：MSDN6.0关于运算符的介绍。
先用xor之类的取出最后一位,然后整除2,实现右移,再进行下一位运算
and or xor 都可以用啊。
左移 *2 右移 \2
绛旓細閫昏緫杩愮畻绗︿腑鎵鍚殑And 杩愮畻绗︼紝Eqv 杩愮畻绗︼紝Imp 杩愮畻绗︼紝Not 杩愮畻绗︼紝Or 杩愮畻绗︼紝Xor 杩愮畻绗︾瓑鍧囧彲鐢ㄦ潵瀹炵幇浣嶈繍绠銆傜畻鏈繍绠楃鐨* 杩愮畻绗︼紝\ 杩愮畻绗﹀彲鐢ㄤ簬宸︾Щ鍜屽彸绉讳綅杩愮畻銆侫nd 杩愮畻绗︼紝杩樺涓や釜鏁板艰〃杈惧紡涓綅缃浉鍚岀殑浣嶈繘琛岄愪綅姣旇緝锛屽苟鏍规嵁涓嬭〃瀵 result 涓浉搴旂殑浣嶈繘琛岃缃細Or 杩愮畻绗︼紝...
绛旓細鍥炵瓟锛氭敞鎰忓彧鑳藉鏁村瀷鎵ц鎸浣嶈繍绠銆傛诞鐐瑰煎繀椤昏浆鎹负鏁村瀷鍚,鎵嶈兘鎵ц鎸変綅杩愮畻銆傛寜浣嶈繍绠楅噰鐢ㄤ簩杩涘埗(浠 2 涓哄熀)褰㈠紡璁＄畻涓や釜鏁存暟鍊笺傚畠浠瘮杈冨搴斾綅缃笂鐨勪綅,鐒跺悗鍩轰簬姣旇緝鐨勭粨鏋滆祴鍊笺備笅闈㈢殑绀轰緥婕旂ず浜 And 杩愮畻绗︺傚鍒禗im x As Integerx = 3 And 5 鍓嶉潰鐨勭ず渚嬪皢 x 鐨勫艰缃负 1銆傚彂鐢熻繖绉...
绛旓細Not x 鍙栧弽杩愮畻 姣斿 Not 5 = -6
绛旓細4. 浣嶈繍绠楃锛氱敤浜庡浜岃繘鍒朵綅杩涜鎿嶄綔銆俈B涓父鐢ㄧ殑浣嶈繍绠楃鍖呮嫭 `And`锛堜綅涓庯級銆乣Or`锛堜綅鎴栵級銆乣Xor`锛堜綅寮傛垨锛夈乣Not`锛堜綅闈烇級銆傝繖浜涜繍绠楃涓昏鐢ㄤ簬澶勭悊浣庣骇缂栫▼浠诲姟锛屽纭欢缂栫▼绛夈5. 瀛楃涓茶繍绠楃锛氱敤浜庡瓧绗︿覆鐨勮繛鎺ュ拰澶勭悊銆傚湪VB涓紝鍙互浣跨敤 `&` 绗﹀彿鏉ヨ繛鎺ヤ袱涓瓧绗︿覆銆傛澶栵紝杩樻湁瀛楃...
绛旓細濡傛灉鏄墠鑰咃紝鍙互鐢浣嶈繍绠鏉ヨ幏寰楋紝姣斿锛歺 = 123 x And 2^0 = 123 And 1 = 1 '绗1浣嶄负1 x And 2^1 = 123 And 2 = 2 '绗2浣嶄负1 x And 2^2 = 123 And 4 = 0 '绗3浣嶄负0 x And 2^3 = 123 And 8 = 8 '绗4浣嶄负1 x And 2^4 = 123 And 16 = 16 ...
绛旓細'VB鏄病鏈夌Щ浣嶅懡浠ょ殑锛屼絾鏄彲浠ヨ嚜瀹氫箟绉讳綅鍑芥暟銆'浣嶅乏绉 Public Function SHL(nSource As Long, n As Byte) As Long SHL = nSource * 2 ^ n End Function '浣嶅彸绉 Public Function SHR(nSource As Long, n As Byte) As Long SHR = nSource / 2 ^ n End Function ...
绛旓細涓ょ鏂规硶 浣嶈繍绠 鍜 绾补瀛楃涓插鐞 Private Sub Command1_Click()'EnCode1 浣嶈繍绠楀疄鐜鍔犲瘑 Dim arr() As Byte Dim i As Integer arr = StrConv(Text1.Text, vbFromUnicode)For i = 0 To UBound(arr)EnCode1 arr(i)Next Text2.Text = StrConv(arr, vbUnicode)End Sub Sub EnCode1(x...
绛旓細VB涓垜鍙敤杩囨寜浣嶄笌(AND)銆佹寜浣嶆垨(OR)銆佹寜浣嶅紓鎴(XOR)銆傚叾浠栫殑闇瑕佽嚜宸辨坊鍔犱唬鐮佹ā鎷熴傚叿浣撳悇浣杩愮畻鐨勫惈涔夊彲浠ヨ嚜宸辨煡闃呯浉鍏虫枃鐚佷功鍒娿傜┖闂存湁闄愶紝鎴戝氨涓嶈创鍑烘潵浜嗐備綘搴旇鐭ラ亾鐨勫父璇嗭細锛堜竴锛1 Byte = 8 bit 涓涓瓧鑺傚湪瀛樺偍鍣ㄤ腑鍗8浣嶏紱锛堜簩锛夊湪VB涓紝integer绫诲瀷鐨勮寖鍥翠负-32768锛-2^15锛墌 ...
绛旓細浣嶈繍绠鐨勭粨鏋滐紝or杩欓噷鍋氣滄垨鈥濅綅杩愮畻锛屾瘮濡1 or 2,1鐨勪簩杩涘埗鏄0001,2鐨勪簩杩涘埗鏄0010锛屾墍浠ョ浉鎴栵紝缁撴灉鏄0011灏辨槸3锛屼互姝ょ被鎺ㄣ傛ゼ涓婅鍙橀噺娌¤祴鍒濆鍊硷紝杩欐槸鍦–閲岄潰浼氶亣鍒扮殑鎯呭喌锛VB璇█鐨勬暣鍨嬪彉閲忎細鏈夊垵濮嬪0
绛旓細or鍜宎nd杩愮畻鏄浣嶈繍绠锛屾墍浠ヨ鎶婁粬浠浆鍖栦负浜岃繘鍒舵暟鎵嶈兘鐪熸鐪嬪嚭鍏惰繍绠楄繃绋嬶細12 = 0000000000001100 -7 = 1111111111111001 or杩愮畻鐨勫師鍒欐槸鐩稿悓浣嶅彧瑕佹湁涓涓槸1鍒欑粨鏋滀负1锛屽惁鍒欎负0锛屾墍浠 12 or -7 = 1111111111111101 = -3 and杩愮畻鐨勫師鍒欐槸鐩稿悓浣嶉兘涓1鍒欑粨鏋滀负1锛屽惁鍒欎负0锛屾墍浠 12 and -7 = ...
