CÁC CODE TRONG PHẦN BÀI THI THỰC HÀNH Bài 1: Private Sub cmdTinh_Click() If Not IsNumeric(txtDai.Text) Then MsgBox "Nhap chieu dai!" txtDai.SetFocus ElseIf Not IsNumeric(txtRong.Text) Then MsgBox "Nhap chieu rong!" txtRong.SetFocus ElseIf Not IsNumeric(txtCao.Text) Then MsgBox "Nhap chieu cao!" txtCao.SetFocus Else txtThetich.Text = Val(txtDai.Text) * Val(txtRong.Text) * Val(txtCao.Text) End If End Sub Bài 2: Private Sub cmdTinh_Click() Const pi = 3.14159 Dim r As Single Dim dt As Single If Not IsNumeric(txtDai.Text) Then MsgBox "Nhap chieu dai!" txtDai.SetFocus ElseIf Not IsNumeric(txtChuvi.Text) Then MsgBox "Nhap chu vi!" txtChuvi.SetFocus Else r = Val(txtChuvi.Text) / (2 * pi) dt = pi * r * r txtThetich.Text = dt * Val(Me.txtDai.Text) End If End Sub Bài 3: Private Sub cmdGiai_Click() Dim delta As Single Dim a As Single Dim b As Single Dim c As Single If Val(Me.txtHSa.Text) = 0 Then MsgBox "He so a khong dung!" 1 txtHSa.SetFocus ElseIf Not IsNumeric(txtHSa.Text) Then MsgBox "Nhap he so b!" txtHSb.SetFocus ElseIf Not IsNumeric(txtHSc.Text) Then MsgBox "Nhap he so c!" txtHSc.SetFocus Else LstKetqua.Clear a = Val(txtHSa.Text) b = Val(txtHSb.Text) c = Val(txtHSc.Text) delta = b * b - 4 * a * b * c If delta < 0 Then LstKetqua.AddItem ("VO NGHIEM") ElseIf delta = 0 Then LstKetqua.AddItem ("x1=x2=" & CStr(-b / (2 * a))) Else LstKetqua.AddItem ("x1=" & CStr((-b - Sqr(delta)) / (2 * a))) LstKetqua.AddItem ("x2=" & CStr((-b + Sqr(delta)) / (2 * a))) End If End If End Sub Bài 4: Private Sub Cmdoqua_Click() If MsgBox("Dong y thoat?", vbYesNo + vbQuestion, "Hoi!") = vbYes Then End End Sub Public Function SapXiep(ByVal blTang As Boolean, ByVal strNhap As String) As String Dim i, j As Integer Dim temp As Long Dim StrTemp As String Dim m m = Split(Trim(strNhap), " ") If blTang Then For i = 0 To UBound(m) - 1 For j = 0 To UBound(m) - i - 1 If Val(Trim(m(j))) > Val(Trim(m(j + 1))) Then temp = Val(Trim(m(j))) m(j) = Val(Trim(m(j + 1))) 2 m(j + 1) = temp End If Next j Next i Else For i = 0 To UBound(m) - 1 For j = 0 To UBound(m) - i - 1 If Val(Trim(m(j))) < Val(Trim(m(j + 1))) Then temp = Val(Trim(m(j))) m(j) = Val(Trim(m(j + 1))) m(j + 1) = temp End If Next j Next i End If For i = 0 To UBound(m) StrTemp = StrTemp & m(i) & " " Next i SapXiep = StrTemp End Function Private Sub cmdSapso_Click() If Trim(Me.TxtSoNhap.Text) = "" Then MsgBox "Nhap day so can sap xiep" Me.TxtSoNhap.SetFocus Exit Sub End If If Me.OptTang.Value Then Me.TxtXuat.Text = SapXiep(True, Me.TxtSoNhap.Text) Else Me.TxtXuat.Text = SapXiep(False, Me.TxtSoNhap.Text) End If End Sub Private Sub Form_Load() Me.lblNgay.Caption = Now End Sub Private Sub TmrThoiGian_Timer() Me.lblNgay.Caption = Now End Sub Private Sub TxtSoNhap_GotFocus() Me.TxtSoNhap.SelStart = 0 3 Me.TxtSoNhap.SelLength = Len(Me.TxtSoNhap.Text) End Sub Bài 6: Option Explicit Dim so1 As Single Dim pt As String Private Sub cmd0_Click() txtKetqua.Text = txtKetqua.Text & "0" End Sub Private Sub cmd1_Click() txtKetqua.Text = txtKetqua.Text & "1" End Sub Private Sub cmd2_Click() txtKetqua.Text = txtKetqua.Text & "2" End Sub Private Sub cmd3_Click() txtKetqua.Text = txtKetqua.Text & "3" End Sub Private Sub cmd4_Click() txtKetqua.Text = txtKetqua.Text & "4" End Sub Private Sub cmd5_Click() txtKetqua.Text = txtKetqua.Text & "5" End Sub Private Sub cmd6_Click() txtKetqua.Text = txtKetqua.Text & "6" End Sub Private Sub cmd7_Click() txtKetqua.Text = txtKetqua.Text & "7" End Sub Private Sub cmd8_Click() txtKetqua.Text = txtKetqua.Text & "8" End Sub Private Sub cmd9_Click() txtKetqua.Text = txtKetqua.Text & "9" End Sub 4 Private Sub cmdBang_Click() Select Case pt Case "CONG" txtKetqua = Val(so1) + Val(txtKetqua.Text) Case "TRU" txtKetqua = Val(so1) - Val(txtKetqua.Text) Case "NHAN" txtKetqua = Val(so1) * Val(txtKetqua.Text) Case "CHIA" txtKetqua = Val(so1) / Val(txtKetqua.Text) Case "MOD" txtKetqua = Val(so1) Mod Val(txtKetqua.Text) End Select End Sub Private Sub cmdC_Click() txtKetqua.Text = 0 End Sub Private Sub cmdCE_Click() so1 = "" txtKetqua.Text = "" End Sub Private Sub cmdChia_Click() pt = "CHIA" so1 = txtKetqua.Text txtKetqua.Text = "" End Sub Private Sub cmdCong_Click() pt = "CONG" so1 = txtKetqua.Text txtKetqua.Text = "" End Sub Private Sub cmdMCong_Click() txtKetqua.SelText = Clipboard.GetText(1) End Sub Private Sub cmdMod_Click() pt = "MOD" so1 = txtKetqua.Text txtKetqua.Text = "" End Sub 5 Private Sub cmdMR_Click() Clipboard.SetText (txtKetqua) End Sub Private Sub cmdNhan_Click() pt = "NHAN" so1 = txtKetqua.Text txtKetqua.Text = "" End Sub Private Sub cmdTru_Click() pt = "TRU" so1 = txtKetqua.Text txtKetqua.Text = "" End Sub Bài tập cập nhật môn học Private Sub cmdinnganh_Click() DataReport2.Show End Sub Private Sub cmdkoluu_Click() Me.Adodc1.Recordset.CancelUpdate Call AnLuu End Sub Private Sub cmdLuu_Click() If txtmamon.Text = "" Then MsgBox "Nhap ma mon hoc!" txtmamon.SetFocus ElseIf txttenmon.Text = "" Then MsgBox "Nhap ten mon!" txttenmon.SetFocus ElseIf txtsotiet.Text = "" Then MsgBox "Nhap so tiet!" txtsotiet.SetFocus ElseIf Not IsNumeric(txtsotiet.Text) Then MsgBox "Nhap so tiet!" txtsotiet.SetFocus Else Me.Adodc1.Recordset.Update End If Call AnLuu End Sub 6 Private Sub cmdThem_Click() Me.Adodc1.Recordset.AddNew txtmamon.SetFocus Call HienLuu End Sub Private Sub cmdXoa_Click() Dim tl As Integer tl = MsgBox("Ban co dong y xoa khong?", vbYesNo, "Hoi") If tl = vbYes Then Me.Adodc1.Recordset.Delete Me.Adodc1.Recordset.Update Me.Adodc1.Recordset.MoveFirst End If Call HienLuu End Sub Public Sub HienLuu() cmdkoluu.Enabled = True cmdLuu.Enabled = True cmdThem.Enabled = False cmdXoa.Enabled = False End Sub Public Sub AnLuu() cmdkoluu.Enabled = False cmdLuu.Enabled = False cmdThem.Enabled = True cmdXoa.Enabled = True End Sub Private Sub CmdDau_Click() Adodc1.Recordset.MoveFirst End Sub Private Sub CmdLui_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst MsgBox "Da den dau roi!" End If End Sub Private Sub CmdToi_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox "Da den cuoi roi!" 7 End If End Sub Private Sub CmdCuoi_Click() Adodc1.Recordset.MoveLast End Sub Private Sub mnuPrint_Click() DataReport1.Show End Sub Bài tập làm thêm (Bài 1): Private Sub CmdThem_Click() Me.Adodc1.Recordset.AddNew txtmanv.SetFocus Call HienLuu End Sub Private Sub CmdXoa_Click() Dim tl As Integer tl = MsgBox("Ban co dong y xoa khong?", vbYesNo, "Hoi") If tl = vbYes Then Me.Adodc1.Recordset.Delete Me.Adodc1.Recordset.Update Me.Adodc1.Recordset.MoveFirst End If Call HienLuu End Sub Private Sub CmdLuu_Click() If txtmanv.Text = "" Then MsgBox "Nhap ma nhan vien!" txtmanv.SetFocus ElseIf txthoten.Text = "" Then MsgBox "Nhap ho va ten!" txthoten.SetFocus ElseIf txtGT.Text = "" Then MsgBox "Nhap gioi tinh!" txtGT.SetFocus ElseIf txtngaysinh.Text = "" Then MsgBox "Nhap ngay sinh!" txtngaysinh.SetFocus ElseIf txtNgaylv.Text = "" Then MsgBox "Nhap ngay lam viec!" 8 txtNgaylv.SetFocus ElseIf txthsluong.Text = "" Then MsgBox "Nhap he so luong!" txthsluong.SetFocus Else Me.Adodc1.Recordset.Update End If Call AnLuu End Sub Public Sub HienLuu() CmdLuu.Enabled = True CmdKoluu.Enabled = True CmdSua.Enabled = False CmdThem.Enabled = False CmdXoa.Enabled = False End Sub Public Sub AnLuu() CmdLuu.Enabled = False CmdKoluu.Enabled = False CmdSua.Enabled = True CmdThem.Enabled = True CmdXoa.Enabled = True End Sub Private Sub CmdKoluu_Click() Me.Adodc1.Recordset.CancelUpdate Call AnLuu End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdIn_Click() DataReport1.Show End Sub 9 . = Val(txtHSb.Text) c = Val(txtHSc.Text) delta = b * b - 4 * a * b * c If delta < 0 Then LstKetqua.AddItem ("VO NGHIEM") ElseIf delta = 0 Then LstKetqua.AddItem ("x1=x2=". LstKetqua.AddItem ("x1=" & CStr((-b - Sqr(delta)) / (2 * a))) LstKetqua.AddItem ("x2=" & CStr((-b + Sqr(delta)) / (2 * a))) End If End If End Sub Bài 4: Private Sub. SapXiep(ByVal blTang As Boolean, ByVal strNhap As String) As String Dim i, j As Integer Dim temp As Long Dim StrTemp As String Dim m m = Split(Trim(strNhap), " ") If blTang Then For