用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值 分别用自定义子过程和自定义函数过程
来源:学生作业学帮网 编辑:学帮网 时间:2024/07/07 00:30:28
用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 Sub
用VB编写程序.计算1+2+3+.+100
VB,计算S=1!+2!+3!+4!+5!的程序.
VB计算1!+2!+3!+…+n!的和
用VB编写 VB计算公式S=1+1/3+1/5+1/7+.+1/2n-1的和,当第n项的值
vb编程.会的来.感激不尽~vb 【循环结构】编程计算【s=1+2+3++100的值】
vb程序里计算1/1!+1/2!+1/3!+1/4!+.+1/n!
用VB计算S=1+2^2+2^3+…+2^10的代码
VB编程实现s=1-2+3-4+...+97-98+99-100的计算
vb编一个计算1+2+3+4+...+100=的程序运用计数循环结构
如何用VB计算1+2+3+4+……+1000?
用VB编写程序,计算1!+2!+3!+……+15!的值.
用VB程序写出计算s=1!+2!+3!+…+50!的值.
VB中计算1+1/1!+1/2!+1/3!+.+1/10!怎么计算
计算s=1-2x2/3!+4x4/5!-6x6/7!+…的VB程序
计算数列1、2、3、4…… 9999中能被13整除的整数个数.用VB编程
用vb语言计算1!+2!+3!+…+10!,其中阶乘的计算分别用过程和函数实现.
用vb 计算 1*2*3*...*10.即从1乘到10:1×2×3×4×5×6×7×8×9×10=?
用VB编写一个Sub子程序,计算并输出 x=1+1/2+2/3+3/4+4/5······99/100