※ 引述《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)