Label1(0).Caption = IIf(Check1(0).Value Or Check1(1).Value Or Check1(3).Value Or Check1(4).Value, vbNullString, 1)

Label1(1).Caption = IIf(Check1(0).Value Or Check1(2).Value Or Check1(4).Value Or Check1(5).Value, vbNullString, 2)

Label1(2).Caption = IIf(Check1(0).Value Or Check1(3).Value Or Check1(4).Value Or Check1(5).Value, vbNullString, 3)

Label1(3).Caption = IIf(Check1(1).Value Or Check1(2).Value Or Check1(3).Value Or Check1(5).Value, vbNullString, 4)

Label1(4).Caption = IIf(Check1(1).Value Or Check1(2).Value Or Check1(3).Value Or Check1(4).Value, vbNullString, 5)

有人说先列一个逻辑表！然后用for ---next循环语句
请问如上面的代码如何列一个逻辑表？？？望高手赐教~~充心感谢！

请问这段代码有没有简化一点去编写？如何编写？
有5个Label1控件组，有6个check1控件，意思是在Check1()里随便一个为True时，对应的Label1().Caption为空，否则为对应的最后一个值.
(这里是--那几个Check1()控制某个Label1()的，不是全部)假如有Label1共50个控件组，如果都这样编写的话就太多了，所以想问下大家有没有优化一点的思路方法编写！

有什么办法可以达到这一思想，而可以简化一点的呢？
VB小弟初学，请高手朋友帮忙！