vb当中使用循环语句在标签内显示文本如何控制换行?

来源：百度知道 编辑：UC知道 时间：2024/06/04 06:13:17
窗体上有一个大标签,一个按钮,我想要得到的效果是这样的:
a0数组元素:01 02 03 04 05 ...
a1数组元素:06 07 08 09 ...
可是运行下面的代码结果却是乱七八糟的,太令人失望了!要实现我想要的效果,代码该怎么写呀?谢谢!
Private Sub Command1_Click()
Dim a0%(), a1%(), x%, y$
y = InputBox("请输入a0数组元素个数", "输入数据", "5")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a0(1 To Val(y))
For x = 1 To UBound(a0)
y = InputBox("请输入a0数组第" & x & "个元素", "输入数据", "1")
If Val(y) = 0 Then Exit Sub
a0(x) = Val(y)
Label1.Caption = "a0数组元素:" & Label1.Caption & " " & Format(Str(a0(x)), "00")
Next
y = InputBox("请输入a1数组元素个数", "输入数据", "4")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a1(1 To Val(y))
For x = 1 To UBound(a1)
y = InputBox("请输入a1数组第" & x & "个元素", "输入数据", "2")
If Val(y) = 0 Then Exit Sub
a1(x) = Val(y)
Label

看看对不？：）

Label1.Caption = ""
Dim a0%(), a1%(), x%, y$
y = InputBox("请输入a0数组元素个数", "输入数据", "5")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a0(1 To Val(y))
Label1.Caption = "a0数组元素:"
For x = 1 To UBound(a0)
y = InputBox("请输入a0数组第" & x & "个元素", "输入数据", "1")
If Val(y) = 0 Then Exit Sub
a0(x) = Val(y)
Label1.Caption = Label1.Caption & " " & Format(Str(a0(x)), "00")
Next
y = InputBox("请输入a1数组元素个数", "输入数据", "4")
If Val(y) = 0 Or Val(y) = 1 Then Exit Sub
ReDim a1(1 To Val(y))
Label1.Caption = Label1.Caption & " " & vbCrLf & " "
Label1.Caption = Label1.Caption & "