1. Trang chủ
  2. » Công Nghệ Thông Tin

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

2 623 0
Tài liệu đã được kiểm tra trùng lặp

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 2
Dung lượng 23,33 KB

Nội dung

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

Ngày đăng: 24/10/2013, 14:20

TỪ KHÓA LIÊN QUAN

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w