用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值 分别用自定义子过程和自定义函数过程
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/28 21:32:38
用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值 分别用自定义子过程和自定义函数过程
Private Sub zgc(x, diff)
Dim i As Integer
For i = 3 To x
If i Mod 2 Then
diff = diff - 1 / i
Else
diff = diff + 1 / i
End If
Next i
End Sub
Private Function zhs(x) As Double
Dim i As Integer
For i = 3 To x
If i Mod 2 Then
diff = diff - 1 / i
Else
diff = diff + 1 / i
End If
Next i
zhs = diff
End Function
Private Sub Command1_Click()
Dim diff As Double
diff = 0
zgc Val(Text1.Text), diff
Print "子过程:"; diff
diff = 0
diff = zhs(Val(Text1.Text))
Print "子函数:"; diff
End Su
Dim i As Integer
For i = 3 To x
If i Mod 2 Then
diff = diff - 1 / i
Else
diff = diff + 1 / i
End If
Next i
End Sub
Private Function zhs(x) As Double
Dim i As Integer
For i = 3 To x
If i Mod 2 Then
diff = diff - 1 / i
Else
diff = diff + 1 / i
End If
Next i
zhs = diff
End Function
Private Sub Command1_Click()
Dim diff As Double
diff = 0
zgc Val(Text1.Text), diff
Print "子过程:"; diff
diff = 0
diff = zhs(Val(Text1.Text))
Print "子函数:"; diff
End Su
用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值 分别用自定义子过程和自定义函数过程
VB自定义一个计算阶乘的函数过程fac(n),调用该函数过程计算s=1!+2!+3!+4!+5!+…+n!
求解一道关于函数的vb题目用自定义函数过程,输入x,n,系数An,计算并输出函数的值.y=
vfp自定义一个求n!的函数,并利用该自定义函数计算:s=1!+3!+5!+7!+9!
程序设计:主函数的功能是输入整数n,k,计算并输出多项式1k+2k+…ik+…前n项的和.自定义函数power(m,n)
求1+(1+2)+(1+2+3)+(1+2+3+…+n)+…的值.N的值由文本框输入.用vb语言
VB编程:编递归函数过程,计算1+2+3……..+n的值(n是自然数)
VB中编写一个子过程,计算1*3+2*4+3*5+····+(n-2)*n的值
利用SQL创建带参数的存过过程,计算1+2+3+……+N的和,其中N是任意输入的参数.
【VB】用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.
VFP自定义方法制作表单,计算函数F(N)=1+1/2+1/3+……1/N,正整数由用户自定
用vb语言计算1!+2!+3!+…+10!,其中阶乘的计算分别用过程和函数实现.