[mini]

作者: chung1206

感謝版大，不過這個是我從一本基礎書後面的練習題看的，且這章節他只提到基本物件的使用，只講Private Sub Command1_Click()及Private Sub Text1_Change()這二種觸發程序，隨後就出了一題我詢問的題目，所以我在想是否有更簡單的方法可以做到那樣的結果？謝謝。

Private Sub Command1_Click()

    For i = 0 To 3
        Text1(i).Text = CInt(Text1(i).Text) - 1
    Next
End Sub

Private Sub Text1_Change(Index As Integer)

    If CInt(Text1(Index).Text) < 1 Then Text1(Index).Text = 4
End Sub

覺得這種如果你的Text1沒有再擴充應用的話
可以這樣寫
但如果還有其他擴充應用的話
這樣寫容易使維修不利

個人會比較推薦之前的 數學算式 方式
把他做成一個集中的程式段會比較好

不過說來這是一道題目
本身就有動腦及事件觸發的思維在
所以如何把兩個事件牽連而創作
相信是這個題目的本意所在