VB 中如何將數(shù)值（或是一位數(shù)，或是兩位數(shù)）轉(zhuǎn)換成字符型并在之前補0至千位

Private Sub Command1_Click()

成都創(chuàng)新互聯(lián)公司專注骨干網(wǎng)絡服務器租用十載，服務更有保障！服務器租用，四川電信機房托管 成都服務器租用，成都服務器托管，骨干網(wǎng)絡帶寬，享受低延遲，高速訪問。靈活、實現(xiàn)低成本的共享或公網(wǎng)數(shù)據(jù)中心高速帶寬的專屬高性能服務器。

Dim a As Integer

a = Text1.Text

s = Str(a)

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

Print s

End Sub

也可以直接用Format(s, "0###") 就行，因為FORMAT就是把任何數(shù)據(jù)類型格式化成字符型的

VB中TEXT文本框的位數(shù)一定，輸入位數(shù)不夠，到前面怎么補0

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

vb點虐 字節(jié)數(shù)組補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怎么判斷變量里的字符個數(shù)不夠兩個自動在前面補0

vb判斷變量里的字符個數(shù)不夠兩個自動在前面補0，提供兩種常用的方法;

1、根據(jù)長度判斷;

a = 5 '注意這里a如果定義為數(shù)字類型（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)