vb循环语句的题目:计算3-1/2+2/3-3/4+…+ N/(N+1)的结果(N=10).(3.26345)
题目
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
能不能改成用两个变量的?
答案
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 Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 地球下一个冰川期何时到?
- 乙烯与溴水反应是加成反应还是氧化反应啊
- (1)5×根号7-8×根号7(2)4×根号5-(根号6+2×根号5)
- 已知某烃的分子式为C8H10,且知为苯的同系物,请回答下列问题:若该烃硝化时,一硝基取代物只有一种
- 正常人的眼睛看远近不同的景物时,物距改变了,是通过改变晶状体的平凸程度从而改变焦距使像都呈现在视网膜上才能既看见远处景物也能看清近处景物的.小明想那到底是看远处景物时眼睛晶状体的焦距长还是看近处景物时
- 12点时,时针与分针重合,下一次时针与分针重合时几时几分?时针分针重合规律
- 小刚为书房房买灯,现在有两种灯可供选择
- 播种的作文
- 为什么摩擦力可以做功,不是说在力的方向上通过位移吗
- 师徒二人检修一条长180米的水管,师傅每小时检修15米,徒弟每小时检修10米,两人合作,需要多少小时完成
热门考点