bài tập CLC Kiểm tra tính tăng, giảm của mảng nhập
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 (46.89 KB, 2 trang )
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
