... học 14 -Bà Triệu Lập trình Visual Basic 10 A, 14 Bà Triệu, Quy Nhơn. 056-8 214 83 Trang 26 Các đối tượng chính Drive1, Dir1, File1, image1, txtkq Private Sub Drive1_Change() Dir1.Path = Drive1.Drive ... For i = 0 To 11 CmbThang.List(i) = i + 1 Next CmbThang.ListIndex = 0 Trung tâm Tin học 14 -Bà Triệu Lập trình Visual Basic 10 A, 14 Bà Triệu, Quy Nhơn. 056-8 214 83 Trang 1 BÀI 1. CƠ BẢN VỀ ... msc = b * d \ ucln(b, d) Txta1.Text = a * msc \ b txtb1.Text = msc txtc1.Text = c * msc \ d txtd1.Text = msc txte1.Text = (Txta1.Text) + Val(txtc1.Text) txtf1.Text = msc End Sub Mã lệnh...