[数值]究竟做到哪一步——从仿RO的属性加点扣点计算公

迷人的小惑星

Sub 按钮1_Click()
    Dim x As Integer
    Dim y As Integer
    Dim Sum As Integer
    Sum = 0
    x = Sheets(1).Range("B3")
    For y = 1 To x
        Sum = Sum + 2 + Int((y - 1) / 5)
       ' Debug.Print Sum
    Next
   
    For y = 1 To 100
        Sum = Sum - 2 - Int((y - 1) / 7)
        If Sum < 2 + Int(y / 7) Then
            Debug.Print y
            Debug.Print Sum
            Exit Sub
        End If
    Next
End Sub
自己用VBA弄了个简单模拟……