快来帮我一下

快来帮我一下 c_a_3(); 快来帮我一下 快来帮我一下 分别的 TEXTBOX1,A:TEXTBOX2,B:TEXTBOX3,C:TEXTBOX4,D:TEXTBOX5,E TEXTBOX1,B:TEXTBOX2,C:TEXTBOX3,D:TEXTBOX4,E:TEXTBOX5,“” TEXTBOX1,C:TEXTBOX2,D:TEXTBOX3,E:TEXTBOX4,“”:TEXTBOX5,“” TEXTBOX1,D:TEXTBOX2,E:TEXTBOX3,“”:TEXTBOX4,“”:TEXTBOX5,“” TEXTBOX1,E:TEXTBOX2,“”:TEXTBOX3,“”:TEXTBOX4,“”:TEXTBOX5,“” 要用数组编写:我用的是VB。NET 如此类推每按一下就会向前覆盖直到TEXTBOX1变成“”。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim j As Integer For j = 1 To 5 TextBox(j).Text = TextBox(j + 1).Text Next End Sub 但是电脑提示:TextBox(j).Text = TextBox(j + 1).Text 请问我如何修改 ------解决-------------------------------------------------------- 哪里能定义DIM TEXTBOX(5) AS INTERG呢?肯定出错撒! 你把TextBox定义为Integer,后面又引用TextBox(j).Text = TextBox(j + 1).Text,肯定 出错撒! Dim TextBox() As TextBox(TextBox1,TextBox2,TextBox3,TextBox4,TextBox5) Dim j As Integer For j = 0 To 4 TextBox(j).Text = TextBox(j + 1).Text Next End Sub 结贴吧!(结帐) ------解决方案-------------------------------------------------------- Dim TextBox(6) As TextBox Dim i As Int32 Dim intRow As Int32 = 12 Dim intCol As Int32 = 12 Dim Button1 As Button Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load For i = 1 To 5 TextBox(i) = New TextBox With TextBox(i) .Left = intCol .Top = intRow End With intRow += 30 Me.Controls.Add(TextBox(i)) Next Button1 = New Button With Button1 .Left = 12 + TextBox(1).Width + 12 .Top = 12 .Height = 21 .Text = 移动 AddHandler Button1.Click, AddressOf Button1_Click End With Me.Controls.Add(Button1) Me.StartPosition = FormStartPosition.CenterScreen End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) For i = 1 To 5 If i = 5 Then TextBox(i).Text = Else TextBox(i).Text = TextBox(i + 1).Text End If Next End Sub