vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,要求从键盘输入提示:1.线查找删除的元素,没有则返回2.找到后.则从下一个元素到最后元素依次往前移3.最
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/23 22:10:10
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