Bài tập lập trình CLC
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (144.73 KB, 11 trang )
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
