-1

我不知道我的问题的最佳标题是什么。但我想这样计算,例如我设置我的最大值是8,最小值是0

然后我有这样22 + 8的总结,结果是30

我想要的是当计算超过最大值时然后返回到0剩余的总和。

23 24 25 0 1 2 3 4结果是这样的4

我有这样的代码

Sub Calculate()
    Dim startVal As Integer = 22
    Dim endVar As Integer = 8

    Dim var As Integer = startVal + endVar
    If var > 25 Then
        'I don't know the code..
    End If
    MsgBox(var)
End Sub

谢谢你,我非常需要你的帮助

4

1 回答 1

1

超级清晰,但我认为您正在寻找Mod运算符,它在执行除法后返回余数。但是,在您的示例中,结果将是 6,而不是 4。您的 30 总和可以除以 8 3 次:

8 + 8 + 8 = 24
30 - 24 = 6.

例子:

Dim result as Integer = Sum Mod Max
于 2017-04-15T15:36:58.827 回答