關於副程式的改寫

Question

是這樣的我用text1~text10個控制項(textbox)
我想要改此副程式,可以幫我改副程式用回圈的方式改寫或是別的方式一次把1~10個TextBOX各別寫到文字檔!
謝謝各位大大!
Private Sub 存檔_Click()
For n = 1 To 10
Open "c:\\program files\\資料庫\\資料" & (n) & ".all" For Output As #1
Print #1, text(n) '呼叫text(n)副程式在下面
Close #1
Next n
End Sub
Function text(ByVal A As Long) As String
If A = 1 Then text = Form1.Text1.text
If A = 2 Then text = Form1.Text2.text
If A = 3 Then text = Form1.Text3.text
If A = 4 Then text = Form1.Text4.text
If A = 5 Then text = Form1.Text5.text
If A = 6 Then text = Form1.Text6.text
If A = 7 Then text = Form1.Text7.text
If A = 8 Then text = Form1.Text8.text
If A = 9 Then text = Form1.Text9.text
If A = 10 Then text = Form1.Text10.text

End Function

Answer 1

將10個TextBox設索引~可以先拉一個之後，在將其複製9個出來，索引就會從0~9共10個，在來寫檔的時後，以上你寫的所有的程式碼，就只要以下醬就好了↓

Private Sub 存檔_Click()
For n = 0 To 9
Open "c:\program files\資料庫\資料" & (n) & ".all" For Output As #1
Print #1, Text1(n).Text
Close #1
Next n
End Sub

是不是既簡單又省事呢~^^~

Answer 2

發問者沒有講 VB 版本，VB2005 是沒有控制項陣列功的。