• 所有问题

    • 用vb语言编写程序：用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.

    如题所述

    举报该问题
    推荐答案   2013-05-26
    function sumfs(i as integer) as double
    dim sums as double,j as integer
    for j=1 to i
    sums=sums+1/j
    next
    sumfs=sums
    end function
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2013-05-28
    private Sub Command1_Click()
    S=0
    F I=1ton
    s=s+1/I
    next I Print"S=";S
    End Sub
    相似回答
    1+1/2+……+1/(n-1)+1/n的vb编程怎么写?答：ln（1＋x）　＆lt；　x　对一切　x＆gt；　0　成立nsuy于是：ln（（1＋1＆＃47；2）（1＋2＆＃47；4）（1＋3＆＃47；8）（1＋4＆＃47；16）……（1＋n＆＃47；2＾n））＝　ln（1＋　1＆＃47；2）　＋　．．．＋ln（1＋n＆＃47；2＾n）　＆lt；　1＆＃47；2＋．．．...
    编写一个vb程序计算1/1!+1/2!+…+1/n!,要求定义一个函数来计算n!。答：回答：function jiecheng(s) m=1 n=1 if s=1 then jiecheng=1 else for i=2 to s n=(i-1)*i m=m+1/n end for jiecheng=m end if end function 大概是这样的,很久没用过VB了,所以具体的一些细节记不清楚了
    VB编程计算S=1+1/2+1/3+1/4+...+1/n 要求最后一项不小于0.0001答：Private Sub Command1_Click()Dim s As Single n = Val(InputBox("输入 一个整数"))If 1 / n < 0.0001 Then MsgBox "1/n要不小于0.0001"Exit Sub End If For i = 1 To n s = s + 1 / i Next Print s End Sub
    VB 中编写函数fun(n),计算s=1+1/2!+1/3!+...+1/n!怎么写代码。求帮忙...答：楼主 把 VB 和 c 混了 看看这个 Function fun(ByVal n As Integer)As Single Dim i,t As Integer Dim s As Single t = 1 For i = 1 To n t = t i s = s + 1 / t Next i fun = s End Function 注意，调用 是 n不能太大了，否则 就得 改 dim t as long ...
    大家正在搜
    c语言编写函数求表达式的和编写函数表达式的和编写程序计算表达式的值c语言表达式求值编程编写程序计算a和b的和c语言表达式求值算法表达式求值c语言代码表达式求值程序说明简单表达式求解C语言