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

除了Jim的回答，这里有一些代码可以帮助你，我不确定这是否能完全回答你的整个问题：

 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

VB.NET如何使用循环赋值

2 个答案: