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 . 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