13518219792
有的。
10年积累的成都网站建设、成都做网站经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先建设网站后付款的网站建设流程，更有新化免费网站建设让你可以放心的选择与我们合作。
Dim i As Int32
i = 24244
Dim s As String
s = Convert.ToString(i, 2)
's就是二进制字符串了。
value And H2 取第二位状态（按二进制，0或1）
x \ H2 \ 是整除，整除2，意味着将刚才取到的第二位右移一位
1、以左移为例：
if ((x 1000 0000) == 0)
移出0;
else
移出1;
操作 x1;
2、左移右移的操作方法：
1）C语言的左移和右移是以二进制数据为基准的
2）左移和右移的符号：左移的符号""；右移的符号""
3）无论左移还是右移，要移位的数据都在左边，符号右边是要移动的位数(例如移动3位)
4）右移是把该数据的二进制数全部右移N位，数据高位补零，左移则和右移相反。
5）右移举例--例如将5右移一位：5 1(符号左边是被移位的数据，符号右边是要移位的位数)
将5转换为二进制为0B00000101 ，右移后的结果是：0B00000010
1左移10位，1后面加10个0
结果就是：10000000000
五、按位运算符
注意不能在VB.Net中直接使用以下二进制数，使用时需转换为相应的十六或十进制数字。
1. 表示按位左移，空缺处补0。如：101101 2 结果为 110100
2. 表示按位右移，如：101101 2 结果为 001011
见下面代码，放置定时器，按钮，标签各一个
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '定时器
If Label1.Right Me.Width Then
Label1.Left += 10'移动距离
Else
Label1.Left = 0
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '开启或者关闭定时器
Timer1.Interval = 1000 '1秒
If Timer1.Enabled = False Then
Timer1.Start() '开定时器
Else
Timer1.Stop() '关定时器
End If
End Sub
End Class
就像十进制右移一个小数点值乘10， 左移一个小数点除以10.
类似的， 二进制右移一个小数点值乘2，也就是扩大一倍。
左移一个小数点值除以2， 变成原本一半。
