Question

现在我对编码很新，我在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。有人可以看看我的代码并告诉我我错过了什么吗？非常感谢你。

Answer 1

您不需要

GameNumber = GameNumber + 1

使用Next

时，For循环将自动递增值

Answer 2

For循环已经迭代，罪魁祸首是行GameNumber = GameNumber + 1 ...你在每一步都向GameNumber添加1个。

首次运行循环：Gamenumber从0开始，你加1.这样输出Game1。循环迭代; GameNumber现在是2.你加一个，GameNumber现在是3，输出Game3。

有意义吗？

Answer 3

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

For...Next循环的行为与普通Do...Loop或Do...While或Do...Until循环不同，因为它会自动增加控制循环的变量，而在其他循环中则增加手动输入counter = counter + 1的代码以继续。你的循环中仍然有这一行，所以每次循环而不是1时它会增加2。

你有两个选择来解决它：

从For...Next更改为Do While或Do Until循环
只需删除循环中标有GameNumber = GameNumber + 1

Vb.net用于循环创建奇怪的麻木文件

3 个答案: