VB的问题——一方有难求八方支援

Question

朋友问了一个问题，用VB怎么将横排文字改成竖排的，我表示这不在专业范围内，便到csdn来求助各种各样大神来帮助

Answer 1

Dim s$, temp$, myStr$, i%s = "朋友问了一个问题，用VB怎么将横排文字改成竖排的，我表示这不在专业范围内，便到csdn来求助各种各样大神来帮助"
For i = 0 To Len(s) - 1
  temp = Mid(s, i + 1, 1)
  myStr = IIf(i = 0, temp, myStr & vbCrLf & temp)
NextDebug.Print myStr