Visual Basic 创建循环以计算偶数答案

【问题标题】：Visual Basic create loop for counting even numbersVisual Basic 创建循环以计算偶数
【发布时间】：2018-09-13 00:27:03
【问题描述】：

该程序需要输入正数，并使用循环函数计算每个偶数，如果输入 O，则该函数不计算奇数和结束数。

我不确定如何创建循环，或者我是否可以在循环中使用if 函数。

Dim Count = 0
While (number mod 2 = 0) do
Count + 1 = Count

【问题讨论】：

标签： basic

【解决方案1】：

假设您从某个输入中获取数字，您可以这样做。使用While True 进行无限循环，然后对于输入中给出的每个数字，检查它是否甚至使用number mod 2 = 0。这将永远持续下去，因此您需要添加一些条件（另一个 if 语句）以停止 while 循环。更多关于 while 循环的信息：https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/while-end-while-statement

暗淡计数 = 0 虽然真做如果（数模 2 = 0）那么计数 + 1 = 计数万一结束时

【讨论】：

【解决方案2】：

我实际上不太了解这个问题，但就相关而言，如果您不希望包含奇数，我建议在 count add 2 not one ，因为 count 变量从零开始：

Dim Count+2

顺便说一句，您希望何时停止计数？在 2 又回到 0？如果是，则使用 if 语句

var Dim_count = 0; 
if(Dim_count == 0){Dim_count+2}
else if(Dim_count ==2){Dim_Count =0;}

【讨论】：

【解决方案3】：

如果您提供示例输入会有所帮助，这样我们就可以使用实际代码并指导您找到正确的解决方案。

如果您以数字数组的形式接收输入，您可以简单地使用 for 或 foreach 循环遍历它，如果您想初步退出，则添加额外的条件来检查 0：

For Each number As Integer In numbers
    If (number mod 2 = 0) Then
       Count = Count + 1
    End If 

    If (number = 0) Then
       Exit For
    End If
Next

如果您的现有代码已经在每次迭代中以某种方式重新初始化/重新定义了 number，那么您所拥有的非常接近您的需要：

While (number <> 0)
    If (number mod 2 = 0) Then
       Count = Count + 1
    End If
End While

【讨论】：

【解决方案4】：

函数计数偶数：

REM function gets input, exits at 0 and adds positive even numbers.
DO
    INPUT X
    IF X = 0 THEN PRINT Y; " even numbers": END
    IF X > 0 THEN
        IF X / 2 = X \ 2 THEN Y = Y + 1
    END IF
LOOP

【讨论】：

【解决方案5】：

对此我完全不确定。只是猜测...

Dim j as Integer

Dim i As integer

j = 0

i = 2

For i = 1 to 100

j = j+i

Print j

Loop

End Sub

【讨论】：

欢迎来到 Stackoverflow 。请解释您的代码而不是纯代码。通过这种方式，OP 可以了解您的代码的用途和用途。