vb.net补零 vbs loop语句缺少do

vb.net 字节数组补0

'写入

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：空间域名、网页空间、营销软件、网站建设、游仙网站维护、网站推广。

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())

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

结果就是：10000000000

五、按位运算符

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

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

2. 表示按位右移，如：101101 2 结果为 001011

vb判断变量里的字符个数不够两个自动在前面补0，提供两种常用的方法;

1、根据长度判断;

a = 5 '注意这里a如果定义为数字类型（Integer、long等），补零后的变量尽量换一个其他变量值，比如b

If Len(a) 2 Then b = "0" a else b=a ‘如果a长度小于2，就前面补零

2、先补零，再取后2位

a=5

b = "0" a

b= Right(b, 2)

分享文章：vb.net补零 vbs loop语句缺少do
分享链接：http://mswzjz.cn/article/doscpjo.html