Bài tập lập trình CLC

Bài 10: 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