s=1 3 5 2n-1计算程序框图 s

来源：蜘蛛抓取(WebSpider) 时间：2017-08-19 21:55 标签： stc12c5a60s2 ad程序
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码
清枫鋶镍珩
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
Option ExplicitPrivate Sub Command1_Click()
Dim s As Single, n As Long, st As String
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
st = st & " + "
LoopEnd 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
‘发现S=100，显示结果，退出循环
st = st & " + "
n = n + 2 ’未发现S=100，n的值变为下一个奇数。
为您推荐：
其他类似问题
扫描下载二维码

我要回帖

更多关于 stc12c5a60s2 ad程序 的文章

 

随机推荐