主题：messagebox可以这样（多行）显示吗？

还是来凑热闹吧
dim m as integer
dim n as integer
dim gs as string ="aaa2bbbawwwbb22"
dim s as string
Do While gs.length>0
    dim gs1 as string =left(gs,1)
    m = gs.length
    gs= gs.Replace(gs1,"")
    n = m-gs.length
    s= s & gs1 & "共有" & cstr(n) & "个" & Chr(13) & Chr(10)
Loop
messagebox.show(s,"提示")