Re: [VB6 ] 連續循環數的出現

看板Visual_Basic作者 (單眼皮)時間17年前 (2007/03/24 21:50), 編輯推噓1(1推 0噓 1→)
留言2則, 2人參與, 最新討論串4/5 (看更多)
前面的我刪除了！ 如果我的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
推
03/24 21:56, , 1F
看不出明顯的錯誤...
03/24 21:56, 1F
→
03/24 22:01, , 2F
感謝！！我去試試看！！
03/24 22:01, 2F
‣ 更多 stormbird 的文章
文章代碼(AID): #161IoLQc (Visual_Basic)
‣ 更多 stormbird 的文章
文章代碼(AID): #161IoLQc (Visual_Basic)