摘要：
Option ExplicitPrivate Sub Command1_Click() Dim Num, I, J, Temp, Len1 As Long Dim FileNO As Long Dim Count As Long Dim str, strTemp, strArr() As String, Arr() As String '******************************************************************** str = InputBox("请输入字符串，数字或者字母组成：", "提示&quo 阅读全文
