陣列加入無窮迴圈

Question

Private Sub Command1_Click()
Dim s

s = Array(\"春\", \"夏\", \"秋\", \"冬\")
i = Val(InputBox(\"輸入1~4\"))
If i < 1 Or i > 4 Then MsgBox \"輸入錯誤\"
Print (\"季節為\") & s(i - 1)

End

怎麼加入無窮迴圈呢??因為老師說他要0以下或4以上的數字輸入以後,不要結束程式只是要跳出視窗,顯示:錯誤是否繼續...哪要怎ㄇ辦呢

Answer 1

Private Sub Command1_Click()   Dim s, chk As Boolean, i As Integer   chk = True   Do While chk      s = Array("春", "夏", "秋", "冬")      i = Val(InputBox("輸入1~4"))      chk = False      If i < 1 Or i > 4 Then         chk = MsgBox("輸入錯誤，是否繼續", vbYesNo) - vbNo      Else         Print "季節為" & s(i - 1)      End If   LoopEnd Sub

Answer 2

Private Sub Command1_Click()    Dim S, I As Integer        S = Array("春", "夏", "秋", "冬")    Do      I = Int(Val(InputBox("輸入1~4")))      If I < 1 Or I > 4 Then         If MsgBox("輸入錯誤,是否繼續輸入?", 4) <> 6 Then Exit Sub      Else         Exit Do      End If    Loop    Print ("季節為") & S(I - 1)End Sub