摘要:
引用:http://zhidao.baidu.com/question/27453999.htmlPrivate Sub Command1_Click()Dim n(1 To 100) As Integernum = InputBox("请输入数组元素个数", "输入框")Print "原始数组为:"For i = 1 To numn(i) = i * 5 + 1Print n(i);NextPrintlp:m = InputBox("请选择要删除元素的位置", "输入框")num = num 阅读全文
posted @ 2011-12-12 15:04
镇水古月
阅读(1055)
评论(0)
推荐(0)
摘要:
ReDim ipData(i, j) As String 阅读全文
posted @ 2011-12-12 15:00
镇水古月
阅读(345)
评论(0)
推荐(0)