我在 listbox 里显示了一列数组,见附件,现在我想在其后面显示两列其他数组,内容与前面的数组没有关联,不知道用什么函数,那个 Format 函数可以吗?怎
我在listbox里显示了一列数组,见附件,现在我想在其后面显示两列其他数组,内容与前面的数组没有关联,不知道用什么函数,那个Format函数可以吗?怎么用呢?
请哪位大神指点一下 啊
Dim a(10) As Integer Dim b(10) As String Private Sub Command1_Click() For j = 0 To 9 Step 1 x = InputBox("请输入年龄", "获取年龄") a(j) = x Next j End Sub Private Sub Command2_Click() For j = 0 To 9 Step 1 y = InputBox("请输入工时", "获取工时") b(j) = y Next j End Sub Private Sub Command3_Click() For i = 0 To 9 Step 1 rec = Format(i + 1, "000") '为了整齐输出 nl = Format(a(i), "000") List1.List(i) = rec & "---" & nl & "---" & b(i) Next i End Sub