一段VB程序出错，急！求助！

来源：百度知道 编辑：UC知道 时间：2024/05/16 03:48:45
Sub changcolor(lcnt As Control, color1 As Integer, color2 As Integer, color3 As Integer, color4 As Integer, color5 As Integer, color6 As Integer, color7 As Integer, color8 As Integer)
Dim temp As Integer
temp = Val(lcnt.Tag)
Select Case temp
Case color1
lcnt.Tag = color2
Case color2
lcnt.Tag = color3
Case color3
lcnt.Tag = color4
Case color4
lcnt.Tag = color5
Case color5
lcnt.Tag = color6
Case color6
lcnt.Tag = color7
Case color7
lcnt.Tag = color8
Case color8
lcnt.Tag = color1
End Select
lcnt.ForeColor = QBColor(lcnt.Tag)

End Sub

Private Sub Timer5_Timer()
changcolor Label2, 3, 4, 5, 6, 7, 8, 9
End Sub
运行的时候无法出现变化色彩的文字，显示“参数不可选！"
不知道出了什么问题，求解！

changcolor Label2, 3, 4, 5, 6, 7, 8, 9
具体的逻辑没明白，不知道你为什么把头一个sub定义那么复杂，不过从上面这句话来看，你漏掉了一个参数，所以必定会报错的。