對位模式執行數學左移位。
10年積累的成都做網站、網站設計經驗,可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你,你也不認識我。但先制作網站后付款的網站建設流程,更有京口免費網站建設讓你可以放心的選擇與我們合作。
result = pattern amount
各部分說明
result
必選。整型數值。對該位模式進行移位的結果。數據類型與 pattern 的數據類型相同。
pattern
必選。整型數值表達式。要進行移位的位模式。數據類型必須為整型(SByte、Byte、Short、UShort、Integer、UInteger、Long 或 ULong)。
amount
必選。數值表達式。要將該位模式移位的位數。數據類型必須為 Integer 或擴展到 Integer。
備注
數學移位不是循環的,即不會將在結果的一端移出的數位從另一端重新移入。在數學左移位運算中,丟棄移出結果數據類型范圍的數位,而將右端空出的數位位置設置為零。
為防止移位的結果超出它所支持的位數,Visual Basic 使用與 pattern 的數據類型相對應的大小掩碼來屏蔽 amount 的值??墒褂眠@些值的二進制與運算結果作為移位量。大小掩碼如下所示:
pattern數據類型 掩碼(十進制)掩碼(十六進制)
SByte, Byte 7 H00000007
Short, UShort 15 H0000000F
Integer, UInteger 31 H0000001F
Long, ULong 63 H0000003F
如果 amount 為零,則 result 的值與 pattern 的值相同。如果 amount 為負值,則將把它作為無符號的值,并使用相應的大小掩碼進行屏蔽。
數學移位絕不會產生溢出異常。
1左移10位,1后面加10個0
結果就是:10000000000
五、按位運算符
注意不能在VB.Net中直接使用以下二進制數,使用時需轉換為相應的十六或十進制數字。
1. 表示按位左移,空缺處補0。如:101101 2 結果為 110100
2. 表示按位右移,如:101101 2 結果為 001011
窗體是指由兩個列表框(ListBox1、ListBox2)和4個命令按鈕(Button1“”按鈕,Button2“”按鈕,Button3“”按鈕,Button4“”按鈕)所構成的界面,代碼:
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Text = "選項移動"
ListBox1.SelectionMode = SelectionMode.MultiSimple
ListBox2.SelectionMode = SelectionMode.One
For i = 1 To 10
ListBox1.Items.Add(Chr(Asc("a") + i - 1))
Next
For i = 1 To 10
ListBox2.Items.Add(i.ToString)
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedItems Is Nothing Then Exit Sub
Dim b As ListBox.ObjectCollection
For i = 0 To Me.ListBox1.SelectedItems.Count - 1
Me.ListBox2.Items.Add(Me.ListBox1.SelectedItems(0))
Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndices(0))
Next
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If ListBox2.SelectedItems IsNot Nothing Then
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox2.Items.Remove(ListBox2.SelectedItem)
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
For Each itm As Object In ListBox1.Items
ListBox2.Items.Add(itm)
Next
ListBox1.Items.Clear()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
For Each itm As Object In ListBox2.Items
ListBox1.Items.Add(itm)
Next
ListBox2.Items.Clear()
End Sub
End Class
VB中沒有,VB.net是可以用的,表示位模式執行數學右移位的運算符,例如:
Dim a, b As Integer
a = 2
b = a 1
MsgBox(b)
b為1
分享名稱:vb.net右移>> vb上移下移
瀏覽地址:http://vcdvsql.cn/article32/hehspc.html
成都網站建設公司_創新互聯,為您提供服務器托管、微信小程序、定制網站、網站收錄、關鍵詞優化、網站內鏈
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯