vb循环语句的题目:计算3-1/2+2/3-3/4+…+ N/(N+1)的结果(N=10).(3.26345)我是这么写的:For n = 1 To 10m = n / (n + 1)o = m * (-1) ^ nk = k + oNext nPrint "k="; k + 3但老师说这不够简洁.劳烦诸位给修改啦!
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/17 23:19:03
![vb循环语句的题目:计算3-1/2+2/3-3/4+…+ N/(N+1)的结果(N=10).(3.26345)我是这么写的:For n = 1 To 10m = n / (n + 1)o = m * (-1) ^ nk = k + oNext nPrint](/uploads/image/z/1768714-34-4.jpg?t=vb%E5%BE%AA%E7%8E%AF%E8%AF%AD%E5%8F%A5%E7%9A%84%E9%A2%98%E7%9B%AE%EF%BC%9A%E8%AE%A1%E7%AE%973%EF%BC%8D1%2F2%2B2%2F3-3%2F4%2B%E2%80%A6%2B+N%2F%EF%BC%88N%2B1%EF%BC%89%E7%9A%84%E7%BB%93%E6%9E%9C%EF%BC%88N%3D10%EF%BC%89.%EF%BC%883.26345%EF%BC%89%E6%88%91%E6%98%AF%E8%BF%99%E4%B9%88%E5%86%99%E7%9A%84%EF%BC%9AFor+n+%3D+1+To+10m+%3D+n+%2F+%28n+%2B+1%29o+%3D+m+%2A+%28-1%29+%5E+nk+%3D+k+%2B+oNext+nPrint+%22k%3D%22%3B+k+%2B+3%E4%BD%86%E8%80%81%E5%B8%88%E8%AF%B4%E8%BF%99%E4%B8%8D%E5%A4%9F%E7%AE%80%E6%B4%81.%E5%8A%B3%E7%83%A6%E8%AF%B8%E4%BD%8D%E7%BB%99%E4%BF%AE%E6%94%B9%E5%95%A6%21)
vb循环语句的题目:计算3-1/2+2/3-3/4+…+ N/(N+1)的结果(N=10).(3.26345)我是这么写的:For n = 1 To 10m = n / (n + 1)o = m * (-1) ^ nk = k + oNext nPrint "k="; k + 3但老师说这不够简洁.劳烦诸位给修改啦!
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
能不能改成用两个变量的?
vb循环语句的题目:计算3-1/2+2/3-3/4+…+ N/(N+1)的结果(N=10).(3.26345)我是这么写的:For n = 1 To 10m = n / (n + 1)o = m * (-1) ^ nk = k + oNext nPrint "k="; k + 3但老师说这不够简洁.劳烦诸位给修改啦!
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