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

bài tập CLC Kiểm tra tính đối xứng của mảng nhập

1 845 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 1
Dung lượng 22,96 KB

Nội dung

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

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