Question

vb怎么用for循环给五个连续的textbox赋值？

Answer 1

'Text1到Text5赋值
Private Sub Command1_Click()
For i = 1 To 5
Controls("Text" & i).Text = i
Next i
End Sub

Answer 2

For Each objOLE In form1.OLEObjects
If objOLE.progID = "Form1.TextBox.1" Then objOLE.value=1 '赋值，需要相应修改代码
Next objOLE