Bài tập kỹ thuật lập trình docx

Option ExplicitPrivate Sub cmdCAPNHAT_ClickDim GT As String * 5 Dim HOTEN As String * 30 Dim NAMSINH As Integer Dim TUOI As Single Dim NAM As Date 'gán giá tri vào bien HOTEN = txtHOTEN

Bài 1 viết chương trình lời chào hello!!!

Private Sub cmdCHAO_Click()

txtDisplay.Text = "chao ban!!!!!"

Option Explicit

Private Sub cmdCAPNHAT_Click()Dim GT As String * 5

Dim HOTEN As String * 30

Dim NAMSINH As Integer

Dim TUOI As Single

Dim NAM As Date

'gán giá tri vào bien

HOTEN = txtHOTEN

NAMSINH = Val(txtNAMSINH)NAM = Year(Date)

TUOI = NAM - txtNAMSINH

lblCHAO = "Chào" & GT & HOTEN & Chr(13) & "Rất vui được đón" & GT &

"đến với cửa hàng của chúng tôi"

End Sub

Private Sub CmdTHOAT_Click()

End

End Sub

Private Sub CmdTINH_Click()

LblKQ = Text1 & " >" & Chr(Text1)

Private Sub CMDTHOAT_Click()

If MsgBox("Ban That Su Muon Thoat??", 4 + 32, "tb") = 6 Then

Private Sub cmdthoat_Click(Index As Integer)End

T = Format(T, "##,##.00") txt4 = T

Next I

End Sub

Bài 6

Private Sub cmd_thoat_Click()

End

End Sub

Private Sub cmd1_Click()

Dim X, Y, CANH, CANH2 As Single

Private Sub cmd2_Click()

Dim X, Y, CANH As Single

Private Sub Option2_Click(Index As Integer)

Label1 = Time()

End Sub

Bài 9

Option Explicit

Private Sub cmdTINH_Click()

Dim CANH1, CANH2, DT, CV As Single

End Sub

Private Sub cmdtinh_Click()

Dim sothu1, sothu2, tong, hieu, tich, thuong As Single

sothu1 = Val(txtsodau)

sothu2 = Val(txtsosau)

tong = sothu1 + sothu2

hieu = sothu1 - sothu2

tich = sothu1 * sothu2

thuong = sothu1 / sothu2

lblkq = "tong= " & tong & Chr(13) & "hieu= " & hieu & Chr(13) & "tich= " & tich & Chr(13) & "thuong= " & thuong

Private Sub cmdTINH_Click()

Dim soA As Integer

Dim soB As Integer

soA = Val(txtA)

soB = Val(txtB)

'gọi hàm USCLN

lblKQ = "uoc so chung lon nhat = " & USCLN(soA, soB)

Private Sub Command1_Click()

Dim soA As Integer

Dim soB As Integer

soA = Val(txtA)

soB = Val(txtB)

lblKQ = "uoc so chung lon nhat = " & Form1.USCLN(soA, soB)End Sub

Private Sub Command2_Click()

'giải phóng for khỏi bộ nhớ

MsgBox "chua nhap"

txtNAME.SetFocus

Else

lstDS.List(lstDS.ListIndex) = txtNAMEEnd If

If i = 0 And lstDS.ListCount = 0 Then cmdXOA.Enabled = False

txtNAME.Text = ""

Exit Sub

End If

If i = lstDS.ListCount Then i = i - 1 lstDS.Selected(i) = True

Private Sub Timer1_Timer()

lblTRAI = Right(lblTRAI, Len(lblTRAI) - 1) & Left(lblTRAI, 1)

lblTRAI.ForeColor = QBColor(Int(Rnd * 16))

lblPHAI = Right(lblPHAI, 1) & Left(lblPHAI, Len(lblPHAI) - 1)

lblPHAI.ForeColor = QBColor(Int(Rnd * 16))

End Sub

Private Sub HsbColor_Change(Index As Integer)

'Đặt màu tô của shpSample bằng RGB của ba giá trị trong ba thanh cuộn shpSample.FillColor = RGB(HsbColor(0).Value, HsbColor(1).Value,

HsbColor(2).Value)

'Đặt nội dung của TextBox tương ứng bằng giá trị của thanh cuộn

txtColor(Index).Text = Trim(Str(HsbColor(Index)))

End Sub

Private Sub txtColor_Change(Index As Integer)

'Đặt giá trị của thanh cuộn tương ứng bằng giá trị của TextBox tương ứng HsbColor(Index).Value = Val(txtColor(Index).Text)

'Đặt màu tô của shpSample bằng RGB của ba giá trị trong ba thanh cuộn shpSample.FillColor = RGB(HsbColor(0).Value, HsbColor(1).Value,

HsbColor(2).Value)

End Sub

Bài 15 Điều kiện hình vuơng và dãy hình vuơng

Private Sub cmd_cheo_Click()

Dim X, Y, CANH As Single

X = Val(txtX)

Y = Val(txtY)

Picture1.Line (X, Y)-(X + CANH, Y + CANH)

Picture1.Line (X + CANH, Y)-(X, Y + CANH)

End Sub

Private Sub cmd_hinhvuong_Click()

Dim X, Y, CANH As Single

Private Sub cmd_ngoai_Click()

Dim X, Y, CANH As Single

X = Val(txtX)

Y = Val(txtY)

CANH = Val(txtCANH)

Shape1.Left = X

Shape3.Height = Sqr(CANH * CANH + CANH * CANH)

End Sub

Private Sub cmd_noi_Click()

Dim X, Y, CANH As Single

Private Sub cmd_vechung_Click()

Dim X, Y, CANH As Single

Shape3.Height = Sqr(CANH * CANH + CANH * CANH)

Picture1.Line (X, Y)-(X + CANH, Y + CANH)

Picture1.Line (X + CANH, Y)-(X, Y + CANH)

Option Explicit

Private Sub cmdTINH_Click()

Dim CANH1, CANH2, DT, CV As Single

Private Sub cmdko_Click()

'If MsgBox("mày diên a? mày chết là chắc lio6n khakha!!!", 32 + 4, "ngu ne!!") =

6 Then

'End If

lblkq = "may dien a? may chet la cai chac!!! may chet tao cung 500d khkhkhaaaaaaaa!!!"End Sub