※ 引述《stormbird (單眼皮)》之銘言： : 我想寫一個在Text.text裡面連續出現數字的一個東西 : 例如：我在Text1.text＝48，Text2.text＝51 : 而我要在Text3.text依序出現49，50，51 你是故意要略過48還是少寫了？ 我這裡暫時當你少寫了, 如果要略過起始值，判斷會多一些... : 如果Text1.text＝48，Text2.text＝48 : 則Text3.text＝48 : 我有先寫出來，但是出現的都不是我想要 : 我這樣寫不知是否正確 : 請各位給我一點指教，指點指點我，謝謝 : Dim n1 As Integer : Dim n2 As Integer 其實宣告成Long比較好，現在的電腦都是32bit以上 不過這只是效率問題，不影響結果 : n1 = Val(Text1(0).Text) : n2 = Val(Text2(0).Text) 如果你不是Text陣列的話，用Text1.Text ; Text2.Text就好了... 另外, Text的預設屬性是Text, 因此只要用Text1 ; Text2就行了 : If n1 > n2 Then : For i = n1 To n2 Step -1 : Text3(0).Text = "" : Text3(0).Text = i 不需要先清除在填入新的資料，直接填入即可 : Next i : ElseIf n1 < n2 Then : For i = n1 To n2 Step 1 For預設就是Step 1, 不用特別寫 : Text3(0).Text = "" : Text3(0).Text = i : Next i : i = n1 = n2 VB6不允許這樣寫，你得拆兩行 而且你這裡結構怪怪的... : Text3(0).Text = "" : Text3(0).Text = i : End If 首先, 你在迴圈中不斷的清除Text3的內容，但是卻沒有等待動作 因此實際跑的時候你完全看不到數字在跳... 第二, 你沒有考慮到n1=n2的狀況 另外我不清楚你的「依序出現」到底是怎麼樣 基本上，你程式應該至少改成這樣 If n1 > n2 Then For i = n1 To n2 Step -1 Text3 = i Next i Else 'n1 <= n2 For i = n1 To n2 Text3 = i Next i End If 但是比較好的寫法是 If n1 > n2 Then x = -1 Else x = 1 For i = n1 To n2 Step x Text3 = i Next i 這樣寫的好處是防止未來修訂時要同步修改兩組敘述的麻煩 至於如果要耍專業也可以寫成這樣 For i = n1 To n2 Step Choose((n1 > n2) + 2, -1, 1) Text3 = i Next i 第一行的敘述是這樣的意思： n1 > n2 為 True 時, 在VB6被定義為數字-1 False 0 所以(n1 > n2) + 2 在True時為1=>輸出-1, False時為2=>輸出1 或者你也可以玩數學遊戲 For i = n1 To n2 Step (n1 > n2) * 2 + 1 Text3 = i Next i 稍微想一下就知道 0*2+1=1, -1*2+1=-1 不過這兩種方法都算是撇步，可讀性很差 建議還是用If ... Then x = ??? 的方式 ============ 上面是程式碼本身最佳化的部份，接著，在實務上 就算Text3有更新內容，也太快了你會看不到數字 最基本的，就是在迴圈內加上延遲，如 For ... Text3 = i For q = 1 To 10000 '迴圈多長依據打算延遲多久而定 Doevents Next q Next -- 填充題: ______なのはいけないと思います！ --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.115.204.46 ※ 編輯: SmallBeeWayn 來自: 140.115.204.46 (03/24 20:45)