用VB進(jìn)行移位操作
2019-11-18 17:34:39
供稿：網(wǎng)友
VB沒有提供移位操作的指令和函數(shù),只提供and(與)、or(或)、xor(異或)、eqv(同或)、not(非)等幾個(gè)運(yùn)算符,而編程時(shí)有時(shí)需要對(duì)一個(gè)字節(jié)進(jìn)行移位操作(如進(jìn)行加密),怎么辦?其實(shí)只用and、or二個(gè)運(yùn)算符即可搞掂。例如要將變量byte1的第八位置1(假設(shè)byte1的二進(jìn)制值為01001101),則只需byte1or&h80(即01001101or10000000),如要將第八位置0，則只需byte1and&h7f。請(qǐng)看下面程序段是如何實(shí)現(xiàn)循
環(huán)左移的：
PublicFunctionbyteleft(byte1AsByte,nAsInteger)AsByte`將byte1左移n位
DimintemAsByte`臨時(shí)變量
Dimintem1AsByte`臨時(shí)變量
Dimx,yAsInteger
intem1=byte1
Forx=1Ton`移多少位就循環(huán)多少次
Fory=8To1Step-1`從第八位(左邊第一位)開始循環(huán)左移
SelectCasey
Case8
If(intem1And&H80)=&H80Then`如果臨時(shí)變量intem1的第八位是1,
intem=&H1`則將臨時(shí)變量intem置1,
Else
intem=&H0`反之置0
EndIf
Case7
If(intem1And&H40)=&H40Then`如果臨時(shí)變量intem1的第七位是1,
intem1=intem1Or&H80`則將其第八位置1(其它位不變),
Else
intem1=intem1And&H7F`反之將第八位置0(其它位不變)
EndIf
Case6
If(intem1And&H20)=&H20Then`操作與上面相同
intem1=intem1Or&H40
Else
intem1=intem1And&HBF
EndIf
Case5
If(intem1And&H10)=&H10Then
intem1=intem1Or&H20
Else
intem1=intem1And&HDF
EndIf
Case4
If(intem1And&H8)=&H8Then
intem1=intem1Or&H10
Else
intem1=intem1And&HEF
EndIf
Case3
If(intem1And&H4)=&H4Then
intem1=intem1Or&H8
Else
intem1=intem1And&HF7
EndIf
Case2
If(intem1And&H2)=&H2Then
intem1=intem1Or&H4
Else
intem1=intem1And&HFB
EndIf
Case1
If(intem1And&H1)=&H1Then
intem1=intem1Or&H2
Else
intem1=intem1And&HFD
EndIf
Ifintem=&H1Then`移完第一位后,如果intem是1(即第八位是1)
intem1=intem1Or&H1`則將intem1的第一位置1
Else
intem1=intem1And&HFE`反之置0
EndIf
EndSelect
Nexty
Nextx
byteleft=intem1`將intem1的值返回給函數(shù)名
EndFunction
參照此程序段，不難實(shí)現(xiàn)循環(huán)右移。
(此程序段在VB5上調(diào)試通過。)
->
