我在listbox里显示了一列数组，见附件，现在我想在其后面显示两列其他数组，内容与前面的数组没有关联，不知道用什么函数，那个Format函数可以吗？怎么用呢？

请哪位大神指点一下 啊

你的附件呢？

不知道附件去哪里了，就是我想在listbox 显示三列数组，相当于第一个数组是序号，第二个数组是年龄，第三个数组是工时的那种，里面数字先用任意一个数吧，可以不？

大神们，帮忙啊

听你这情况好像可以 发个示意图看看。
这是我的理解：
*************
*1 XX XX：XX*
*2 XX XX：XX*
*3 XX XX：XX*
*4 XX XX：XX*
.............
*n XX XX：XX*

你是要这效果么？

listbox虽然也支持多列显示，但是单一数据类型，如果将listbox的columns值设为2，当在listbox添加数据大于当前显示行数时，就会从第二列开始显示，你这种情况适合使用MSFlexGrid控件显示你的数据，如果非要用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

这是程序界面：

这是试运行效果：

望采纳！

[ 本帖最后由 tw_love_code 于 2014-5-3 19:41 编辑 ]