Question

vb 把文本框的字符依次赋值给变量

文本框中的字符个数不定，但是没有中文。求代码，谢谢！
Private Sub Command1_Click()
a = Val(Text1.Text)
For i = b(1) To b(10) '这一句错了，帮忙改改，谢谢！
If a = "5" Then
Text2.Text = a
End If
Next i
End Sub

Answer 1

你的题目意思没有明确，如果照题目来说，代码不对。
Dim b()
a = Text1.Text
L = Len(Text1.Text)
ReDim b(L)
For i = 1 To L
b(i) = Mid(a, i, 1) '每一个字符给数组
Next i

Answer 2

Private Sub Command1_Click()
For i = 1 To Len(CStr(Val(Text1.Text))) '这一句错了，帮忙改改，谢谢！
a = Mid(Val(Text1.Text), i, 1)
If a = "5" Then
Text2.Text = a
End If
Next i
End Sub

Answer 3

Private Sub Command1_Click()
Dim a()

For i = 1 To Len(Text1.Text)
ReDim Preserve a(i)
a(i) = Mid(Text1.Text, i, 1)
If a(i) = "5" Then
Text2.Text = a(i)
End If
Next i

End Sub