帮小弟我看看这断程序有么有有关问题

帮我看看这断程序有么有问题
Dim   jbhm(1000)   As   String
                Dim   ii   As   Integer
                For   ii   =   0   To   999   Step   1
                        Select   Case   ii
                                Case   ii   <=   9
                                        jbhm(ii)   =   "00 "   +   Str(ii)
                                Case   ii   >   9   And   ii   <=   99
                                        jbhm(ii)   =   "0 "   +   Str(ii)
                                Case   ii   >   99
                                        jbhm(ii)   =   Str(ii)
                        End   Select
                Next   ii

我是想让   数组jbhm   里存放( "000 ", "001 "..... "999 ")
不知道这样写有错吗,或者大家有更好的办法

------解决方案--------------------
Select Case ii
Case ii <= 9
jbhm(ii) = "00 " + Str(ii)
Case ii > 9 And ii <= 99
jbhm(ii) = "0 " + Str(ii)
Case ii > 99
jbhm(ii) = Str(ii)
End Select

==========>

jbhm(ii) = ii.ToString( "000 ");

------解决方案--------------------
Int32.ToString(string format)

使用指定的格式，将此实例的数值转换为它的等效字符串表示形式。

命名空间:System
程序集:mscorlib（在 mscorlib.dll 中）

语法
Visual Basic（声明）
Public Function ToString ( _
format As String _
) As String

Visual Basic（用法）
Dim instance As Integer
Dim format As String
Dim returnValue As String

returnValue = instance.ToString(format)

C#
public string ToString (
string format
)

C++
public:
String^ ToString (
String^ format
)

J#
public String ToString (
String format
)

JScript
public function ToString (
format : String
) : String



参数
format
格式字符串。


返回值
此实例的值的字符串表示形式，由 format 指定。
备注
如果 format 为空引用（在 Visual Basic 中为 Nothing） 或空字符串 ( " ")，则此实例的返回值使用通用格式说明符 ( "G ") 进行格式化。

此实例的返回值用当前区域性的 NumberFormatInfo 格式化。


楼主要多看看MSDN啊！那里讲得很详细！