作业帮vb循环语句的题目：计算3－1/2+2/3-3/4+…+ N/（N+1）的结果（N=10）.（3.26345）
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/05/14 17:46:33
vb循环语句的题目：计算3－1/2+2/3-3/4+…+ N/（N+1）的结果（N=10）.（3.26345）
我是这么写的：For n = 1 To 10
m = n / (n + 1)
o = m * (-1) ^ n
k = k + o
Next n
Print "k="; k + 3
但老师说这不够简洁.劳烦诸位给修改啦!
最好能附上原因!
还有另一题百钱买百鸡（公鸡5元、母鸡3元、小鸡1/3元,100元刚好买100只）
For a = 1 To 20
For b = 1 To 33
c = 100 - a - b
If (a + b + c = 100) And (a * 5 + b * 3 + c * 1 / 3 = 100) Then Print "a="; a,"b="; b,"c="; c
Next b
Next a
能不能改成用两个变量的?
我是这么写的：For n = 1 To 10
m = n / (n + 1)
o = m * (-1) ^ n
k = k + o
Next n
Print "k="; k + 3
但老师说这不够简洁.劳烦诸位给修改啦!
最好能附上原因!
还有另一题百钱买百鸡（公鸡5元、母鸡3元、小鸡1/3元,100元刚好买100只）
For a = 1 To 20
For b = 1 To 33
c = 100 - a - b
If (a + b + c = 100) And (a * 5 + b * 3 + c * 1 / 3 = 100) Then Print "a="; a,"b="; b,"c="; c
Next b
Next a
能不能改成用两个变量的?
m = n / (n + 1)
o = m * (-1) ^ n
这两句合成一句o=(-1)^n*n/(n+1)不知道这个地方有没有数值转换?小心
第二道题
Private Sub Form_Activate()
Dim a, b As Integer
For a = 1 To 20
For b = 1 To 33
'c = 100 - a - b ’C变量用100-a-b代替 就用两个变量了
If (a * 5 + b * 3 + (100 - a - b) * 1 / 3 = 100) Then Print "公鸡="; a, "母鸡="; b, "小鸡="; 100 - a - b
Next b
Next a
End Su
o = m * (-1) ^ n
这两句合成一句o=(-1)^n*n/(n+1)不知道这个地方有没有数值转换?小心
第二道题
Private Sub Form_Activate()
Dim a, b As Integer
For a = 1 To 20
For b = 1 To 33
'c = 100 - a - b ’C变量用100-a-b代替 就用两个变量了
If (a * 5 + b * 3 + (100 - a - b) * 1 / 3 = 100) Then Print "公鸡="; a, "母鸡="; b, "小鸡="; 100 - a - b
Next b
Next a
End Su
vb循环语句的题目：计算3－1/2+2/3-3/4+…+ N/（N+1）的结果（N=10）.（3.26345）
VB循环语句求s=1+3+5+……+2n-1的值
编写一个程序,计算下面n(n属于N*）个数的和：2,3/2,4/3,5/4,…,(n+1)/n（用循环语句）拜托各位大
VB 循环结构题目用for……to……step语句计算：1/1+1/（2!）+1/（3!）+1/（4!）+……1/（n!
vb计算1!+3!+*****+（2n+1）!的代码
利用VB设计一个程序：输入一个大于10的正整数n,计算sum=1+3+5+…(2n+1),编写程序输出计算结果sum
vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
数学题目：lim(n趋向无穷大） （（n+1)*(n+2)*(n+3)）/(3*n*n) =1/3的计算过程 急需,谢谢
VB计算1!+2!+3!+…+n!的和
用VB语言用WHILE语句写出求T=1!+2!+3!……+20!的程序（n!=1*2*3*……*n）
VB编程：编递归函数过程,计算1+2+3……..+n的值（n是自然数）
（n-1）（n-2）（n-3）（n-4）……（n-m+1）（n-m）n大于m 的计算公式