vb.net 1

1左移10位，1后面加10個(gè)0

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),永興企業(yè)網(wǎng)站建設(shè),永興品牌網(wǎng)站建設(shè),網(wǎng)站定制,永興網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,永興網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

結(jié)果就是：10000000000

五、按位運(yùn)算符

注意不能在VB.Net中直接使用以下二進(jìn)制數(shù)，使用時(shí)需轉(zhuǎn)換為相應(yīng)的十六或十進(jìn)制數(shù)字。

1. 表示按位左移，空缺處補(bǔ)0。如：101101 2 結(jié)果為 110100

2. 表示按位右移，如：101101 2 結(jié)果為 001011

用VB語(yǔ)言怎么把數(shù)字左移？右移？

第一步，先把整形變量數(shù)（有正有負(fù)）轉(zhuǎn)化為2進(jìn)制數(shù)存放在一個(gè)Byte(0 to 1)中

Dim MyB(1) as byte

if N =0 then

Myb(0)= N \ 256 //高位

Myb(1)= N mod 256 //低位

else

tmp=N*(-1)

Myb(0)= tmp \256

Myb(1)= tmp mod 256

Myb(0)= Not(Myb(0) and H80) //將符號(hào)位取反

Myb(1)= Not(Myb(1)) +1

//以上兩行是先求出正數(shù)N的二進(jìn)制表示方法，然后把最高位置1（這樣就是-N的原碼了）

//然后把所有位都取反，末尾+1，這樣就是-N的補(bǔ)碼形式了，在計(jì)算機(jī)中負(fù)數(shù)是補(bǔ)碼來(lái)存放的。

end if

轉(zhuǎn)化好以后就是移位操作了，意味操作代碼如下（假定你要移動(dòng)N位）

For i=1 to N

SaveHi = Myb(0) '保存高位,是為了判斷右移時(shí)是否向低位字節(jié)進(jìn)1

'以下是右移 ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

Myb(0) = Myb(0) \ 2 '右移不會(huì)溢出的

Myb(1)= Myb(1) \ 2

If ((SaveHi And H1) = H1) Then

Myb(1) = Myb(1) Or H80

End If

Next

如果是左移，也是一樣：

For i=1 to N

SaveLo = Myb(1) '保存低位,是為了判斷左移時(shí)是否向高位字節(jié)進(jìn)1

'以下是右移 ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

Myb(0) = (Myb(0) * 2) mod HFF '要取余，不然會(huì)溢出

Myb(1) = (Myb(1) * 2) mod HFF

If ((SaveLo And H80) = H1) Then

Myb(0) = Myb(0) Or H01 '高位進(jìn)一

End If

Next

vb.net2005中符號(hào)“

對(duì)位模式執(zhí)行數(shù)學(xué)左移位。

result = pattern amount

各部分說(shuō)明

result

必選。整型數(shù)值。對(duì)該位模式進(jìn)行移位的結(jié)果。數(shù)據(jù)類型與 pattern 的數(shù)據(jù)類型相同。

pattern

必選。整型數(shù)值表達(dá)式。要進(jìn)行移位的位模式。數(shù)據(jù)類型必須為整型（SByte、Byte、Short、UShort、Integer、UInteger、Long 或 ULong）。

amount

必選。數(shù)值表達(dá)式。要將該位模式移位的位數(shù)。數(shù)據(jù)類型必須為 Integer 或擴(kuò)展到 Integer。

備注

數(shù)學(xué)移位不是循環(huán)的，即不會(huì)將在結(jié)果的一端移出的數(shù)位從另一端重新移入。在數(shù)學(xué)左移位運(yùn)算中，丟棄移出結(jié)果數(shù)據(jù)類型范圍的數(shù)位，而將右端空出的數(shù)位位置設(shè)置為零。

為防止移位的結(jié)果超出它所支持的位數(shù)，Visual Basic 使用與 pattern 的數(shù)據(jù)類型相對(duì)應(yīng)的大小掩碼來(lái)屏蔽 amount 的值。可使用這些值的二進(jìn)制與運(yùn)算結(jié)果作為移位量。大小掩碼如下所示：

pattern數(shù)據(jù)類型 掩碼（十進(jìn)制）掩碼（十六進(jìn)制）

SByte, Byte 7 H00000007

Short, UShort 15 H0000000F

Integer, UInteger 31 H0000001F

Long, ULong 63 H0000003F

如果 amount 為零，則 result 的值與 pattern 的值相同。如果 amount 為負(fù)值，則將把它作為無(wú)符號(hào)的值，并使用相應(yīng)的大小掩碼進(jìn)行屏蔽。

數(shù)學(xué)移位絕不會(huì)產(chǎn)生溢出異常。

當(dāng)前題目：vb.net位左移,vb上移下移
轉(zhuǎn)載來(lái)源：http://chinadenli.net/article8/phegip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App設(shè)計(jì)、ChatGPT、建站公司、軟件開發(fā)、虛擬主機(jī)、域名注冊(cè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)