189 8069 5689
1左移10位，1后面加10个0
武进网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、APP开发、响应式网站开发等网站项目制作，到程序开发，运营维护。创新互联建站自2013年起到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。
结果就是：10000000000
五、按位运算符
注意不能在VB.Net中直接使用以下二进制数，使用时需转换为相应的十六或十进制数字。
1. 表示按位左移，空缺处补0。如：101101 2 结果为 110100
2. 表示按位右移，如：101101 2 结果为 001011
是数字的话用FORMAT函数，用法：FORMAT(字符串,0的个数)。
举例：字符串为“123”，左边要补3个0，生成6位字符串。
FORMAT("123","000000")。
如果不是数字，则用STRING函数补零，用法：STRING(重复次数，字符)。
例如，字符串为”ABC“，要左补0生成6位字符串。
STRING(6-LEN("ABC"),"0")"ABC"。
vba的优点：
VBA支持调用Windows底层API，关键是，他们与VB几乎一样，这意味着，你使用Google搜索一个需要的函数的时候返回的查询结果可能是几千个而且很多有实例代码，而使用其他语言，其精确的查询结果往往是0。
VBA 一般嵌入在应用软件之中，他们常常与应用软件有很好的接口，你不用单独购买开发工具就可以立即着手开发。因为你会发现他们都有类似宏的概念。
没那么麻烦啦！用Format()函数就可以啦！
Private Sub CmdNumber_Click()
TextNumber= Format(TextNumber, "000000")
TextNumber.Locked=True'锁定文本框
End Sub
减去字符串，很简单
Dim ss1 As String
ss1 = ss1.Replace(ss2, "")
ss1.Replace(ss2, "") 的意思就是，把ss1字符串中的ss2都替换成空字符，得到的结果仍然赋给ss1
至于你那个left，VB.net似乎没有这个函数了，你写那个Left，实际是窗体的位置属性，连编译都无法编译，要取子字符串，用
ss1 = ss1.Substring(0, 1)
参数0表示从第几个字符开始，1表示取多少个字符
到底是加左边还是加右边啊？
加左边的话可以用Format(number, "000000")，得到的数如果不足6位则自动在左边补0。
加右边的话，可以用
While Len(st)6
st=st+"0"
Wend
得到的st就保证6位
'写入
Dim bytes() As Byte = {34, 23, 43, 43, 55, 3}
Dim items = (From item In bytes Select item.ToString("000")).ToArray()
System.IO.File.WriteAllLines("c:\test.txt", items)
'读取
Dim items2 = System.IO.File.ReadAllLines("c:\test.txt")
Dim bytes2 = (From item In items2 Select Byte.Parse(item)).ToArray()
For Each item In bytes2
Console.WriteLine(item.ToString())
Next