vb点虐数量前加零 vb添加语句

vb 怎么在不足两位前加0

format(i,"00")

创新互联公司-专业网站定制、快速模板网站建设、高性价比上高网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式上高网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖上高地区。费用合理售后完善，十余年实体公司更值得信赖。

当i=3时，返回03

当i=15时，返回15

当i=0时，返回00

'写入

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

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)

到底是加左边还是加右边啊？

加左边的话可以用Format(number, "000000")，得到的数如果不足6位则自动在左边补0。

加右边的话，可以用

While Len(st)6

st=st+"0"

Wend

得到的st就保证6位

分享名称：vb点虐数量前加零 vb添加语句
文章地址：http://cdiso.cn/article/ddiiied.html