编程完成功能:求SUM=1+2+3+…>100,并求出累加的最后一个自然数的值求编程吖= = 用汇编

编程完成功能:求SUM=1+2+3+…>100,并求出累加的最后一个自然数的值求编程吖= = 用汇编
编程完成功能:求SUM=1+2+3+…>100,并求出累加的最后一个自然数的值
求编程吖= = 用汇编

编程完成功能:求SUM=1+2+3+…>100,并求出累加的最后一个自然数的值求编程吖= = 用汇编
vb或者vba
Private Sub CommandButton1_Click()
Dim Message,Title,Default,MyValue
Dim i,j,k
Message = "输入100或其他" ' 设置提示信息.
Title = "求SUM=1+2+3+…>100,求出累加的最后一个自然数的值" ' 设置标题.
Default = "100"
MyValue = InputBox(Message,Title,Default)
j = 0
For i = 1 To Val(MyValue)
j = j + i
If j > Val(MyValue) Then
MsgBox "最后一个自然数的值:" & i - 1
Exit For
End If
Next i
End Sub