vb 10进制转16进制显示时，不足两位的怎么在前面加0，大于两位的带空格

Function Dec2Hex(x As Long) As String

    '此函数的作用是把整数转换为16进制数，并以你指定的样式显示

    '用法示例： MsgBox Dec2Hex(498)

    Dim t As String, i As Integer

    t = Hex(x)

    If Len(t) Mod 2 = 1 Then t = "0" & t

    For i = 1 To Len(t) Step 2

        If Dec2Hex <> "" Then Dec2Hex = Dec2Hex & " "

        Dec2Hex = Dec2Hex & Mid(t, i, 2)

    Next

End Function

padleft和padright，比如

string aa = "wu"

string bb = aa.PadLeft(6)//右对齐此实例中的字符，在左边用空格填充以达到指定的总长度.

string cc = aa.PadLeft(6, '0')//右对齐此实例中的字符，在左边用指定的 Unicode 字符填充以达到指定的总长度。

Response.Write("长度："+bb.Length.ToString()+"</br>"+cc)

---