vb点虐 格式化补0的简单介绍

VB 中如何将数值（或是一位数，或是两位数）转换成字符型并在之前补0至千位

Private Sub Command1_Click()

成都创新互联公司专注骨干网络服务器租用十载，服务更有保障！服务器租用，四川电信机房托管 成都服务器租用，成都服务器托管，骨干网络带宽，享受低延迟，高速访问。灵活、实现低成本的共享或公网数据中心高速带宽的专属高性能服务器。

Dim a As Integer

a = Text1.Text

s = Str(a)

s = Format(s, "0###")

Print s

End Sub

也可以直接用Format(s, "0###") 就行，因为FORMAT就是把任何数据类型格式化成字符型的

VB中TEXT文本框的位数一定，输入位数不够，到前面怎么补0

text1.text = format(txthuor.text,"000")'其中000为多少位，txthour为文本框的数值

vb点虐 字节数组补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())

Next

vb怎么判断变量里的字符个数不够两个自动在前面补0

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)