這隻程式的問題出在這
: 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