vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,要求从键盘输入提示:1.线查找删除的元素,没有则返回2.找到后.则从下一个元素到最后元素依次往前移3.最
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/22 02:49:15
![vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,要求从键盘输入提示:1.线查找删除的元素,没有则返回2.找到后.则从下一个元素到最后元素依次往前移3.最](/uploads/image/z/973611-27-1.jpg?t=vb%E6%95%B0%E7%BB%84%E9%97%AE%E9%A2%98%E5%B7%B2%E7%9F%A5%E6%95%B0%E7%BB%84A%3Darray%287%2C6%2C5%2C1%2C8%2C5%2C3%2C9%2C4%29%E7%BC%96%E5%86%99%E4%B8%80%E7%A8%8B%E5%BA%8F%2C%E5%88%A0%E9%99%A4%E6%95%B0%E7%BB%84%E4%B8%AD%E5%80%BC%E4%B8%BAX%28%E4%BE%8B%E5%A6%82%E4%B8%BA3%29%E7%9A%84%E5%85%83%E7%B4%A0%2C%E8%A6%81%E6%B1%82%E4%BB%8E%E9%94%AE%E7%9B%98%E8%BE%93%E5%85%A5%E6%8F%90%E7%A4%BA%3A1.%E7%BA%BF%E6%9F%A5%E6%89%BE%E5%88%A0%E9%99%A4%E7%9A%84%E5%85%83%E7%B4%A0%2C%E6%B2%A1%E6%9C%89%E5%88%99%E8%BF%94%E5%9B%9E2.%E6%89%BE%E5%88%B0%E5%90%8E.%E5%88%99%E4%BB%8E%E4%B8%8B%E4%B8%80%E4%B8%AA%E5%85%83%E7%B4%A0%E5%88%B0%E6%9C%80%E5%90%8E%E5%85%83%E7%B4%A0%E4%BE%9D%E6%AC%A1%E5%BE%80%E5%89%8D%E7%A7%BB3.%E6%9C%80)
vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,要求从键盘输入提示:1.线查找删除的元素,没有则返回2.找到后.则从下一个元素到最后元素依次往前移3.最
vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,要求从键盘输入
提示:1.线查找删除的元素,没有则返回
2.找到后.则从下一个元素到最后元素依次往前移
3.最后用ReDim Preserve语句讲数组大小减一
vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,要求从键盘输入提示:1.线查找删除的元素,没有则返回2.找到后.则从下一个元素到最后元素依次往前移3.最
Private Sub Command1_Click()
Dim a(), i, n
a = Array(7, 6, 5, 1, 8, 5, 3, 9, 4)
Print Join(a, ",")
n = Val(InputBox("输入一个数:", , 8))
For i = 0 To UBound(a)
If a(i) = n Then Exit For
Next
If i < UBound(a) + 1 Then
For i = i To UBound(a) - 1
a(i) = a(i + 1)
Next
ReDim Preserve a(UBound(a) - 1)
Print Join(a, ",")
Else
Print "未找到:" & n
End If
End Sub