bài tập CLC Kiểm tra tính đối xứng của mảng nhập
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (56.91 KB, 1 trang )
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
