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 =