Bài tập lập trình CLC

Bài tập lập trình CLC

Bài 10: Kiểm tra tính đối xứng của mảng nhập

Dim a(100), n, i

Private Sub cmdin_Click()

txta.Text = ""

For i = 0 To n - 1

txta.Text = txta.Text & Str(a(i))

Next i

End Sub

Private Sub cmdkq_Click()

Dim kq, i

kq = "Mang doi xung"

For i = 0 To n \ 2

If a(i) <> a(n - i - 1) Then kq = "Mang khong doi xung" Next i

txtb.Text = kq

End Sub

Private Sub cmdnhap_Click()

n = InputBox("Hay nhap gia tri n", "Nhap n")

For i = 0 To n - 1

a(i) = InputBox("Hay nhap A(" & Str(i) & ")", "Nhap mang A")

Next i

End Sub

Bài 11 Kiểm tra tính tăng, giảm của mảng nhập

Dim a(100), n, i

Private Sub cmdexit_Click()

End

End Sub

Private Sub cmdin_Click()

txta.Text = ""

For i = 0 To n - 1

txta.Text = txta.Text & Str(a(i))

Next i

End Sub

Private Sub cmdkq_Click()

Dim kq, i, tang, giam

tang = 0

giam = 0

kq = "Mang khong tang khong giam"

For i = 0 To n - 2

If a(i) < a(i + 1) Then tang = tang + 1

If a(i) > a(i + 1) Then giam = giam + 1 Next i

If tang = n - 1 Then kq = "Mang tang"

If giam = n - 1 Then kq = "Mang giam" txtb.Text = kq

End Sub

Private Sub cmdnhap_Click()

n = InputBox("Hay nhap gia tri n", "Nhap n")

For i = 0 To n - 1

a(i) = InputBox("Hay nhap A(" & Str(i) & ")", "Nhap mang A")

Next i

End Sub

Bài 12 Đếm số từ ‘Pascal’ (không phân biệt chữ thường, chữ in) trong câu

Private Sub Command1_Click()

Text1.Enabled = True

End Sub

Private Sub Command2_Click()

Dim s As String * 50

Dim i

s = Text1.Text

i = InStr(1, s, "Pascal", 1)

Do While i > 0

dem = dem + 1

i = i + 6

i = InStr(i, s, "Pascal", 1)

Loop

Text2.Text = " Trong cau nhap co " & Str(dem) & " tu

'Pascal'"

End Sub

Private Sub Form_Load()

Text1.Enabled = False

End Sub

Bài 13 Đếm số chữ số trong câu nhập và tính tổng giá trị các chữ số đó

Private Sub Command1_Click()

Text1.Enabled = True

End Sub

Private Sub Command2_Click()

Dim s As String * 50

Dim i, tong, dem, kq

s = Text1.Text

dem = 0

tong = 0

For i = 1 To Len(s)

If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then

dem = dem + 1

tong = tong + Val(Mid(s, i, 1))

End If

Next i

kq = s & vbCrLf & vbCrLf & "Trong cau co " & Str(dem) & " ky

tu la chu so"

Text1.Text = kq

Text2.Text = Str(tong)

End Sub

Private Sub Form_Load()

Text1.Enabled = False

End Sub

Bài 14 Đếm số lượng chữ thường và chữ hoa trong câu nhập

Private Sub Command1_Click()

Text1.Enabled = True

End Sub

Private Sub Command2_Click()

Dim s As String

Dim i, hoa, thuong

s = Text1.Text

hoa = 0

thuong = 0

For i = 1 To Len(s)

If Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Then thuong

= thuong + 1

If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "Z" Then hoa = hoa + 1

Next i

Text2.Text = Str(hoa)

Text3.Text = Str(thuong)

End Sub

Private Sub Form_Load()

Text1.Enabled = False

End Sub

Bài 15

Thay thế tất cả các từ “em” trong câu thành “anh” Nếu không

có từ “em” thì báo là không có

Private Sub Command1_Click()

Text1.Enabled = True

End Sub

Private Sub Command2_Click()

Dim s As String, i

s = Text1.Text

i = InStr(1, s, "em", 1)

If i > 0 Then

Do

s = Replace(s, Mid(s, i, 2), "anh", 1)

i = InStr(1, s, "em", 1)

Loop Until i <= 0

Text1.Text = s

Else

Label1.Caption = "Khong co bat ky tu 'em' nao trong cau !!" End If

End Sub

Private Sub Form_Load()

Text1.Enabled = False

End Sub

Bài 16

In lại câu đã nhập, mỗi từ trên một dòng

Private Sub Command1_Click()

Text1.Enabled = True

End Sub

Private Sub Command2_Click()

Dim s As String, i

s = Text1.Text

Text1.Text = ""

For i = 1 To Len(s)

If Mid(s, i, 1) <> " " Then

Text1.Text = Text1.Text & Mid(s, i, 1)

Else

Text1.Text = Text1.Text & vbCrLf

End If

Next i

End Sub

Private Sub Form_Load()

Text1.Enabled = False

End Sub

Bài 17

Đảo từ trong câu đã nhập

Private Sub Command1_Click()

Dim s As String

s = " " & Text1.Text

j = Len(s)

For i = Len(s) To 1 Step -1

If Mid(s, i, 1) = " " Then

kq = kq & Mid(s, i + 1, j - i)

If i <> 1 Then kq = kq & " "

j = i - 1

End If

Next i

MsgBox "Cau '" & s & "' duoc dao lai la: '" & kq & "'" End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

Bài 18

Nhập 5 số nguyên dương Tính các đại lượng như trên form

Dim a(5) As Integer

Dim dem As Integer

Dim i As Integer

Dim us As Integer

Dim bs As Integer

Dim maxgt As Double

Dim min As Integer

Dim max As Integer

Private Function nto(x As Integer) As Boolean dem = 0

For i = 1 To x

If x Mod i = 0 Then dem = dem + 1

Next i

If dem = 2 Then

nto = True

Else

nto = False

End If

End Function

Private Sub Command2_Click()

txtA.Text = ""

For i = 0 To 4

txtA.Text = txtA.Text & Str(a(i)) & " "

Next i

End Sub

Private Sub Command3_Click()

Dim i As Integer

Dim n

n = 5

txtchia2.Text = ""

max = a(0)

min = a(0)

MsgBox Str(min) & " " & Str(max)

For i = 0 To n - 1

If a(i) > 0 And Int(a(i)) = a(i) And a(i) Mod 2 = 0 Then txtchia2.Text = txtchia2.Text & Str(a(i)) & " "

End If

If max < a(i) Then max = a(i)

If min > a(i) Then min = a(i)

MsgBox Str(min) & " " & Str(max)

Next i

txtmax.Text = Str(max)

txtmin.Text = Str(min)

txtnt.Text = ""

For i = min To max

If nto(i) = True Then

txtnt.Text = txtnt.Text & Str(i) & " "

End If

Next i

maxgt = 1

For i = 1 To max

maxgt = maxgt * i

Next i

us = min

Do While min Mod us <> 0 Or max Mod us <> 0

us = us - 1

Loop

bs = (min * max) / us

txtmaxgt.Text = Str(maxgt)

txtus.Text = Str(us)

txtbs.Text = Str(bs)

End Sub

Bài 21

Thiết kế một máy tính đơn giản

Dim so1, so2, kq, pt

Private Sub cmdAC_Click()

mh.Text = ""

End Sub

Private Sub cmdchia_Click() so1 = Val(mh.Text)

pt = "/"

mh.Text = ""

End Sub

Private Sub cmdcong_Click() so1 = Val(mh.Text)

pt = "+"

mh.Text = ""

End Sub

Private Sub cmdenter_Click() so2 = Val(mh.Text)

Select Case pt

Case "+"

kq = so1 + so2

mh.Text = Str(kq)

Case "-"

kq = so1 - so2

mh.Text = Str(kq)

Case "*"

kq = so1 * so2

mh.Text = Str(kq)

Case "/"

If so2 <> 0 Then

kq = so1 / so2

mh.Text = Str(kq)

Else

MsgBox "Khong chia duoc"

mh.Text = ""

End If

End Select

so1 = Val(mh.Text)

End Sub

Private Sub cmdnhan_Click()

so1 = Val(mh.Text)

pt = "*"

mh.Text = ""

End Sub

Private Sub cmdso_Click(Index As Integer) mh.Text = RTrim(mh.Text) & LTrim(Str(Index)) End Sub

Private Sub cmdtru_Click()

so1 = Val(mh.Text)

pt = "-"

mh.Text = ""

End Sub

Private Sub Form_Load()

mh.Text = ""

End Sub