Question

vb 溢出堆栈空间，求大神来解救，看看我哪错了

Function jch(x As Integer) As Double
If x = 1 Then
jch = 1
Else
jch = x * jch(x - 1)
End If

End Function

Private Sub Command1_Click()
Dim m As Integer, n As Integer, c As Long
m = Val(Text1.Text)
n = Text2.Text
Text3.Text = c
c = jch(m) / (jch(n) * jch(m - n))

End Sub

Answer 1

病情分析：
你好，小孩咳嗽可以考虑吃些小儿肺宁颗粒的，但应该注重同时使用抗菌消炎的药物，能够配合雾化吸入更好。
指导意见：
当然日常生活习惯也要注意，不吃辛辣多喝水来积极预防上火。

病情分析：
您好！可以煮白萝卜水喝，也可以煮些冰糖梨水喝，有助于止咳，若咳嗽明显，要及时用药预防加重，可以用小儿止咳化痰颗粒、阿莫西林颗粒治疗
指导意见：
要多喂水，不要吃得太咸，不要吃辛辣刺激食物，注意保暖

病情分析：
你好，宝宝九个月了，可以喝白萝卜水，但是不能喝蜂蜜水。宝宝现在咳嗽，你可以根据宝宝的咳嗽情况，选择药物治疗。
指导意见：
你好，你可以给宝宝吃鲜竹沥治疗咳嗽。当然，白萝卜可以喝。或者是喝冰糖梨水。

Answer 2

看你的这个递归方法是用来求阶乘的吧？

如果递归过深就会堆栈溢出。比如你输入了一个很大的 x 的值，或者 x 值小于 1 导致了无限递归。