【编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码】
更新时间： 2025-08-28 19:23:48
3人问答
问题描述：
编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码
古西睿回答：
OptionExplicit
PrivateSubCommand1_Click()
DimsAsSingle,nAsLong,stAsString
n=1
s=0
Do
DoEvents
s=s+n
st=st&n
Ifs=100Then
MsgBox"计算s=1+3+5+...+n,s=100得值结果为："&Chr(13)&Chr(10)&st&"="&s&Chr(13)&Chr(10)&Chr(13)&Chr(10)&"n的值为："&n
ExitDo
EndIf
st=st&"+"
n=n+2
Loop
EndSub
古西睿回答：
OptionExplicitPrivateSubCommand1_Click()DimsAsSingle,nAsLong,stAsStringn=1‘第一个奇数s=0‘初始值为0Do’循环开始DoEvents‘转让控制权，注：为了防止死循环。s=s+n‘循环时，相当于s=1+3+5+...+nst=st&n'为了能知道循环中N出现的值。Ifs=100ThenMsgBox"计算s=1+3+5+...+n,s=100得值结果为："&Chr(13)&Chr(10)&st&"="&s&Chr(13)&Chr(10)&Chr(13)&Chr(10)&"n的值为："&nExitDo‘发现S=100，显示结果，退出循环EndIfst=st&"+"n=n+2’未发现S=100，n的值变为下一个奇数。LoopEndSub
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它