vb.net - VB.NET 如何使用循环赋值

Question

我正在尝试一一缩短我的代码，但我不知道如何去做。我正在使用 VB.NET 并且对它有一点了解。这是我的代码的一部分，有没有办法使用循环来缩短它

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    mdp1 = 0
    mdp2 = 0
    mdp3 = 0
    mdp4 = 0
    mdp5 = 0
    mdp6 = 0
    mdp7 = 0
    mdp8 = 0
    mdp9 = 0
    mdp10 = 0
End Sub

Answer 1

如果你把它改成一个数组，你所需要的就是这个。

Private mpd(9) as Integer

所有值都将初始化（使用 VB）。请注意，.Net 是基于 0 的，因此要访问第 10 个成员，它将是 mpd(9)。第一个值是 mpd(0) 而不是 mpd(1)。

Answer 2

添加到吉姆的答案，这里有一些代码可以帮助你，我不确定这是否会完全回答你的整个问题：

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Dim mdp() As Integer = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
 End Sub