VB 编写一求阶乘的子函数，求C=n!/(m!*(n-m)!)值。即主函数调用3次子函数计算C的值并输出。

RT

Public Function jiecheng(ByVal n As Integer) As Integer
        Dim jc As Integer = 1
        For i = 1 To n
            jc = jc * i
        Next
        Return jc
    End Function
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim a As Integer, b As Integer
        a = Val(InputBox("请输入n"))
        b = Val(InputBox("请输入m"))
        Dim res As Double
        res = jiecheng(a) / (jiecheng(b) * jiecheng(a - b))
        TextBox6.Text = res.ToString
    End Sub

病情分析：乳腺炎初期主要是乳房的胀痛,局部皮温高、压痛,出现边界不清的硬结,有触痛。指导意见：乳腺炎基本上发病最高的是哺乳期的妇女，若服用口服药物的话，就会对用母乳喂养婴儿有所影响。若不治疗，对于哺乳期的妇女生活也会带来很大的困扰。一般此时都会建议采取中医药乳腺安康外治的疗法，因为中药乳腺安康大多都为植物药提取，并且外用不会对患者的身体内部有任何的影响，也能保证婴儿的喂养问题。 病情分析： 乳腺炎多是以乳房肿痛有时侯有发热，多是发生在哺乳期 指导意见： 我建议你最好是别紧张，注意尽量别挤压，饮食避免辛辣刺激，可以配合医生指导下外敷中药，如果正在哺乳期，可以使用吸奶器吸出剩余乳汁 病情分析： 1.急性单纯乳腺炎初期主要是乳房的胀痛,局部皮温高压痛,出现边界不清的硬结有触痛2.急性化脓性乳腺炎局部皮肤红肿热痛出现较明显的硬结触痛更加同时病人可出现寒战高热头痛无力脉快等全身虚状此时腋下可出现肿大的淋巴结有触痛化验血白细胞计数升高严重时可合并败血症 指导意见： 1抗生素：全身应用抗生素为防治严重感染及败血症根据细菌培养及药敏选用抗生素必要时静脉滴注抗生素2中药治疗：清热解毒剂早期乳腺炎的治疗初起阶段主要表现为乳汁淤积热毒内盛其治疗原则为解毒清热通乳消肿3内服药：可服瓜蒌牛蒡汤(瓜蒌牛蒡子天花粉黄芩陈皮栀子金银花柴胡连翘穿山甲漏芦气郁加橘叶川子)肿胀痛者加乳香没药赤勺4热敷：局部热敷或用鲜蒲公英银花叶各60克洗净加醋或酒少许捣烂外敷用宽布带或乳罩托起乳房 祝你早日康复

C=factorial（n）/(factorial(m)*factorial(n-m)) Private Function factorial(ByVal N As Long) As Double Dim i As Long Dim sum As Double sum = 1 For i = 1 To N sum = sum * i Next factorial = sum End Function

病情分析：乳腺炎初期主要是乳房的胀痛,局部皮温高、压痛,出现边界不清的硬结,有触痛。指导意见：乳腺炎基本上发病最高的是哺乳期的妇女，若服用口服药物的话，就会对用母乳喂养婴儿有所影响。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息