循环嵌套和选择的结构搞不懂，麻烦大神看看我的代码哪里有错
用Dim声明数组a并用Array赋值（数组元素的个数及每个元素的值自己设定），从键盘上输入一个数据，在数组中进行查找：如果数组中有，则删除数组中的这个元素；如果没有则提示“还没有这个数。你想让它成为第几个数？”，用户输入该数需要插入的位置，并将该数插入到用户指定位置。
Option Base 1
Private Sub Form_Click()
    Dim a()              
    Dim i%, u%, n%, s%
    a = Array(1, 4, 7, 10, 133, 22, 15, 133, 16, 19, 133, 22, 25)  '输入一个数
    u = UBound(a)
    flag = 0
    n = Val(InputBox("请输入要插入的数据"))
    For i = LBound(a) To UBound(a)    '在源数据中查找
        If a(i) = n Then              'If 找到 Then
            flag = i: Exit For
    For i = flag To UBound(a)
        a(i - 1) = a(i)      '删除（后面元素前移）
    Next i
    u = u - 1         '数组元素个数 -1
    ReDim Preserve a(u)
    For i = 1 To u   'Else
        If n <> a(i) Then
            s = Val(InputBox("没有这个数，你想让它成为第几个数"))   '输入希望插入的位置
    Next i
    For i = UBound(a) To s Step -1
        u = u + 1   '数组元素个数 +1
        a(i + 1) = a(i) '后面元素后移
        Next i
        a(s) = n     '输入的数放入空位
    Next i
    For i = 1 To n
        Print a(i);              '输出完整数组
    Next i
End Sub