最朴实的解法:private sub form_load()dim a as stringa=inputbox("请输入要拆分的单词:")'是BAIDU这个单词的话就填BAIDUdim b(100) as string '应该没有一个单词由100个字母组成吧dim m as stringm=""i=len(a)for n=1 to ib(n)=mid(a,n,1)m=m & b(n) & " "next nmsgbox("这个单词由" & m & "组成")end sub
Private Sub cmdDo_Click()Dim sChar() As String '单个字符组成的数组Dim sOrigin As String '原始字符串Dim i As Integer, s As String
sOrigin = "Baidu"
ReDim Char(1 To Len(sOrigin))
For i = 1 To UBound(Char)'核心
Char(i) = Mid(sOrigin, i, 1)
Next
For i = 1 To Len(sOrigin)'输出
s = s & Char(i) & " "
Next
txtResult.Text = sEnd Sub
Private Sub Command1_Click()Dim s_array() As Stringi = splitstr("baidu", s_array())Print iFor i = 0 To UBound(s_array()) - 1Print s_array(i)NextEnd SubPublic Function splitstr(o_str As String, s() As String) As IntegerOn Error GoTo errtrap: ReDim s(Len(o_str)) As String For i = 1 To Len(o_str)
s(i - 1) = Mid(o_str, i, 1) NextExit Functionerrtrap:
splitstr = -1End Function
