用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值 分别用自定义子过程和自定义函数过程

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 13:03:27
用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值 分别用自定义子过程和自定义函数过程

用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值 分别用自定义子过程和自定义函数过程
用vb计算1/2-1/3+1/4-1/5+...+1/n,n是文本框任意输入的值 分别用自定义子过程和自定义函数过程

用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