📄 阑尾炎诊断.frm
字号:
Width = 1815
Begin VB.OptionButton Option3
Caption = "腹泻"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 360
TabIndex = 22
Top = 1080
Width = 1215
End
Begin VB.OptionButton Option3
Caption = "非正常便"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 360
TabIndex = 21
Top = 720
Width = 1215
End
Begin VB.OptionButton Option3
Caption = "正常便"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 360
TabIndex = 20
Top = 360
Value = -1 'True
Width = 1215
End
End
Begin VB.Frame Frame2
Caption = "恶心呕吐"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1695
Left = 2520
TabIndex = 1
Top = 360
Width = 1815
Begin VB.OptionButton Option2
Caption = "呕吐"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 360
TabIndex = 19
Top = 1080
Width = 1215
End
Begin VB.OptionButton Option2
Caption = "恶心"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 360
TabIndex = 18
Top = 720
Width = 1215
End
Begin VB.OptionButton Option2
Caption = "无"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 360
TabIndex = 17
Top = 360
Value = -1 'True
Width = 1215
End
End
Begin VB.Frame Frame1
Caption = "腹疼开始部位"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3375
Left = 360
TabIndex = 0
Top = 360
Width = 1815
Begin VB.OptionButton Option1
Caption = "全腹"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 360
TabIndex = 16
Top = 2280
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "脐周"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 360
TabIndex = 15
Top = 1800
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "上腹"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 360
TabIndex = 14
Top = 1320
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "下腹"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 360
TabIndex = 13
Top = 840
Width = 1095
End
Begin VB.OptionButton Option1
Caption = "右下腹"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 360
TabIndex = 12
Top = 360
Value = -1 'True
Width = 1095
End
End
Begin VB.Label Label4
Caption = "穿孔性："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6480
TabIndex = 10
Top = 4560
Width = 735
End
Begin VB.Label Label3
Caption = "急性："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4320
TabIndex = 9
Top = 4560
Width = 615
End
Begin VB.Label Label2
Caption = "慢性："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2400
TabIndex = 8
Top = 4560
Width = 615
End
Begin VB.Label Label1
Caption = "本地区三种阑尾炎的发病率"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 7
Top = 4440
Width = 1455
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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
End If
Next
For i = 0 To 2
If Text1(i).Text > 1 Or Text1(i).Text < 0 Then
MsgBox "请输入正确的数值！", 16, "错误"
Exit Sub
End If
Next
Dim PDX, P(2), PD(2), P3 As Single
For i = 0 To 2
PD(i) = Text1(i).Text
Next
For i = 0 To 2
P(i) = PD(i) * sum(0, i) * sum(1, i) * sum(2, i) * sum(3, i) * sum(4, i) * sum(5, i) * sum(6, i)
Next
P3 = P(0) + P(1) + P(2)
P(0) = P(0) / P3: P(1) = P(1) / P3: P(2) = P(2) / P3
If P(0) >= P(1) Then
If P(1) >= P(2) Then
PDX = P(0): Text2.Text = "慢性阑尾炎"
Else: PDX = P(2): Text2.Text = "穿孔性阑尾炎"
End If
ElseIf P(1) >= P(2) Then
PDX = P(1): Text2.Text = "急性阑尾炎"
Else: PDX = P(2): Text2.Text = "穿孔性阑尾炎"
End If
End Sub
Private Sub Command2_Click()
Unload Form1
Load Form2
Form2.Show
End Sub
Private Sub Command3_Click()
Unload Form1
Load Form3
Form3.Show
End Sub
Private Sub Form_Load()
tz1(0, 0) = 0.67: tz1(0, 1) = 0.17: tz1(0, 2) = 0.11: tz1(1, 0) = 0.02: tz1(1, 1) = 0.04: tz1(1, 2) = 0.05
tz1(2, 0) = 0.15: tz1(2, 1) = 0.29: tz1(2, 2) = 0.42: tz1(3, 0) = 0.12: tz1(3, 1) = 0.38: tz1(3, 2) = 0.23
tz1(4, 0) = 0.05: tz1(4, 1) = 0.11: tz1(4, 2) = 0.15
tz2(0, 0) = 0.33: tz2(0, 1) = 0.31: tz2(0, 2) = 0.12: tz2(1, 0) = 0.53: tz2(1, 1) = 0.39: tz2(1, 2) = 0.28
tz2(2, 0) = 0.15: tz2(2, 1) = 0.4: tz2(2, 2) = 0.6
tz3(0, 0) = 0.86: tz3(0, 1) = 0.74: tz3(0, 2) = 0.53: tz3(1, 0) = 0.11: tz3(1, 1) = 0.13: tz3(1, 2) = 0.25
tz3(2, 0) = 0.03: tz3(2, 1) = 0.13: tz3(2, 2) = 0.22
tz4(0, 0) = 0.98: tz4(0, 1) = 0.91: tz4(0, 2) = 0.61: tz4(1, 0) = 0.02: tz4(1, 1) = 0.09: tz4(1, 2) = 0.09
tz5(0, 0) = 0.7: tz5(0, 1) = 0.29: tz5(0, 2) = 0.09: tz5(1, 0) = 0.27: tz5(1, 1) = 0.54: tz5(1, 2) = 0.32
tz5(2, 0) = 0.03: tz5(2, 1) = 0.17: tz5(2, 2) = 0.59
tz6(0, 0) = 0.7: tz6(0, 1) = 0.09: tz6(0, 2) = 0.16: tz6(1, 0) = 0.2: tz6(1, 1) = 0.11: tz6(1, 2) = 0.28
tz6(2, 0) = 0.1: tz6(2, 1) = 0.8: tz6(2, 2) = 0.56
tz7(0, 0) = 0.1: tz7(0, 1) = 0.57: tz7(0, 2) = 0.92: tz7(1, 0) = 0.37: tz7(1, 1) = 0.32: tz7(1, 2) = 0.04
tz7(2, 0) = 0.52: tz7(2, 1) = 0.11: tz7(2, 2) = 0.04
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -