阑尾炎诊断程序.doc

1. 阑尾炎诊断程序 在一个慢性、急性、穿孔性阑尾炎的诊断过程中，经病理分析，归纳，对于各“体征”会出现几种不同的情况，如表所示。某医院根据7.2例对各体征的各种情况算出出现概率的估计值分别表示慢性、急性和穿孔性。又根据病历资料，得到诊断地区三种阑尾炎的发病率（可得其定值），根据表中提供的各体征的数据，试用贝叶斯统计方法，确定所属哪一类病。（提示：计算） 体 征 症状、化验等 腹疼开始部位 右下腹 67% 17% 11% 下 腹 2% 4% 5% 上 腹 15% 29% 42% 脐 周 12% 38% 23% 全 腹 5% 11% 15% 恶心呕吐 恶心-，呕吐+ 33% 31% 12% 恶心+，呕吐- 53% 39% 28% 呕 吐+ 15% 40% 60% 大 便 正常便 86% 74% 53% 非正常便 11% 13% 25% 腹 泻 3% 13% 22% 压疼范围 右下腹 98% 91% 61% 大于右腹 2% 9% 39% 体 温 ℃ 70% 29% 9% 37℃—38℃ 27% 54% 32% ℃ 3% 17% 59% 白细胞数 70% 9% 16% 10,000—15,000 20% 11% 28% 10% 80% 56% 肌紧张和反跳疼 肌紧张+ 10% 57% 92% 肌紧张-，反跳疼+ 37% 32% 4% 肌紧张-，反跳疼- 52% 11% 4% 例如上腹疼，则知 程序界面如图： 七种症状各用一个单选框进行确定，默认均为第一个选择。三个文本框用以输入本地区已知的三种阑尾炎的发病率，即公式中的。i＝１～３，对应的取值不同，取i中最大的一个。程序代码如下： Dim sum(6, 2), tz1(4, 2) As Single, tz2(2, 2), tz3(2, 2), tz4(1, 2), tz5(2, 2), tz6(2, 2), tz7(2, 2) As Single Private Sub Command1_Click() For i = 0 To 4 If Option1(i).Value = True Then sum(0, 0) = tz1(i, 0): sum(0, 1) = tz1(i, 1): sum(0, 2) = tz1(i, 2) End If Next For i = 0 To 2 If Option2(i).Value = True Then sum(1, 0) = tz2(i, 0): sum(1, 1) = tz2(i, 1): sum(1, 2) = tz2(i, 2) End If Next For i = 0 To 2 If Option3(i).Value = True Then sum(2, 0) = tz3(i, 0): sum(2, 1) = tz3(i, 1): sum(2, 2) = tz3(i, 2) End If Next For i = 0 To 1 If Option4(i).Value = True Then sum(3, 0) = tz4(i, 0): sum(3, 1) = tz4(i, 1): sum(3, 2) = tz4(i, 2) End If Next For i = 0 To 2 If Option5(i).Value = True Then sum(4, 0) = tz5(i, 0): sum(4, 1) = tz5(i, 1): sum(4, 2) = tz5(i, 2) End If Next For i = 0 To 2 If Option6(i).Value = True Then sum(5, 0) = tz6(i, 0): sum(5, 1) = tz6(i, 1): sum(5, 2) = tz6(i, 2) End If Next For i = 0 To 2 If Option7(i).Value = True Then sum(6, 0) = tz7(i, 0): sum(6, 1) = tz7(i, 1): sum(6, 2) = tz7(i, 2) End If Next For i = 0 To 2 If Text1(i).Text = Then MsgBox 请输入已知的本地区发病率！, 16, 错误 Exit Sub