vb或C#都是服务端语言，而是否获到焦点只有浏览器端，也就是客户端才知道，要靠JS才可以完成这个操作，所以VB或C#是不可能直接实现向文本框赋值这个操作的。你可以通过Ajax方式来实现，由JS找到取得焦点的文本框，并异步向后台取到需要的值，写入到这个文本框里。
专注于为中小企业提供成都网站制作、网站建设、外贸网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业大通免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了千余家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
参照VB6，在VB.net应该也差不多
方法一，让它们形成控件数组
for i=1 to 5
textbox(i).text=1
next i
方法二，假设这些控件的名称有规律，分别是textbox1,textbox2等
for i=1 to 5
controls("textbox" i ).text=1
next i
在VB6中能通过，希望对你有帮助
Dim obj As Object, objName As String, i As Integer
i = 0
For Each obj In Me.Controls '枚举窗体所有控件
Debug.Print TypeName(obj)
If TypeName(obj) = "TextBox" Then '判读是否为文本框
i = i + 1
objName = obj.Name '获取文本控件名称,这里可以根据名称来判读赋值，也可以根据其他属性复制
obj.Text = "文本" i '文本框赋值
End If
Next