用VB的do...loop循环写语句!
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/15 04:30:42
用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 Su
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 Su
用VB的do...loop循环写语句!
Vb Do while|until…Loop 循环语句
VB中的Do...Loop语句怎么使用?
用Do...Loop循环语句,求m和n的最大公约数,以下是程序代码,
VB分析For...Next循环结构与Do While...Loop循环结构的异同点
VB中的do while……loop 和do……loop while语句是一样的吗
vb计算题11^2+2^2+3^2+.+999^2用两种循环语句完成,for.next 和 do ...loop 语句
利用Do…Loop循环语句求从1到100的累加和
程序设计,此题的程序是什么,用loop until或do这种语句写
求VB的循环语句
VB,do until循环语句问题?
vb中用for、do…loop和while…wend循环三种形式分别求3的n次方