编程完成功能:求SUM=1+2+3+…>100,并求出累加的最后一个自然数的值求编程吖= = 用汇编
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 17:31:01
![编程完成功能:求SUM=1+2+3+…>100,并求出累加的最后一个自然数的值求编程吖= = 用汇编](/uploads/image/z/1582300-28-0.jpg?t=%E7%BC%96%E7%A8%8B%E5%AE%8C%E6%88%90%E5%8A%9F%E8%83%BD%3A%E6%B1%82SUM%3D1%2B2%2B3%2B%E2%80%A6%3E100%2C%E5%B9%B6%E6%B1%82%E5%87%BA%E7%B4%AF%E5%8A%A0%E7%9A%84%E6%9C%80%E5%90%8E%E4%B8%80%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E7%9A%84%E5%80%BC%E6%B1%82%E7%BC%96%E7%A8%8B%E5%90%96%3D+%3D+%E7%94%A8%E6%B1%87%E7%BC%96)
编程完成功能:求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