求帮做一题VB题目

来源：百度知道 编辑：UC知道 时间：2024/05/03 05:12:04
题目为：已知有序数组，其各元素值为6，9，12，16，19，21，现输入一任意数值，如果该数存在数组中，则将其删除，并使删除后的各元素仍旧有序；如果该数不在数组中，则显示“不存在该数。”提示信息。
请帮忙写出代码，谢谢！

Private Sub Command1_Click()
Dim Myarray, temp()
Dim a%, b%, m%, n%, i%, flag As Boolean

Myarray = Array(6, 9, 12, 16, 19, 21)

a = LBound(Myarray)
b = UBound(Myarray)
ReDim temp(a To b)

m = a
n = Val(InputBox("请输入n："))
flag = False

For i = a To b
If n = Myarray(i) Then
flag = True
Else
temp(m) = Myarray(i)
m = m + 1
End If
Next

If flag Then
ReDim Myarray(a To m - 1)
For i = a To m - 1
Myarray(i) = temp(i)
Print Myarray(i);
Next
Else
MsgBox "不存在该数！"
End If
End Sub

Private a, n As Integer

Private Sub Command1_Click()
s = Int(Val(InputBox("")))
Print s
For i = 0 To n
If s = a(i) Then
For j = i To n - 1
a(j) = a(j + 1)
Next j
n = n - 1
Exit Sub
End If
Next i
MsgBox "²»´æ&Ocir