这只程式的问题出在这 : For i = 0 To 4 : For j = 1 To 2 : Dim mno = i * 5 + j : ........................(略) : aeng(mno) = New Label : ........................(略) : Next : Next 以及最後的 : For i = 1 To 10 : aeng(i).text = aeng_25(i) : Next 上面所计算出来的mno，当i=0时mno会是1跟2 当i=1时mno会是6跟7 问题来了，最後这段所用的是i=1 to 10 很明显的aeng这个东西从1到2之後就跳到6到7了 所以碰到i=3时因为他并没有做过使他成为label的动作 因此会出错（你可以把最後的1 to 10改成1 to 2，这样就可以跑） 你可以想一下要怎麽改 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 140.115.36.229