請問如果我的Text1，Text2，Text3皆為0到15的陣列
而我想要當我在Text1，Text2填上數字
然後在Text3，15個陣列同時顯現數字，
而不是Text3（0）先出現，在依序接個Text3（1）、Text3（2）....出現
我要如何修改，因為我跑出來得是有bug
而bug給我的訊息是9，陣列索引超出範圍
可是我在表單上是Text1（0）到Text1（15），2，3也都一樣
為什麼會錯誤阿？？
請各位高手幫幫我的忙，謝謝！！
Dim n1(15) As Long
Dim n2(15) As Long
For k = 0 To 15
n1(k) = Val(Text1(k).Text)
n2(k) = Val(Text2(k).Text)
If n1(k) > n2(k) Then x = -1 Else x = 1
For i = n1(k) To n2(k) Step x
Text3(0) = i
For q = 1 To 10000
DoEvents
Next q
Next i
Next k
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.126.20.53