... giam"txtb.Text = kqEnd SubPrivate 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) & ... tăng, giảm của mảng nhậpDim a(100), n, iPrivate Sub cmdexit_Click()EndEnd SubPrivate Sub cmdin_Click()txta.Text = ""For i = 0 To n - 1 txta.Text = txta.Text & Str(a(i))Next...