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

Kiểm tra tính tăng, giảm của mảng nhập Nhap mang.

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

Nhap mang

- | Text

In mang Boo a- , - Ket qua kiem tra Tu vn xxx va

Ket qua - |Tewt2

Dim a(100), n, 1

Private Sub cmdexit Click()

End

End Sub

Private Sub cmdin Click()

txta.Text = ""

For 1 = 0 Ton- 1

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

Next 1

End Sub

Private Sub cmdkq Click()

tang = 0

giam = 0

kq = "Mang khong tang khong giam"

For 1 = 0 Ton - 2

TẾ a(1) < a(1 + 1) Then tang = tang + 1

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

Next 1

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

If glam = n - 1 Then kg = "Mang giam"

txtb.Text = kq

End Sub

Private Sub cmdnhap Click()

For 1 = 0 Ton - Ì

a(1) TnputBox("Hay nhap A(" & Str(1) & ")", "Nhap mang A")

Next 1 End Sub