快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net右移>> vb上移下移

vb.net2005中符号“

对位模式执行数学左移位。

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 为负值,则将把它作为无符号的值,并使用相应的大小掩码进行屏蔽。

数学移位绝不会产生溢出异常。

vb.net 1

1左移10位,1后面加10个0

结果就是:10000000000

五、按位运算符

注意不能在VB.Net中直接使用以下二进制数,使用时需转换为相应的十六或十进制数字。

1. 表示按位左移,空缺处补0。如:101101 2 结果为 110100

2. 表示按位右移,如:101101 2 结果为 001011

用vb.net编写项目移动。。。求高人指点。。。。

窗体是指由两个列表框(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

>1 是右移1位的意思吗'>Vb中 符号 >>1 是右移1位的意思吗

VB中没有,VB.net是可以用的,表示位模式执行数学右移位的运算符,例如:

Dim a, b As Integer

a = 2

b = a 1

MsgBox(b)

b为1


网站栏目:vb.net右移>> vb上移下移
文章路径:http://6mz.cn/article/hehspc.html

其他资讯