摘要: Dim A() As StringPrivate Sub Command1_Click()A() = Split(Text1.Text, "-", -1, vbTextCompare)'以“-”将字符串分割后存到一个以下标为0开始的数组里Dim i As IntegerFor i = 0 To UB 阅读全文
posted @ 2020-10-23 13:53 它的眼角开过光 阅读(844) 评论(0) 推荐(0) 编辑
摘要: Dim A() As StringPrivate Sub Command1_Click()A() = Split(Text1.Text, "-", -1, vbTextCompare)'以“-”将字符串分割后存到一个以下标为0开始的数组里Dim i As IntegerFor i = 0 To UB 阅读全文
posted @ 2020-10-23 13:51 它的眼角开过光 阅读(317) 评论(0) 推荐(0) 编辑