... gian có hạn Chính vậy, dù cố gắng chắn nội dung trình bầy đồ án khơng tránh khỏi thiếu sai sót Em mong thầy, thơng cảm dẫn góp ý để giúp em ngày hồn thiện TP Hồ Chí Minh, ngày 30 tháng 07 năm 2011...
... += End If Next ketqua = diem / socauhoi slcau = socauhoi + hienthiketqua.thietlapsocau(slcau) hienthiketqua.thietlapdiem(diem) hienthiketqua.Show() If ketqua > 0.8 Then hienthiketqua.PictureBox1.ImageLocation ... dụng Public Class hienthiketqua Dim ketqua As Integer = Dim diem1 As Integer = Dim soluongcau As Integer = Sub thietlapdiem(ByVal diem As Integer) diem1 = diem End Sub Sub thietlapsocau(ByVal socau ... hienthiketqua.PictureBox1.ImageLocation = "anh/iloveyou.jpg" ElseIf ketqua >= 0.6 Then hienthiketqua.PictureBox1.ImageLocation = "anh/cogang.jpg" Else hienthiketqua.PictureBox1.ImageLocation = "anh/giandoi.jpg"...