10 bài tập mẫu lập trình visual basic

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