[code] Tìm vị trí 1 số trong 1 dãy đã cho

Do
 $n=InputBox("Nhập số phần tử","n=")
Until $n>0 And $n<1001
Dim $a[1000], $j=0
For $i=1 To $n
 $a[$i]=InputBox("Thông báo","a"&$i&"=")
Next
$m=InputBox("Nhập số cần tìm","m=")
For $i=1 To $n
 If $a[$i]==$m Then
  MsgBox(64,"","Số cần tìm có vị trí số "&$i)
  $j=1
 EndIf
Next
If $j=0 Then
 MsgBox(0,"Thông báo","Không có số "&$m&" trong dãy.")
EndIf