VB 如何循环输出记录到 label5 label6 label6

Answer 1

窗体上放置一个定时器，3个标签，label1,label2,label3，设置时间间隔1000。双击窗体。复制如下代码，运行。
Private Sub Timer1_Timer() '三个标签数据交换
k = Label1.Caption
Label1.Caption = Label2.Caption
Label2.Caption = Label3.Caption
Label3.Caption = k
End Sub
如果要5，6，7，那就自己把1，2，3改一下。

Answer 2

假如你窗体上有LABEL1,LABEL2,LABEL3，还有一个command1按钮，试试下面代码你就明白了
Private Sub Command1_Click()
Dim I As Integer
For I = 1 To 3
Me.Controls("LABEL" & CStr(I)).Caption = I
Next I
End Sub
其实用控件数组更简单

Answer 3

j=0
for i=0 to 100
if j=0 then
label5.caption=label5.caption & i
j=j+1
elseif j=1
l abel6.caption=l abel6.caption &i
j=j+1 elseif j=2 then
j=0
label7.caption= label7.caption & i
end if
next