Vb.net用于创建奇数文件的循环

现在我对编码有点陌生，我在Vb.net上看到了一些视频，所以我想给它一个机会，我试图一次创建多个文件，所以我想我应该使用for循环

 My.Computer.FileSystem.CreateDirectory("game")
    For GameNumber As Integer = 0 To 32
        GameNumber = GameNumber + 1
        Dim GameName As String = "Game" + GameNumber.ToString()
        My.Computer.FileSystem.CreateDirectory("game/" + GameName)
    Next
    MessageBox.Show("Game created successfully!", "Success.")

但当我运行这段代码时，它会创建文件，但只会创建奇数，所以会转到Game1、Game3、Game5、Game7。

---

有人能看看我的代码，告诉我我遗漏了什么吗？非常感谢。

您不需要

GameNumber = GameNumber + 1

---

当您使用Next时，For循环将自动增加值For循环已经迭代，罪魁祸首是行

GameNumber=GameNumber+1

。。。在每一步中，您都会向GameNumber添加1个

循环的第一次运行：游戏编号从0开始，添加1。所以Game1是输出。循环迭代；游戏号码现在是2。添加一个，GameNumber现在是3，Game3是输出

---

有意义吗？

你的问题在于几个月前我自己成为受害者的事情

For…Next

循环的作用不同于正常的

Do…循环

或

Do…While

或

Do…直到

循环，因为它会自动增加控制循环的变量，而在其他循环中，您必须手动输入

计数器=计数器+1的代码才能继续。您的循环中仍然有该行，因此每次通过循环时它都会增加2，而不是1

您有两种选择来修复它：

从
For…Next
更改为
Do While
或
Do till
循环

只需删除循环中读取
GameNumber=GameNumber+1

请阅读并参加参观。顺便说一句，如果你只想得到奇数，你可以在循环中使用如下选项：
For GameNumber As Integer=1到33步骤2