vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
题目
vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
答案
Private Sub Command1_Click()Dim N As Long,S As LongDoN = N + 1S = S + N * (N + 1)If S > 5000 Then Exit DoLoopPrint "结果=" & SPrint " N =" & NEnd Sub'结果=5200'N=24请参考.
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- l am returning your child.Please send me earthquake什么意思?
- if i loved you,i would fall in love with you.if she unloved you,what would you do?这
- 以一点为（ )的（ ）条射线所组成的图形就叫做角.
- 以“面对批评”为话题,写一篇记叙文,要写出自己真实的情感,
- 天山的哈萨克牧民是如何利用山地牧场放牧的?蕴涵了哪些科学道理
- 在现实生活中,由於摩擦力的存在,使生活有哪些不便?
- 多少劳动人民的血汗和智慧,才凝结成这前不见头,后不见尾的万里长城.缩句：____________________________________________________.
- She is ill.She feels sick and ( weak)这些英语中文的意思是什么?
- A:What are you jobs?B:They are singers.A:what can they( B:They( )singing.
- Justin Bibber first single,one time ,is about one of his favourite topics ,puppy love