编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 07:30:39
编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码

编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码
编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码

编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码
Option Explicit
Private Sub Command1_Click()
Dim s As Single, n As Long, st As String
n = 1
s = 0
Do
DoEvents
s = s + n
st = st & n

If s = 100 Then
MsgBox "计算s=1+3+5+...+n,s=100得值结果为:" & Chr(13) & Chr(10) & st & "= " & s & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "n的值为: " & n
Exit Do
End If
st = st & " + "
n = n + 2
Loop
End Sub