摘要:
Dim A() As StringPrivate Sub Command1_Click()A() = Split(Text1.Text, "-", -1, vbTextCompare)'以“-”将字符串分割后存到一个以下标为0开始的数组里Dim i As IntegerFor i = 0 To UB 阅读全文
摘要:
Dim A() As StringPrivate Sub Command1_Click()A() = Split(Text1.Text, "-", -1, vbTextCompare)'以“-”将字符串分割后存到一个以下标为0开始的数组里Dim i As IntegerFor i = 0 To UB 阅读全文