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ậpDim a(100), n, iPrivate Sub cmdin_Click()txta.Text = ""For i = 0 To n - 1 txta.Text = txta.Text & Str(a(i))Next iEnd SubPrivate Sub cmdkq_Click()Dim kq, ikq = "Mang doi xung"For i = 0 To n \ 2 If a(i) <> a(n - i - 1) Then kq = "Mang khong doi xung"Next itxtb.Text = kqEnd SubPrivate 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 iEnd Sub Bài 11 Kiểm tra tính tăng, giảm của mảng nhậpDim a(100), n, iPrivate Sub cmdexit_Click()EndEnd SubPrivate Sub cmdin_Click()txta.Text = ""For i = 0 To n - 1 txta.Text = txta.Text & Str(a(i))Next iEnd SubPrivate Sub cmdkq_Click()Dim kq, i, tang, giamtang = 0giam = 0kq = "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 + 1Next iIf tang = n - 1 Then kq = "Mang tang"If giam = n - 1 Then kq = "Mang giam"txtb.Text = kqEnd 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 iEnd SubBài 12 Đếm số từ ‘Pascal’ (không phân biệt chữ thường, chữ in) trong câuPrivate Sub Command1_Click()Text1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Dim s As String * 50Dim is = Text1.Texti = InStr(1, s, "Pascal", 1)Do While i > 0 dem = dem + 1 i = i + 6 i = InStr(i, s, "Pascal", 1)LoopText2.Text = " Trong cau nhap co " & Str(dem) & " tu 'Pascal'"End SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd 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 = TrueEnd SubPrivate Sub Command2_Click()Dim s As String * 50Dim i, tong, dem, kqs = Text1.Textdem = 0tong = 0For 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 IfNext ikq = s & vbCrLf & vbCrLf & "Trong cau co " & Str(dem) & " ky tu la chu so"Text1.Text = kqText2.Text = Str(tong)End SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd SubBài 14 Đếm số lượng chữ thường và chữ hoa trong câu nhập Private Sub Command1_Click()Text1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Dim s As StringDim i, hoa, thuongs = Text1.Texthoa = 0thuong = 0For 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 + 1Next iText2.Text = Str(hoa)Text3.Text = Str(thuong)End SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd SubBài 15Thay 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 = TrueEnd SubPrivate Sub Command2_Click()Dim s As String, is = Text1.Texti = InStr(1, s, "em", 1)If i > 0 ThenDo s = Replace(s, Mid(s, i, 2), "anh", 1) i = InStr(1, s, "em", 1)Loop Until i <= 0Text1.Text = sElseLabel1.Caption = "Khong co bat ky tu 'em' nao trong cau !!"End IfEnd SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd SubBài 16In lại câu đã nhập, mỗi từ trên một dòngPrivate Sub Command1_Click()Text1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Dim s As String, is = Text1.TextText1.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 IfNext iEnd SubPrivate Sub Form_Load()Text1.Enabled = FalseEnd Sub Bài 17Đảo từ trong câu đã nhậpPrivate Sub Command1_Click()Dim s As Strings = " " & Text1.Textj = 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 IfNext iMsgBox "Cau '" & s & "' duoc dao lai la: '" & kq & "'"End SubPrivate Sub Form_Load()Text1.Text = ""End SubBài 18Nhập 5 số nguyên dương. Tính các đại lượng như trên form Dim a(5) As IntegerDim dem As IntegerDim i As IntegerDim us As IntegerDim bs As IntegerDim maxgt As DoubleDim min As IntegerDim max As IntegerPrivate 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 IfEnd FunctionPrivate Sub Command2_Click()txtA.Text = ""For i = 0 To 4txtA.Text = txtA.Text & Str(a(i)) & " " Next iEnd SubPrivate Sub Command3_Click()Dim i As IntegerDim nn = 5txtchia2.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 itxtmax.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 IfNext imaxgt = 1For i = 1 To max maxgt = maxgt * iNext ius = minDo While min Mod us <> 0 Or max Mod us <> 0 us = us - 1Loopbs = (min * max) / ustxtmaxgt.Text = Str(maxgt)txtus.Text = Str(us)txtbs.Text = Str(bs)End Sub Bài 21Thiết kế một máy tính đơn giảnDim so1, so2, kq, ptPrivate Sub cmdAC_Click()mh.Text = ""End SubPrivate Sub cmdchia_Click()so1 = Val(mh.Text)pt = "/"mh.Text = ""End SubPrivate Sub cmdcong_Click()so1 = Val(mh.Text)pt = "+"mh.Text = ""End SubPrivate 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 [...].. .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 &... 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 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 . Bài 10: Kiểm tra tính đối xứng của mảng nhậpDim a(100), n, iPrivate Sub. A(" & Str(i) & ")", "Nhap mang A")Next iEnd Sub Bài 11 Kiểm tra tính tăng, giảm của mảng nhậpDim a(100), n, iPrivate Sub