作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/27 22:45:20
编程完成功能:求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
再问: 汇编解决的有没有啊?
再答: 没学过汇编,抱歉!