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

Question

函数过程delData()的功能是在有序（升序）的数组a中删除指定的数y，若指定的数y不存在则给出提示信息，其中y通过InputBox函数输入。Function deldata(b,y%)Dim m%, i%m = UBound(b)deldata = 1For i = 0 To mIf y = b(i) ThenNext iIf i > m Then deldata = 0: Exit FunctionFor j = i + 1 To mNext jm = m - 1ReDim Preserve b(m)End FunctionPrivate 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 ThenPrint "没有找到该数据" & yElseFor i = 0 ToPrint a(i);Next iEnd IfEnd Sub

Answer 1

x>=a[p]p<n 这个条件的意思就是 x大于当前数组元素

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