Private Sub Form_Load()
For j = 1 To 52
For i = 1 To 20
Dim Txt1 As TextBox
Dim Txt2 As TextBox
Dim Txt3 As TextBox
Dim Txt4 As TextBox
Dim Txt5 As TextBox
Dim Txt6 As TextBox
Dim Txt7 As TextBox
Dim Txt8 As TextBox
Dim Txt9 As TextBox
Dim Txt10 As TextBox
Dim Txt11 As TextBox
Dim Txt12 As TextBox
Dim Txt13 As TextBox
Dim Txt14 As TextBox
Dim Txt15 As TextBox
Dim Txt16 As TextBox
Dim Txt17 As TextBox
Dim Txt18 As TextBox
Dim Txt19 As TextBox
Dim Txt20 As TextBox
Dim Txt21 As TextBox
Dim Txt22 As TextBox
Set Txt1 = Me.Controls.Add("VB.TextBox", "Txt1_Hello" & j & "_" & i)
Txt1.Move 0, 0
Txt1.Width = 500
Txt1.Height = 300
Txt1.Visible = True
Txt1.BorderStyle = 1
Set Txt2 = Me.Controls.Add("VB.TextBox", "Txt2_Hello" & j & "_" & i)
Txt2.Move Txt1.Width * (2 - 1), 0
Txt2.Width = 500
Txt2.Height = 300
Txt2.Visible = True
Txt2.BorderStyle = 1
Set Txt3 = Me.Controls.Add("VB.TextBox", "Txt3_Hello" & j & "_" & i)
Txt3.Move Txt1.Width * (3 - 1), 0
Txt3.Width = 500
Txt3.Height = 300
Txt3.Visible = True
Txt3.BorderStyle = 1
Set Txt4 = Me.Controls.Add("VB.TextBox", "Txt4_Hello" & j & "_" & i)
Txt4.Move Txt1.Width * (4 - 1), 0
Txt4.Width = 500
Txt4.Height = 300
Txt4.Visible = True
Txt4.BorderStyle = 1
Set Txt5 = Me.Controls.Add("VB.TextBox", "Txt5_Hello" & j & "_" & i)
Txt5.Move Txt1.Width * (5 - 1), 0
Txt5.Width = 500
Txt5.Height = 300
Txt5.Visible = True
Txt5.BorderStyle = 1
Set Txt6 = Me.Controls.Add("VB.TextBox", "Txt6_Hello" & j & "_" & i)
Txt6.Move Txt1.Width * (6 - 1), 0
Txt6.Width = 500
Txt6.Height = 300
Txt6.Visible = True
Txt6.BorderStyle = 1
Set Txt7 = Me.Controls.Add("VB.TextBox", "Txt7_Hello" & j & "_" & i)
Txt7.Move Txt1.Width * (7 - 1), 0
Txt7.Width = 500
Txt7.Height = 300
Txt7.Visible = True
Txt7.BorderStyle = 1
Set Txt8 = Me.Controls.Add("VB.TextBox", "Txt8_Hello" & j & "_" & i)
Txt8.Move Txt1.Width * (8 - 1), 0
Txt8.Width = 500
Txt8.Height = 300
Txt8.Visible = True
Txt8.BorderStyle = 1
Set Txt9 = Me.Controls.Add("VB.TextBox", "Txt9_Hello" & j & "_" & i)
Txt9.Move Txt1.Width * (9 - 1), 0
Txt9.Width = 500
Txt9.Height = 300
Txt9.Visible = True
Txt9.BorderStyle = 1
Set Txt10 = Me.Controls.Add("VB.TextBox", "Txt10_Hello" & j & "_" & i)
Txt10.Move Txt1.Width * (10 - 1), 0
Txt10.Width = 500
Txt10.Height = 300
Txt10.Visible = True
Txt10.BorderStyle = 1
Set Txt11 = Me.Controls.Add("VB.TextBox", "Txt11_Hello" & j & "_" & i)
Txt11.Move Txt1.Width * (11 - 1), 0
Txt11.Width = 500
Txt11.Height = 300
Txt11.Visible = True
Txt11.BorderStyle = 1
Set Txt12 = Me.Controls.Add("VB.TextBox", "Txt12_Hello" & j & "_" & i)
Txt12.Move Txt1.Width * (12 - 1), 0
Txt12.Width = 500
Txt12.Height = 300
Txt12.Visible = True
Txt12.BorderStyle = 1
Set Txt13 = Me.Controls.Add("VB.TextBox", "Txt13_Hello" & j & "_" & i)
Txt13.Move Txt1.Width * (13 - 1), 0
Txt13.Width = 500
Txt13.Height = 300
Txt13.Visible = True
Txt13.BorderStyle = 1
Set Txt14 = Me.Controls.Add("VB.TextBox", "Txt14_Hello" & j & "_" & i)
Txt14.Move Txt1.Width * (14 - 1), 0
Txt14.Width = 500
Txt14.Height = 300
Txt14.Visible = True
Txt14.BorderStyle = 1
Set Txt15 = Me.Controls.Add("VB.TextBox", "Txt15_Hello" & j & "_" & i)
Txt15.Move Txt1.Width * (15 - 1), 0
Txt15.Width = 500
Txt15.Height = 300
Txt15.Visible = True
Txt15.BorderStyle = 1
Set Txt16 = Me.Controls.Add("VB.TextBox", "Txt16_Hello" & j & "_" & i)
Txt16.Move Txt1.Width * (16 - 1), 0
Txt16.Width = 500
Txt16.Height = 300
Txt16.Visible = True
Txt16.BorderStyle = 1
Set Txt17 = Me.Controls.Add("VB.TextBox", "Txt17_Hello" & j & "_" & i)
Txt17.Move Txt1.Width * (17 - 1), 0
Txt17.Width = 500
Txt17.Height = 300
Txt17.Visible = True
Txt17.BorderStyle = 1
Set Txt18 = Me.Controls.Add("VB.TextBox", "Txt18_Hello" & j & "_" & i)
Txt18.Move Txt1.Width * (18 - 1), 0
Txt18.Width = 500
Txt18.Height = 300
Txt18.Visible = True
Txt18.BorderStyle = 1
Set Txt19 = Me.Controls.Add("VB.TextBox", "Txt19_Hello" & j & "_" & i)
Txt19.Move Txt1.Width * (19 - 1), 0
Txt19.Width = 500
Txt19.Height = 300
Txt19.Visible = True
Txt19.BorderStyle = 1
Set Txt20 = Me.Controls.Add("VB.TextBox", "Txt20_Hello" & j & "_" & i)
Txt20.Move Txt1.Width * (20 - 1), 0
Txt20.Width = 500
Txt20.Height = 300
Txt20.Visible = True
Txt20.BorderStyle = 1
Set Txt21 = Me.Controls.Add("VB.TextBox", "Txt21_Hello" & j & "_" & i)
Txt21.Move Txt1.Width * (21 - 1), 0
Txt21.Width = 500
Txt21.Height = 300
Txt21.Visible = True
Txt21.BorderStyle = 1
Set Txt22 = Me.Controls.Add("VB.TextBox", "Txt22_Hello" & j & "_" & i)
Txt22.Move Txt1.Width * (22 - 1), 0
Txt22.Width = 500
Txt22.Height = 300
Txt22.Visible = True
Txt22.BorderStyle = 1
Next
Next
End Sub
For j = 1 To 52
For i = 1 To 20
Dim Txt1 As TextBox
Dim Txt2 As TextBox
Dim Txt3 As TextBox
Dim Txt4 As TextBox
Dim Txt5 As TextBox
Dim Txt6 As TextBox
Dim Txt7 As TextBox
Dim Txt8 As TextBox
Dim Txt9 As TextBox
Dim Txt10 As TextBox
Dim Txt11 As TextBox
Dim Txt12 As TextBox
Dim Txt13 As TextBox
Dim Txt14 As TextBox
Dim Txt15 As TextBox
Dim Txt16 As TextBox
Dim Txt17 As TextBox
Dim Txt18 As TextBox
Dim Txt19 As TextBox
Dim Txt20 As TextBox
Dim Txt21 As TextBox
Dim Txt22 As TextBox
Set Txt1 = Me.Controls.Add("VB.TextBox", "Txt1_Hello" & j & "_" & i)
Txt1.Move 0, 0
Txt1.Width = 500
Txt1.Height = 300
Txt1.Visible = True
Txt1.BorderStyle = 1
Set Txt2 = Me.Controls.Add("VB.TextBox", "Txt2_Hello" & j & "_" & i)
Txt2.Move Txt1.Width * (2 - 1), 0
Txt2.Width = 500
Txt2.Height = 300
Txt2.Visible = True
Txt2.BorderStyle = 1
Set Txt3 = Me.Controls.Add("VB.TextBox", "Txt3_Hello" & j & "_" & i)
Txt3.Move Txt1.Width * (3 - 1), 0
Txt3.Width = 500
Txt3.Height = 300
Txt3.Visible = True
Txt3.BorderStyle = 1
Set Txt4 = Me.Controls.Add("VB.TextBox", "Txt4_Hello" & j & "_" & i)
Txt4.Move Txt1.Width * (4 - 1), 0
Txt4.Width = 500
Txt4.Height = 300
Txt4.Visible = True
Txt4.BorderStyle = 1
Set Txt5 = Me.Controls.Add("VB.TextBox", "Txt5_Hello" & j & "_" & i)
Txt5.Move Txt1.Width * (5 - 1), 0
Txt5.Width = 500
Txt5.Height = 300
Txt5.Visible = True
Txt5.BorderStyle = 1
Set Txt6 = Me.Controls.Add("VB.TextBox", "Txt6_Hello" & j & "_" & i)
Txt6.Move Txt1.Width * (6 - 1), 0
Txt6.Width = 500
Txt6.Height = 300
Txt6.Visible = True
Txt6.BorderStyle = 1
Set Txt7 = Me.Controls.Add("VB.TextBox", "Txt7_Hello" & j & "_" & i)
Txt7.Move Txt1.Width * (7 - 1), 0
Txt7.Width = 500
Txt7.Height = 300
Txt7.Visible = True
Txt7.BorderStyle = 1
Set Txt8 = Me.Controls.Add("VB.TextBox", "Txt8_Hello" & j & "_" & i)
Txt8.Move Txt1.Width * (8 - 1), 0
Txt8.Width = 500
Txt8.Height = 300
Txt8.Visible = True
Txt8.BorderStyle = 1
Set Txt9 = Me.Controls.Add("VB.TextBox", "Txt9_Hello" & j & "_" & i)
Txt9.Move Txt1.Width * (9 - 1), 0
Txt9.Width = 500
Txt9.Height = 300
Txt9.Visible = True
Txt9.BorderStyle = 1
Set Txt10 = Me.Controls.Add("VB.TextBox", "Txt10_Hello" & j & "_" & i)
Txt10.Move Txt1.Width * (10 - 1), 0
Txt10.Width = 500
Txt10.Height = 300
Txt10.Visible = True
Txt10.BorderStyle = 1
Set Txt11 = Me.Controls.Add("VB.TextBox", "Txt11_Hello" & j & "_" & i)
Txt11.Move Txt1.Width * (11 - 1), 0
Txt11.Width = 500
Txt11.Height = 300
Txt11.Visible = True
Txt11.BorderStyle = 1
Set Txt12 = Me.Controls.Add("VB.TextBox", "Txt12_Hello" & j & "_" & i)
Txt12.Move Txt1.Width * (12 - 1), 0
Txt12.Width = 500
Txt12.Height = 300
Txt12.Visible = True
Txt12.BorderStyle = 1
Set Txt13 = Me.Controls.Add("VB.TextBox", "Txt13_Hello" & j & "_" & i)
Txt13.Move Txt1.Width * (13 - 1), 0
Txt13.Width = 500
Txt13.Height = 300
Txt13.Visible = True
Txt13.BorderStyle = 1
Set Txt14 = Me.Controls.Add("VB.TextBox", "Txt14_Hello" & j & "_" & i)
Txt14.Move Txt1.Width * (14 - 1), 0
Txt14.Width = 500
Txt14.Height = 300
Txt14.Visible = True
Txt14.BorderStyle = 1
Set Txt15 = Me.Controls.Add("VB.TextBox", "Txt15_Hello" & j & "_" & i)
Txt15.Move Txt1.Width * (15 - 1), 0
Txt15.Width = 500
Txt15.Height = 300
Txt15.Visible = True
Txt15.BorderStyle = 1
Set Txt16 = Me.Controls.Add("VB.TextBox", "Txt16_Hello" & j & "_" & i)
Txt16.Move Txt1.Width * (16 - 1), 0
Txt16.Width = 500
Txt16.Height = 300
Txt16.Visible = True
Txt16.BorderStyle = 1
Set Txt17 = Me.Controls.Add("VB.TextBox", "Txt17_Hello" & j & "_" & i)
Txt17.Move Txt1.Width * (17 - 1), 0
Txt17.Width = 500
Txt17.Height = 300
Txt17.Visible = True
Txt17.BorderStyle = 1
Set Txt18 = Me.Controls.Add("VB.TextBox", "Txt18_Hello" & j & "_" & i)
Txt18.Move Txt1.Width * (18 - 1), 0
Txt18.Width = 500
Txt18.Height = 300
Txt18.Visible = True
Txt18.BorderStyle = 1
Set Txt19 = Me.Controls.Add("VB.TextBox", "Txt19_Hello" & j & "_" & i)
Txt19.Move Txt1.Width * (19 - 1), 0
Txt19.Width = 500
Txt19.Height = 300
Txt19.Visible = True
Txt19.BorderStyle = 1
Set Txt20 = Me.Controls.Add("VB.TextBox", "Txt20_Hello" & j & "_" & i)
Txt20.Move Txt1.Width * (20 - 1), 0
Txt20.Width = 500
Txt20.Height = 300
Txt20.Visible = True
Txt20.BorderStyle = 1
Set Txt21 = Me.Controls.Add("VB.TextBox", "Txt21_Hello" & j & "_" & i)
Txt21.Move Txt1.Width * (21 - 1), 0
Txt21.Width = 500
Txt21.Height = 300
Txt21.Visible = True
Txt21.BorderStyle = 1
Set Txt22 = Me.Controls.Add("VB.TextBox", "Txt22_Hello" & j & "_" & i)
Txt22.Move Txt1.Width * (22 - 1), 0
Txt22.Width = 500
Txt22.Height = 300
Txt22.Visible = True
Txt22.BorderStyle = 1
Next
Next
End Sub
Txt22.Height = 300
Txt22.Visible = True
Txt22.BorderStyle = 1 这样的参数设置不能在于循环体里面
应该设在Load窗体里。那样,就正常了
Dim Txt2 As TextBox
Dim Txt3 As TextBox
Dim Txt4 As TextBox
Dim Txt5 As TextBox
Dim Txt6 As TextBox
Dim Txt7 As TextBox
Dim Txt8 As TextBox
Dim Txt9 As TextBox
Dim Txt10 As TextBox
Dim Txt11 As TextBox
Dim Txt12 As TextBox
Dim Txt13 As TextBox
Dim Txt14 As TextBox
Dim Txt15 As TextBox
Dim Txt16 As TextBox
Dim Txt17 As TextBox
Dim Txt18 As TextBox
Dim Txt19 As TextBox
Dim Txt20 As TextBox
Dim Txt21 As TextBox
Dim Txt22 As TextBox 这个声明也不能在于循环体里,应该在于最上面