■■如何输入一个数值N就显示N个文本框

Question

A B C D E
□ □ □ □ □
□ □ □ □ □
□ □ □ □ □
□ □ □ □ □
□ □ □ □ □
------------------------------------------
如上图所示，窗体运行时我通过inputbox输入一个数值5，然后在A、B、C、D、E下面就分别显示5个文本框，如果我输入8就分别显示8个文本框，请问怎么做。

Answer 1

'窗体中摆放label1,text1,和command1,在属性窗口中设置label1和text1的index值为零.

Private Sub Command1_Click()
n = Val(InputBox("请输入行数："))
Text1(0).Visible = True
For I = 1 To 5 * n - 1
Load Text1(I)
Text1(I).Visible = True
Text1(I).Top = (Text1(0).Height + 20) * (I \ 5) + Text1(0).Top
Text1(I).Left = Text1(0).Left + Text1(0).Width * (I Mod 5)
Next I
End Sub

Private Sub Form_Load()
Command1.Caption = "加载文本框"
Text1(0).Visible = False
Text1(0).Width = Label1(0).Width
Text1(0).Left = Label1(0).Left
Text1(0).Top = Label1(0).Top + Label1(0).Height + 20
Label1(0).Caption = Chr(65)
For I = 1 To 4
Load Label1(I)
Label1(I).Visible = True
Label1(I).Caption = Chr(65 + I)
Label1(I).Left = Label1(0).Left + Label1(0).Width * I
Next I
End Sub

Answer 2

我想知道这个问题的答案，如果得到解决，麻烦你把答案发到：coolcn@qq.com