vb 删除数组元素
答案:1 悬赏:40
解决时间 2021-02-03 20:24
- 提问者网友：他的思颖
- 2021-02-02 22:01
vb 删除数组元素
最佳答案
- 二级知识专家网友：晨与橙与城
- 2021-02-02 22:49
Private Sub Command1_Click()
Dim n(1 To 100) As Integer
num = InputBox("请输入数组元素个数", "输入框")
Print "原始数组为："
For i = 1 To num
n(i) = i * 5 + 1
Print n(i);
Next
Print
lp:
m = InputBox("请选择要删除元素的位置", "输入框")
num = num - 1
For i = m To num
n(i) = n(i + 1)
Next
Print "删除元素后数组变为："
For i = 1 To num
Print n(i);
Next
Print
If MsgBox("是否继续删除？点击“确定”继续。", 1) = vbOK Then GoTo lp
End Sub
Dim n(1 To 100) As Integer
num = InputBox("请输入数组元素个数", "输入框")
Print "原始数组为："
For i = 1 To num
n(i) = i * 5 + 1
Print n(i);
Next
lp:
m = InputBox("请选择要删除元素的位置", "输入框")
num = num - 1
For i = m To num
n(i) = n(i + 1)
Next
Print "删除元素后数组变为："
For i = 1 To num
Print n(i);
Next
If MsgBox("是否继续删除？点击“确定”继续。", 1) = vbOK Then GoTo lp
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯