摘要: 1.动态数组 一直给每一个数组赋值,直到空的停止,最多a(0.1.2) 2.排序 Dim a(9) As LongPrivate Sub Command1_Click() Dim i As Long, j As Long, b As Long For i = 1 To 9 For j = 0 To 阅读全文
posted @ 2018-03-31 18:29 傻贱 阅读(289) 评论(0) 推荐(0) 编辑