for i = 13 to 72なのにiが73と出てしまいます。 (ID：113646)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

いつもこちらで勉強させてもらっています。
VB6.0で
タイマーコントロール上に

Option Explicit
Private CP As Integer
-------------------------------
Private Sub Timer1_Timer()

Dim R5 As Variant
    Dim R1の5 As String
    Dim i As Integer
    
    For i = 13 To 72
      R5 = Form2.Text1(i).text
      R1の5 = Format(R5, "hh:nn:ss")
    Next
      
    If Time() = R1の5 Then
      If (24 <= i >= 13) Then
        CP = 5
       Else
        If 36 <= i >= 25 Then
          CP = 4
         Else
          If 48 <= i >= 37 Then
            CP = 3
             Else
            If 60 <= i >= 49 Then
              CP = 2
               Else
                 If 72 <= i >= 61 Then
                  CP = 1
                 End If
            End If
          End If
        End If
      End If
    End If
    
    If Time() = R1の5 Then
      Command9_Click
    End If
    
End Sub
このように書いて別フォーム上のテキストボックス（配列にして１３〜７２とつけています）上の時刻（それぞれに"10:8:0"などの時刻が入っています）がきたらCPをそれぞれの条件にあわせて定義してCommand9_Clickへ移動する…といったことをしたいわけなのですが、なぜか実行一時停止してiの値を見てみると７３と出てしまいます。もちろん時間が来てもCommand9_Clickへ移動してくれません。どなたか教えていただけますか。

←解決時は質問者本人がここをチェックしてください。

戻る