若指定的数y不存在则给出提示信息？

Question

函数过程delData()的功能是在有序（升序）的数组a中删除指定的数y，若指定的数y不存在则给出提示信息，其中y通过InputBox函数输入。
Function deldata(b,y%)
Dim m%, i%
m = UBound(b)
deldata = 1
For i = 0 To m
If y = b(i) Then
Next i
If i > m Then deldata = 0: Exit Function
For j = i + 1 To m

Next j
m = m - 1
ReDim Preserve b(m)
End Function
Private SubCommand1_Click()
Dim a(), i%, y%, result%
a = Array(1, 3, 12, 24, 56, 79, 100, 120)
y = Val(InputBox("请输入一个整数：", "输入"))
n = UBound(a)
result = deldata(a, y)
If result = 0 Then
Print "没有找到该数据" & y
Else
For i = 0 To
Print a(i);
Next i
End If
End Sub

Answer 1

x>=a[p]p<n 这个条件的意思就是 x大于当前数组元素while(){//填空p++; //当p所指的元素满足条件是，指向下一个元素，由后面的i=p-1知，//可以找到最后一个满足这个条件的元素，即要删除的元素。}for(){//填空a[i]=a[i+1];//移动后面的元素}