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