[已解决]VBA有一个数组A,含有数值2,3,6,8,9,12,14,19，删除一个数

vbyou127 · 发表于 2016-3-1 10:12

VBA有一个数组A,含有数值2,3,6,8,9,12,14,19，删除一个数

1,假设数组从1开始,

2,把原来数组元素输出

3,可选择数组位置删除一个数

4,把删除一个数后的数组元素输出

最佳答案

月排行榜 / 总排行榜

lichuanboy44

2016-3-1 11:25

Sub tt()
On Error Resume Next
Dim br
ar = Array(2, 3, 6, 8, 9, 12, 14, 19)
p = InputBox("请输入删除数组元素位置")
If p > UBound(ar) Then
MsgBox "错误：输入的位置大于元素个数，无法删除"
Exit Sub
End If
k = 1: ReDim br(1 To k)
For i = 1 To UBound(ar)
If i <> --p Then
ReDim Preserve br(1 To k)
br(k) = ar(i - 1)
k = k + 1
End If
Next
MsgBox "原数组：" & Join(ar, ",") & vbCrLf & vbCrLf & "删除后数组：" & Join(br, ",")
End Sub

复制代码

跳转到最佳答案楼层

lichuanboy44 · 发表于 2016-3-1 11:25

这个最佳答案由 lichuanboy44 给出，感谢 lichuanboy44 的回答。

单击隐藏图章

Sub tt()
On Error Resume Next
Dim br
ar = Array(2, 3, 6, 8, 9, 12, 14, 19)
p = InputBox("请输入删除数组元素位置")
If p > UBound(ar) Then
MsgBox "错误：输入的位置大于元素个数，无法删除"
Exit Sub
End If
k = 1: ReDim br(1 To k)
For i = 1 To UBound(ar)
If i <> --p Then
ReDim Preserve br(1 To k)
br(k) = ar(i - 1)
k = k + 1
End If
Next
MsgBox "原数组：" & Join(ar, ",") & vbCrLf & vbCrLf & "删除后数组：" & Join(br, ",")
End Sub

复制代码

vbyou127 · 发表于 2016-3-1 14:16

Option Base 1
Private Sub Command1_Click()
  Dim a
  a = Array(2, 3, 6, 8, 9, 12, 14, 19)
  s = "原来的数组：" & vbCrLf
  For i = 1 To UBound(a)
s = s & a(i) & " "
  Next i
  MsgBox s
  n = CInt(InputBox("请输入要删除第几个数？"))
  For i = n To UBound(a) - 1
a(i) = a(i + 1)
  Next i
  s = "删除后的数组；" & vbCrLf
  For i = 1 To UBound(a) - 1
s = s & a(i) & " "
  Next i
  MsgBox s
End Sub

Private Sub Command2_Click()
  Dim a
  a = Array(2, 3, 6, 8, 9, 12, 14, 19)
  Print "原来的数组："
  For i = 1 To UBound(a)
Print a(i);
  Next i
  Print: Print
  n = CInt(InputBox("请输入要删除第几个数？"))
  Print "要删除第" & n & "个数:" & a(n)
  For i = n To UBound(a) - 1
a(i) = a(i + 1)
  Next i
  Print "删除后的数组："
  For i = 1 To UBound(a) - 1
Print a(i);
  Next i
  Print
End Sub

		自动登录	找回密码
密码			注册

[已解决]VBA有一个数组A,含有数值2,3,6,8,9,12,14,19，删除一个数

相关帖子

评分