Question

我设法在 Visual Basic 中创建了一个重复数字的循环。所以122333444455555等

  Dim u As Long, j As Long

  For u = 1 To 5
        For j = 1 To u
              Console.Write(u)
        Next j
  Next u

现在，我想创建一个 For 循环，就像上面的循环一样，但在这种情况下，它只包含 1,333,55555。我该怎么做？

Answer 1

在外部 for 循环中使用 Step 选项使其按 2 计数，从而只给您奇数：

Sub Main()
    For u As Long = 1 To 5 Step 2
        For j As Long = 1 To u
            Console.Write(u)
        Next j
    Next u

    Console.WriteLine()
    Console.Write("Press any key to quit...")
    Console.ReadKey()
End Sub

输出：

133355555
Press any key to quit...

另一种方法是让您的外循环计数为 1，然后仅使用 Mod 运算符对奇数执行内循环：

For u As Long = 1 To 5
    If (u Mod 2) = 1 Then ' only work with odd "u" values
        For j As Long = 1 To u
            Console.Write(u)
        Next j
    End If
Next u

只有当“u”是偶数时您需要做一些不同的事情时，我才推荐这种方法（添加一个 Else 块来处理这些情况）。

Visual Basic - 从 FOR 循环中删除值

1 个答案: