UC知道VB一个简单的流水灯程序
来源：百度知道 编辑：UC知道 时间：2024/05/22 14:38:11
Private Sub Form_Load()
I = 0
For j = 0 To 9
Label1(j * 3).ForeColor = &HFF& '红色
Label1(j * 3 + 1).ForeColor = &HFF00& '绿色
Label1(j * 3 + 2).ForeColor = &HFFFF& '黄色
Next j
End Sub
6、双击TIMER1，编写TIMER1的Timer过程如下：
Private Sub Timer1_Timer()
If I = 30 Then
I = 0
End If
I = I + 1
For J = 0 To 29
Label1(J).Visible = False
Next J
If I Mod 3 = 2 Then
For J = 0 To 9
Label1(J * 3 + 1).Visible = True
Next J
Else
If I Mod 3 = 0 Then
For J = 0 To 9
Label1(J * 3 + 2).Visible = True
Next J
Else
For J = 0 To 9
Label1(J * 3).Visible = True
Next J
End If
End If
End Sub
.....................
他这段代码里的
Label1(j * 3).ForeColor = &
I = 0
For j = 0 To 9
Label1(j * 3).ForeColor = &HFF& '红色
Label1(j * 3 + 1).ForeColor = &HFF00& '绿色
Label1(j * 3 + 2).ForeColor = &HFFFF& '黄色
Next j
End Sub
6、双击TIMER1，编写TIMER1的Timer过程如下：
Private Sub Timer1_Timer()
If I = 30 Then
I = 0
End If
I = I + 1
For J = 0 To 29
Label1(J).Visible = False
Next J
If I Mod 3 = 2 Then
For J = 0 To 9
Label1(J * 3 + 1).Visible = True
Next J
Else
If I Mod 3 = 0 Then
For J = 0 To 9
Label1(J * 3 + 2).Visible = True
Next J
Else
For J = 0 To 9
Label1(J * 3).Visible = True
Next J
End If
End If
End Sub
.....................
他这段代码里的
Label1(j * 3).ForeColor = &
label1应该是个标签控件组 当J=1时 label1（j*3）=label1（3）就是控件组中的第三个 根据你的代码就是 当J=1 label1（3）的前景色为红色
label1（7）前景色为绿色 label1（11）前景色为黄色 晕 哪找这么控件的？！~！
vb2005 里面颜色设置不一样么 他有两种表示方法啊 可以写RED也可以用十六进制表示吧
那个next j 是真对for 循环的 有for j
就有next j