2. CODE L NH C A FORM THỜM

Option Explicit

Dim XD

K IL O B O O K S .C O M

Dim LUU, TG As String

Dim CAUHOI As String

Dim CAUA As String

Dim CAUB As String

Dim CAUC As String

Dim CAUD As String

Dim TRALOI As String * 1

Private Sub cmdluu_Click()

XD = Chr(13) & Chr(10)

Do While Not EOF(2)

Line Input #2, TG

LUU = Trim(LUU) & Trim(TG) & XD

Loop

Close 2

Open App.Path & "/Toan.TXT" For Output As #2

If Option1.Value = True Then

TRALOI = "A"

End If

If Option2.Value = True Then

TRALOI = "B"

If Option3.Value = True Then

TRALOI = "C"

If Option4.Value = True Then

TRALOI = "D"

Print #2, Trim(LUU) & Trim(XD) & Trim(Text1.Text) & Trim(XD) & Trim("A." &

Trim(Text2.Text)) & XD & Trim("B." & Trim(Text3.Text)) & XD & Trim("C." &

Trim(Text4.Text)) & XD & Trim("D." & Trim(Text5.Text)) & Trim(XD) &

Trim(TRALOI) & Trim(XD)

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.SetFocus

End Sub

Private Sub cmdthoat_Click()

XD = Chr(13) & Chr(10)

Open App.Path & "/Toan.TXT" For Input As #2

If Trim(TG) <> "" Then

LUU = Trim(LUU) & Trim(TG) & XD

End If

Print #2, LUU

Frmtoan.Show

Unload Me

Private Sub Form_Load()

Private Sub Form_Unload(Cancel As Integer)

Close