VB里如何实现将字符串一个个分开显示?

来源：百度知道 编辑：UC知道 时间：2024/05/24 04:03:35

Private Sub Form_Load()
Dim S As String, I As Integer
S = "中华人民共和国"
For I = 1 To Len(S)
MsgBox Mid$(S, I, 1)
Next
End Sub

用Mid(string, start,[ length]) 把start设置为变量,每次加一,length设置为一.再赋值给变量就可以了.