早教吧作业答案频道 -->数学-->
用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)当
题目详情
用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就停止,并且判断输入的数里面有几个负整数,有几个正整数,并输出这些整数的和.
▼优质解答
答案和解析
给你做到第4题吧:
Private Sub Command1_Click()
Dim i As Long, x As Long, y As Long, c As Double
'第一题
For i = 1 To 100
If i Mod 2 = 0 Then
x = x + i
End If
Next
' MsgBox "1到100中偶数的和是:" & x
'第二题
x = 0
For i = 1 To 1000
If i Mod 10 = 0 Then
x = x + i
End If
Next
'MsgBox "1到1000中10的倍数的和是:" & x
'第三题
x = 0
Do
y = y + 1
x = x + y
If x > 1000 Then Exit Do
Loop
' MsgBox "求恰好使s=1+2+3+…+n的值大于1000时n的值是:" & y
'第四题
c = 1: y = 1
Do
y = y + 1
c = c + 1 / y
If c >= 2 Then Exit Do '大于10改成c>=10 ====大于15改成if c>=15
Loop
MsgBox "定义S=1+1/2+1/3+……+1/n,求当s>=2时的最小的n值:" & y
End Sub
Private Sub Command1_Click()
Dim i As Long, x As Long, y As Long, c As Double
'第一题
For i = 1 To 100
If i Mod 2 = 0 Then
x = x + i
End If
Next
' MsgBox "1到100中偶数的和是:" & x
'第二题
x = 0
For i = 1 To 1000
If i Mod 10 = 0 Then
x = x + i
End If
Next
'MsgBox "1到1000中10的倍数的和是:" & x
'第三题
x = 0
Do
y = y + 1
x = x + y
If x > 1000 Then Exit Do
Loop
' MsgBox "求恰好使s=1+2+3+…+n的值大于1000时n的值是:" & y
'第四题
c = 1: y = 1
Do
y = y + 1
c = c + 1 / y
If c >= 2 Then Exit Do '大于10改成c>=10 ====大于15改成if c>=15
Loop
MsgBox "定义S=1+1/2+1/3+……+1/n,求当s>=2时的最小的n值:" & y
End Sub
看了 用VB的do...loop循...的网友还看了以下:
0是偶数吗?根据偶数的定义(北师大版)“是2的倍数的数叫偶数,不是2的倍数的数叫奇数.”因为0不在 2020-04-09 …
设f(x,y)在(0,0)处连续,limx,y→0f(x,y)-1ex2+y2-1=4,则()A. 2020-05-14 …
excel2003中怎样把A列只间隔0的相同数的个数显示在A列最后出现的相同数B列相同位置,A B 2020-05-16 …
假设在连接到一网络ID为192.168.24.0的网络时,您使用了ROUTEPRINT命令来检查由路 2020-05-31 …
解数学题!速答!答后必加分(高二)已知椭圆C:x的平方除a的平方+y的平方除b的平方=1(a>b> 2020-06-07 …
质量为m=2kg的物体静止在水平地面上,物体与水平面间的滑动摩擦力大小等于它们之间弹力的0.25倍 2020-06-22 …
四个数字中按要求组成两位数3.0.4.5是3的倍数的有().同是2和3的倍数的有().同是2,3, 2020-07-18 …
设椭圆x^2/a^2+y^2/b^2=1(a>b>0)的左焦点为F,离心率为三分根号3,过点F且与 2020-08-01 …
0的1次方等于多少关于次方问题针对特殊数字比如0的例子有哪些比如0的0次方没有意思此类1楼的还可以详 2020-11-28 …
△=0,△<0时一元二次方程ax2+bx+c=0(a>0)的根根需要用字母代表出来△>0,△=0,△ 2020-12-27 …