VB编程 Dim sum As Double,x As Double sum = 0 x = 0 For i = 1 T
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/30 12:35:30
VB编程 Dim sum As Double,x As Double sum = 0 x = 0 For i = 1 To 5 x = n / i n=n+1 sum=sum+x next
print"结果为",sum 为什么结果是1/2+2/3+3/4+4/5而不是1+1/2+2/3+3/4+4/5
print"结果为",sum 为什么结果是1/2+2/3+3/4+4/5而不是1+1/2+2/3+3/4+4/5
'当i=1 时,x=n/i=0/1
'当i=2 时,x=n/i=1/2
'当i=3 时,x=n/i=2/3
'当i=4 时,x=n/i=3/4
'当i=5 时,x=n/i=4/5
再问: 你的意思是先算x=n+1 再算n=n+1 是吗?
再答: Private Sub Command1_Click()'因为你第一个数的规律和其它数不同,所以第一个数要分开算 Dim sum As Double, x As Double sum = 1 '改为1 x = 0 For i = 2 To 5 '从2开始 n = n + 1'对调顺序 x = n / i sum = sum + x Next Print sum End Sub
'当i=2 时,x=n/i=1/2
'当i=3 时,x=n/i=2/3
'当i=4 时,x=n/i=3/4
'当i=5 时,x=n/i=4/5
再问: 你的意思是先算x=n+1 再算n=n+1 是吗?
再答: Private Sub Command1_Click()'因为你第一个数的规律和其它数不同,所以第一个数要分开算 Dim sum As Double, x As Double sum = 1 '改为1 x = 0 For i = 2 To 5 '从2开始 n = n + 1'对调顺序 x = n / i sum = sum + x Next Print sum End Sub
VB编程 Dim sum As Double,x As Double sum = 0 x = 0 For i = 1 T
dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s
double sum=0 与double sum=0.0
33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As
sum += 1.0/(double)
Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)=
VB dim x as integer dim i as integer x = 100 for i = 1 to 10
double f(double x); {double a=0;int i; for (i=0;i
main() { double x,n,sum=0; scanf("%lf",&n); if (((int)n%2)!=
求pi的近似值#include #include void main() { int i=1; double sum=0
VB中的Dim sum As Integer语句
能不能再帮我看一道题sum Fun (a() as integer,x as integer) for i = 1 to