摘要: 引用: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)