大家好，欢迎来到IT知识分享网。
引用：http://zhidao.baidu.com/question/27453999.html
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
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://yundeesoft.com/27397.html
