Chỉ dùm lỗi trong đoạn code sau

[bebeen]

Private Sub Texbox1_Click()
   On error resume next
   'Em muon dung cong thuc MOD trong truong hop nay sao lai khong duoc?
   'Dau phay phai xu ly ra sao?
   Texbox3.Value=val(MOD(Texbox1.value , Texbox2.Value))
End sub

 

[nghiaphuc]

Private Sub Texbox1_Click()
   On error resume next
   'Em muon dung cong thuc MOD trong truong hop nay sao lai khong duoc?
   'Dau phay phai xu ly ra sao?
   Texbox3.Value=val(MOD(Texbox1.value , Texbox2.Value))
End sub

Bạn sửa câu lệnh

Texbox3.Value=val(MOD(Texbox1.value , Texbox2.Value))

thành câu lệnh:

Texbox3=Val(Texbox1) Mod Val(Texbox2)