主题：[求助]数值转换的 内部函数的问题~

 我项目里有一个数值转换的内部函数！ 代码如下：

Dim Val As String = Args(0)
Dim cs() As String = New String() { "1","2","3","4","5","6","7","8","9"}
Dim ns() As String = New String() {"01","02","03","04","05","06","07","08","09"}
If Args(0) < 10 Then
    For n As Integer = 0 To cs.Length -1
        If cs(n) = Args(0) Then
            Return ns(n)
        End If
    Next
Else
    Return Args(0)
End If

现在遇到一个问题   需要从 cs()  从1到10000

而 ns()   是0001,0002,0003  到 9999这种格式

请问代码该如何修改？？

Dim cs() As String = New String() { "1","2","3","4","5","6","7","8","9"}
Dim ns() As String = New String() {"01","02","03","04","05","06","07","08","09"}

 补0操作不必这样麻烦吧？

参考下：

Dim i As Integer = 98
Dim str As String = format(i, "00000")
msgbox(str)

Dim Val As String = Args(0)
Dim ns() As String = New String() {"01","02","03","04","05","06","07","08","09"}
If ns(Val) isnothing Then
      Return ns(Val)
End If