Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i1 As Single
Dim n1 As Single
i1 = 1
n1 = 2
Controls("TextBox" & i1).Text = Controls("TextBox" & n1).Text
End Sub
本人使用这一段代码运行后总提示未将对象引用设置到对象的实例，TextBox2已经赋值。并且本人在另一个窗体中运行一段相似的程序
Dim i As Single
Dim n As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
i = 1
n = 2
Controls("TextBox" & i).Text = Controls("TextBox" & n).Text
End Sub
却可以运行成功，20分求解决办法

解决了吗？同问。