Lỗi kì lạ của hàm if?

[chauphucuong]

Kính chào cả nhà!
Tôi viết thử một đoạn mã như sau:

Option Explicit

Private Sub Command1_Click()
Dim d As Long
Dim r As Long
Dim cv As Long
Dim dt As Long
If Text1.Text = Text2.Text Or Text1.Text < Text2.Text Then
d = Text1.Text
r = Text2.Text
Text5.BackColor = vbRed
Text5.Text = "THONG BAO! BAN NHAP SO KHONG HOP LE!"
Else
d = Text1.Text
r = Text2.Text
Text3.BackColor = vbGreen
Text3.Text = (d + r) * 2
Text4.BackColor = vbGreen
Text4.Text = d * r
Text5.BackColor = &HBCFFFF
Text5.Text = ("Chu Vi la: " & " ( " & (d) & " + " & (r) & " ) " & " X " & " 2 " & " = " & (Text4.Text) & " Dien Tich la: " & (d) & " X " & (r) & " = " & (Text5.Text))
End If
Command2.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Text5.Text = ""
Text4.Text = ""
Text3.Text = ""
Text2.Text = ""
Text1.Text = ""
Text5.BackColor = &HBCFFFF
Text4.BackColor = vbWhite
Text3.BackColor = vbWhite
Text2.BackColor = vbWhite
Text1.BackColor = vbWhite
Command1.Enabled = False
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Command2.Enabled = False
End Sub





Private Sub Text1_Change()
If Text1.Text <> "" Then
Command1.Enabled = True
Command2.Enabled = False
End If
End Sub

Private Sub Text2_Change()
If Text2.Text <> "" Then
Command1.Enabled = True
Command2.Enabled = False
End If
End Sub

Private Sub Text3_Change()
If Text3.Text <> "" Then
Command1.Enabled = True
Command2.Enabled = False
End If
End Sub

Private Sub Text4_Change()
If Text2.Text <> "" Then
Command1.Enabled = True
Command2.Enabled = False
End If
End Sub

để thực thi cho form như sau: (có gởi đính kèm)

Nhưng kì lạ là hàm thỏa các điều kiện chỉ trừ trường hợp Chiều dài là 9 và chiều rộng là 12 thì vẫn cho ra kết quả chứ không ra thông báo như đã quy định. Tôi đã bị lỗi gì, xin cả nhà chỉ giúp.

 

[ndu96081631]

..................
..................
Nhưng kì lạ là hàm thỏa các điều kiện chỉ trừ trường hợp Chiều dài là 9 và chiều rộng là 12 thì vẫn cho ra kết quả chứ không ra thông báo như đã quy định. Tôi đã bị lỗi gì, xin cả nhà chỉ giúp.

Sửa thành vầy xem:

Private Sub Command1_Click()
  Dim d As Long
  Dim r As Long
  Dim cv As Long
  Dim dt As Long
  On Error Resume Next
  d = CDbl(Text1.Text)
  r = CDbl(Text2.Text)
  If d <= r Or d * r = 0 Then
    Text5.BackColor = vbRed
    Text5.Text = "THONG BAO!      BAN NHAP SO KHONG HOP LE!"
  Else
    Text3.BackColor = vbGreen
    Text3.Text = (d + r) * 2
    Text4.BackColor = vbGreen
    Text4.Text = d * r
    Text5.BackColor = &HBCFFFF
    Text5.Text = ("Chu Vi la:   " & " ( " & (d) & " + " & (r) & " ) " & " X " & " 2 " & " = " & (Text4.Text) & "                  Dien Tich la:  " & (d) & " X " & (r) & " = " & (Text5.Text))
  End If
  Command2.Enabled = True
  Command1.Enabled = False
End Sub