题目
用VB的do...loop循环写语句!
1、求1到100中偶数的和 2550;
2、求1到1000中是10的倍数的数的和 50500;
3、求恰好使s=1+2+3+…+n的值大于1000时n的值.
4、定义S=1+1/2+1/3+……+1/n,求当s>=2时的最小的n值.(n=4)
当s>=10,最小的n值是多少呢?;当s>=15呢?(n=12367;n=1673859)
5、编写一程序,验证角谷猜想.所谓的角谷猜想是:“对于任意大于1的自然数n,若n为奇数,则将n变为3*n+1,否则将n变为n的一半.经过若干次这样的变换,一定会使n变为1.要求:输入一个数不为1的数n,输出要变换的次数.
注:/ 是除法 ; 是整除;mod 是取余;如:13 mod 2=1
6、用do while循环编写程序,用输入框inputbox输入整数,直到输入0就停止,并且判断输入的数里面有几个负整数,有几个正整数,并输出这些整数的和.
1、求1到100中偶数的和 2550;
2、求1到1000中是10的倍数的数的和 50500;
3、求恰好使s=1+2+3+…+n的值大于1000时n的值.
4、定义S=1+1/2+1/3+……+1/n,求当s>=2时的最小的n值.(n=4)
当s>=10,最小的n值是多少呢?;当s>=15呢?(n=12367;n=1673859)
5、编写一程序,验证角谷猜想.所谓的角谷猜想是:“对于任意大于1的自然数n,若n为奇数,则将n变为3*n+1,否则将n变为n的一半.经过若干次这样的变换,一定会使n变为1.要求:输入一个数不为1的数n,输出要变换的次数.
注:/ 是除法 ; 是整除;mod 是取余;如:13 mod 2=1
6、用do while循环编写程序,用输入框inputbox输入整数,直到输入0就停止,并且判断输入的数里面有几个负整数,有几个正整数,并输出这些整数的和.
提问时间:2021-02-15
答案
给你做到第4题吧:Private Sub Command1_Click() Dim i As Long, x As Long, y As Long, c As Double'第一题&n...
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1下列的说法中不正确的是( ) A.加热杀死的S型肺炎球菌和活的R型肺炎球菌的混可使健康小鼠得坏血病(症) B.人类基因组计划的目的是测定人类基因组中有关遗传病发生部分的DNA序列 C
- 2【选择题】simon is a ___ student in our class.he is good at all his lessons.
- 32.下列词语解释有误的一项是( )(2分)
- 4I agree with him!Dream is really nice中文翻译
- 5一个工人每天工作10个小时,每周工作五天,如果4月1日是星期一,那么他在4月份将工作多少小时?
- 6电磁感应是发明创造还是自然规律
- 7technical level evaluating是什么意思
- 81、已知 x的平方+3x+1=0,则x的平方+x的平方分之1 的值为多少?
- 9配位离子和简单离子有什么区别?请综合归纳一下
- 101万克等于多少吨?
热门考点
- 13厘米写成分数是几米,写成小数是几米
- 2一根钢管,第一次截去全长的2/7,第二次截去全长的3/7米,还剩下1米,这个钢管长多少米
- 3一辆汽车沿着一条南北方向的公路来回行驶,某天早晨从A地出发最后到B地规定向北为正方向,当天的行驶记录如下
- 4世界上种类和数量最多的无脊椎动物是
- 5数列:1,1999,1998,1,1997,1996,1,1995、.从第3个起,每一个数都是它前面 两个数的差,那么(1)第
- 6将1L由一氧化碳和某气态烯烃组成的混合气体……
- 7用像字造一个打比方的句子
- 8欧阳修有哪些诗歌
- 9图表示研究NaHCO3溶液浓度影响光合作用速率的实验,下列说法错误的是( ) A.将整个装置放在光下,毛细管内的红色液滴会向左移动 B.将整个装置置于暗室,一段时间后检查红色液滴是
- 10有这样一道题 已知a=2,b=1/2,求多项式3/2a的平方bc