推 SmallBeeWayn:看不出明顯的錯誤... 03/24 21:56
→ stormbird:感謝！！我去試試看！！ 03/24 22:01
前面的我刪除了！
如果我的Text1，Text2是陣列，是從0到16個！！
那我每一個都要讓他計算出來顯現在Text3
那我可以改成
Dim n1(17) As Long
Dim n2(17) As Long
For k = 0 To 16
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