翡翠二套怎么搭配:麻烦一下大家,我想问一个VB编程的问题

VB因为没有指针 所以不提供字符类型，这里使用string（可变长字符串类型）做为数组元素，长度为1。
a = "a Test String"
Dim b() As String
Dim i As Long
ReDim b(Len(a))
For i = 0 To Len(a) - 1
b(i) = Mid(a, i + 1, 1)
MsgBox b(i)
Next

谁说的VB里没有字符类型
可以声明变量为字符类型(char)
楼上的程序会连续弹出10多个msgbox,不是很好吧
程序可以这样写:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s, s1 As String
Dim p() As Char
s = InputBox("请输入字符串:")
ReDim p(s.Length)
Dim i As Byte
For i = 1 To s.Length
p(i - 1) = Mid(s, i, 1)
s1 = s1 & "p(" & (i - 1) & ")=" & p(i - 1) & vbCrLf
Next
MsgBox(s1)
End Sub

i声明为byte类型,最多只能容纳255个字符,如果有需要,可以把变量i类型适当改变
程序在vb.net里调试通过

s="a we"
dim p()
redim p(len(s)) as string
for i=1 to len(s)-1
p(i)=mid(s,i,1)
next i

用Mid函数可以实现。具体方法上面说的都已经很清楚了。。