原 PO - 銘傳大學
Private Sub result_Click() If SP > 180 Then display = "第三期高血壓" ElseIf SP >= 160 Then display = "第二期高血壓" Elself SP >= 140 Then display = "第一期 高血壓" Elself SP >= 120 Then display = "高血壓前期" Else display = "正常血壓" End If If DP > 110 Then display = "第三期高血壓" ElseIf DP >= 100 Then display = "第二期高血壓" ElseIf DP >= 90 Then display = "第一期高血壓" ElseIf DP >= 80 Then display = "高血壓前期" display .Value = printer Else display = "正常血壓" End If End Sub