m0_68950896 2022-03-31 16:50 采纳率: 100%
浏览 13
已结题

vb语言,实验中弄不明白了,请解答一下吧😭

【实验要求】
已知sum=1!-2!+3!-4!~10!,鼠标单击窗体,请将sum结果值输出到窗体上(要求:使用do whilel~loop语句完成程序)。

~为什么这么写显示堆栈溢出啊

Dim p As Integer 'p变量存放阶乘的值
Dim sum As Long

p = 1
Do While p <= 10
sum = sum + jc(p) * (-1) ^ (p - 1)
p = p + 1
Loop
Print sum
End Sub
Private Function jc(ByVal n As Long) As Long '阶乘
If p = 1 Then
jc = 1
Else
jc = p * jc(p - 1)
End If
End Function

~怎么写才能做成功啊

Private Sub Form_Click()
Dim p As Long 'p变量存放阶乘的值
Dim sum As Long

End
End Sub

img

  • 写回答

1条回答 默认 最新

  • 浪客 2022-03-31 21:17
    关注
    
    Private Function jc(ByVal n As Long) As Long '阶乘
    If n = 1 Then  '用n不是p
    jc = 1
    Else
    jc = n * jc(n - 1)
    End If
    End Function
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 4月8日
  • 已采纳回答 3月31日
  • 创建了问题 3月31日

悬赏问题

  • ¥15 visionmaster启动失败,提示为“机器不满足授权而被禁用”
  • ¥50 用logisim设计16位单时钟周期cpu
  • ¥15 IDEA中圈复杂度如何具体设置
  • ¥50 labview采集不了数据
  • ¥15 请上面代码做什么处理或什么混淆
  • ¥15 英雄联盟自定义房间置顶
  • ¥15 W5500网线插上无反应
  • ¥15 如何用字典的Key,显示在WPF的xaml中
  • ¥15 weautomate读取Excel表格信息然后填写到网页一直报错,如何解决?
  • ¥15 C#如何在Webview2中获取网页验证码