如何表示偶数？

[wandering_hawk]

Dim i as integer, j As Integer
Private Sub Form_Load()
i = 1
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i = 2 * j Then
Frame2.Visible = False
Frame1.Visible = True
Else
Frame1.Visible = False
Frame2.Visible = True
End If
End Sub


我的目的是让frame1,2交替显示，也就是i为偶数时frame1显示，i为奇数时frame2显示，是不是我表示偶数的方法不对？程序运行后没有预期的目的

[用户 昵称]

if oushu/2=int(oushu/2) then
true
end if

[skoin007]

用MOD函数啊，i除以2取余，为零的话。。。。，else。。。。

[wangweicai]

Dim i as integer, j As Integer
Private Sub Form_Load()
i = 1
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
i = i + 1
If (i mod 2)<>0 Then
Frame2.Visible = False
Frame1.Visible = True
Else
Frame1.Visible = False
Frame2.Visible = True
End If
End Sub

[jinesc]

这样不更好吗？
Private Sub Timer1_Timer()
If Frame2.Visible = True Then
Frame2.Visible = False
Frame1.Visible = True
Else
Frame1.Visible = False
Frame2.Visible = True
End If
End Sub

[LiuHaisky]

Dim i as integer, j As Integer
Private Sub Form_Load()
i = 1
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
i = i + 1
Frame1.Visible = i mod 2
Frame2.Visible = Not Frame1.Visible
End Sub

[Sean918]

判断奇偶数用 mod 运算符

[cupidvenus]

Dim i as integer, j As Integer
Private Sub Form_Load()
i = 1
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
i = (i + 1) mod 2
If i <> 0 Then
Frame1.Visible = True
Else
Frame1.Visible = False
End If
Frame2.Visible = Not Frame1.Visible
End Sub