Variables 如何将这个写行程序复制200次，而不让我复制粘贴它，每次只更换一个老版本？

我如何只改变一个或两个变量来复制这段代码

Public Class Form1
    Dim ArrayFS(1, 196, 7) 
    Dim Customer(1, 196) As StreamWriter 
    Dim Profit As Decimal  
    Dim selectedIndex As Integer '
    Dim CustomerLoad(1, 196) As StreamReader

Private Sub BtnSave_Click(sender As System.Object, e As System.EventArgs) Handles BtnSave.Click
Dim Row As Integer = ChkLstRowA.SelectedIndex
        Select Case Row
            Case 0
                Customer(0, 0) = New StreamWriter("G:\theater seats\friday\A1Seat.txt")
                Customer(0, 0).Write(ArrayFS(0, 0, 0) & (" ") & ArrayFS(0, 0, 1) & (", ") & ArrayFS(0, 0, 2) & (", ") & ArrayFS(0, 0, 3) & (", ") & ArrayFS(0, 0, 4) & (", ") & ArrayFS(0, 0, 5) & (", ") & ArrayFS(0, 0, 6) & (", ") & ArrayFS(0, 0, 7))
                MsgBox("Data has been stored.")
                Customer(0, 0).Close()
        End Select
  End Sub
End Class

---

您希望更改哪个变量？这类事情可以通过一个简单的循环来处理，除非我完全误解了您。Customer（0，0）和ArrayFS（0，0，0）。就像一个程序（我想这就是所谓的）。对不起，这有点不对劲。需要更多的信息。。。以下数组中存储的信息是什么。。。阵列（X，Y，Z）-什么是X，Y和Z？客户（J，K）-J和K是什么？对不起，现在你可以在数组中有一个真正的，例如，我不需要有以下重复197次的客户（0，0）=新StreamWriter（“g:\theater seats\friday\A1Seat.txt”）客户（0，0）。写入（ArrayFS（0，0，0）&（“”）和ArrayFS（0，0，1）&（“”）和ArrayFS（0，0，2）&（“”）和ArrayFS（0,0,3）和（“，”）和ArrayFS（0,0,4）和（“，”）和ArrayFS（0,0,5）和（“，”）和ArrayFS（0,0,6）和（“，”）和ArrayFS（0,0,7））MsgBox（“数据已存储”）。客户（0,0）。关闭（）相反，我可以有客户（0，变量）。写入（ArrayFS（0，变量，0）和（“，”和ArrayFS（0，变量，1）和（“，”和ArrayFS（0，变量，2）&（“，”）和ArrayFS（0，变量，3）&（“，”）和ArrayFS（0，变量，4）&（“，”）和ArrayFS（0，变量，5）&（“，”）和ArrayFS（0，变量，6）&（“，”）和ArrayFS（0，变量，7））MsgBox（“数据已存储”））客户（0，变量）。关闭（）o和Z=天y=地方x=关于那个地方的东西lol不适合一个评论