被男同桌扒衣袭胸亲吻:帮忙看下这个程序 哪错了？

来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 14:44:42
Dim i As Integer, j As Integer
Private Sub Form1_Load()
i = o
For j = 0 To 11
Label1(j * 3).ForeColor = RGB(0, 255, 0)
Label1(j * 3).ForeColor = RGB(0, 0, 255)
Label1(j * 3).ForeColor = RGB(255, 0, 0)
Next j
End Sub

Private Sub Timer1_Timer()
If i = 36 Then
i = 0
End If
i = i + 1
For j = 0 To 35
Label1(j).Visible = False
Next j
If i Mod 3 = 2 Then
For j = 0 To 11
Label1(j * 3 + 2).Visible = True
Next j
Else
If i Mod 3 = 1 Then
For j = 0 To 11
Label(j * 3 + 2).Visible = True
Next j
Else
For j = 0 To 11
Label1(j * 3).Visible = True
Next j
End If
End If
End Sub
Label1(j * 3).ForeColor = RGB(0, 255, 0)
Label1(j * 3+1).ForeColor = RGB(0, 0, 255)
Label1(j * 3+2).ForeColor = RGB(255, 0, 0)
我做的这个是用35个label（名字都是★） 拼成一个心形
35个★会呈现出不同颜色并闪动```
是不是还有什么没设置？？？？？

For j = 0 To 11
Label1(j * 3).ForeColor = RGB(0, 255, 0)
Label1(j * 3 + 1).ForeColor = RGB(0, 0, 255)
Label1(j * 3 + 2).ForeColor = RGB(255, 0, 0)
Next j

是不是要这样?

For j = 0 To 11
Label1(j * 3).ForeColor = RGB(0, 255, 0)
Label1(j * 3).ForeColor = RGB(0, 0, 255)
Label1(j * 3).ForeColor = RGB(255, 0, 0)
Next j

这三句，只有最后一句有用啊，你这个什么意思啊

If i Mod 3 = 2 Then
For j = 0 To 11
Label1(j * 3 + 2).Visible = True
Next j
Else
If i Mod 3 = 1 Then
For j = 0 To 11
Label(j * 3 + 2).Visible = True
Next j

上面两个条件的结果相同，分开写干么？

洋

帮忙看下这个程序 哪错了？ 请帮忙看下这个C程序哪里错了? 请大家帮我看下这个程序哪里错了，请帮忙改下 哪位高人帮忙看下这个程序： 哥哥姐姐帮忙看下这个简单的查找程序. 请大虾帮忙看下这个程序的错误 哪位高人帮忙看下这个程序是不是木马？ 大家帮忙看看这个C程序哪错了? 请有C语言基础的兄弟姐妹进来看下这个程序哪地方出错了！ 帮忙看下这个什么鸟