Arrays 变量不递增

这是我的代码，当我单击一个按钮将数据输入到三个数组中时，但当我单击该按钮时，我不会递增。此外，如果我没有在“高度”或“重量”文本框中输入任何内容并按下按钮，则会出现错误：从字符串“”到类型“整数”的转换无效

这里有什么问题？

---

谢谢

你怎么知道它不会增加？空字符串不是有效的整数-您希望它做什么？每次单击按钮时是否将i设置为整数=0不重置i，从而在每次尝试重新分配数组时将其设置为0？抱歉，愚蠢的错误。我用来检查i的值的标签没有任何代码使其与i的值相同。问题已解决。如果可以，请查看使用列表而不是数组。这会给你省去很多麻烦。

Public Class Form2

    Dim i As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMainMenu.Click
        Me.Close()
    End Sub

    Private Sub btnEnterPatient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnterPatient.Click


        ReDim Preserve Names(0 To i)
        Names(i) = txtPatientName.Text

        ReDim Preserve Heights(0 To i)
        Heights(i) = txtPatientHeight.Text

        ReDim Preserve Weights(0 To i)
        Weights(i) = txtPatientWeight.Text

        i = i + 1

    End Sub
End Class