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

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/04/28 19:01:24

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
再问：好多看不懂= =
再答： Option Explicit Private Sub Command1_Click() Dim s As Single, n As Long, st As String n = 1 ‘第一个奇数 s = 0 ‘初始值为0 Do ’循环开始 DoEvents ‘转让控制权，注：为了防止死循环。 s = s + n ‘ 循环时，相当于s=1+3+5+...+n st = st & n '为了能知道循环中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 ‘发现S=100，显示结果，退出循环 End If st = st & " + " n = n + 2 ’未发现S=100，n的值变为下一个奇数。 Loop End Sub

编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码 3.求解方程ax+bx+c=0的根,要求 (1)画出N-S流程图（2）写出伪代码（3）写出相应程序用C语言求解方程ax*x+bx+c=0的根,要求:画出N—S流程图,写出伪代码,并写出相应程序编写程序,计算输入n,S=1²+2²+3²+…+n²的值,并画出相应的程序框图设计一个计算简单算法设计一个计算S=1+3+5+.+49的流程图并写出相应程序 asp编写代码 S=1^2+2^2+…..+99^2,请利用两种循环语句编写程序,计算S的值. 使用指针编写程序,求两个向量的内积,并写出N-S流程图. 把任意整数转化成七进制的N-S流程图（条件：请给出问题分析和算法设计,并画出N-S流程图.编写程序画出流程图,用基本语句写出算法:输入n,求S=1+1/2+1/3+……+1/n的值 vb语句编写S=1*2*3*……*n的值怎么编? 求vb编写程序大神求当s=1*2*3*4...*n小于或者等于5000时最大的n值及此时的s值. 写出计算S=1+（1+2）+（1+2+3）+...+（1+2+...+50）的算法并画出相应的程序框图