Sub b（）
Select Case [b1].Value
Case "A"
MsgBox "您是A型血，非常不错的血型"
Case "B"
MsgBox "B型血也是个不错的血型！"
Case "AB"
MsgBox "您是万能受血者！"
Case "O"
MsgBox "您是万能施血者！"
Case Else
MsgBox "对不起，没有您这种血型！"
End Select
End Sub
Select Case [b1].Value
Case "A"
MsgBox "您是A型血，非常不错的血型"
Case "B"
MsgBox "B型血也是个不错的血型！"
Case "AB"
MsgBox "您是万能受血者！"
Case "O"
MsgBox "您是万能施血者！"
Case Else
MsgBox "对不起，没有您这种血型！"
End Select
End Sub
本站有权保留或删除有争议评论。 参与本评论即表明您已经阅读并接受上述条款。