VB 请问,VB能自动写程序吗?

同志，您用数组不就得了…………
Sub Test()
Dim s As String
Dim i As Integer
Dim iSize As Integer
Dim sArray() As String
Dim a() As String

s = "1,22,333" '这个是Text控件上的字符串
sArray = Split(s, ",") '用Split把它拆分成字符串数组

iSize = UBound(sArray) - LBound(sArray) + 1
ReDim a(iSize) '为a数组分配好空间
For i = LBound(sArray) To UBound(sArray)
a(i) = sArray(i) '把字符串数组转换成整型数组
Debug.Print a(i) '输出到立即窗口
Next
End Sub

DIM A1,A2,A3,A4
A1=TEXT1.TEXT
A2=TEXT1.TEXT
A3=TEXT1.TEXT
A4=TEXT1.TEXT
想自动写用数组能实现吧~~~

不能，自己解析吧

如果传递的字符串都是以逗号分割的话,是完全可以的
Private Sub Command1_Click()
SplitString "1,3,4,22,86,2,34"
End Sub

Private Sub SplitString(S As String)
Dim bats, bat
Dim a() As Integer, i As Integer
bat = Split(S, ",")
ReDim a(UBound(bat)) As