求VB小程序代码

242关注483浏览

编写程序求s=1+2!/2+3!/3+...+N!/N)的值输出到一个标签中,N从一个文本框输入...

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Kennedy

    18人对此回答表示赞同

    Private Sub Command1_Click()
    If Len(Text1) > 0 And IsNumeric(Text1) And Text1 <> "0" Then
    Dim i, s
    For i = 1 To Val(Text1)
    s = s + fc(i) / i
    Next
    MsgBox "
    展开
    18
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 李万里

    9人对此回答表示赞同

    Private Sub Command1_Click()
    Dim N As Long
    Dim i As Long
    Dim j As Long
    Dim s As Long
    Dim b As Long

    N = Val(Text1.Text)
    For i = 1 To N
    b = 1
    For j = 1 To i
    b = b * j
    Next j
    展开
    9
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 龙猫

    8人对此回答表示赞同

    无语……
    N!/N=(N-1)!
    展开
    8
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部