Dim standard, height, weight As Integer
Dim sex, evaluation As String
If sex = "M" Then
standard = (height - 80) * 0.7
Else
standard = (height - 70) * 0.6
End If
Select Case weight - standard
Case Is > 0
evaluation = "太胖"
Case Is < 0
evaluation = "太瘦"
Case Else
evaluation = "適中"
End Select
(A) 小明和小華 evaluation 的結果都是"太瘦"
(B) 小明和小華 evaluation 的結果都是"太胖"
(C) 小明 evaluation 的結果為"適中",而小華 evaluation 的結果為"太胖"
(D) 小明 evaluation 的結果為"太瘦",而小華 evaluation 的結果為"適中"
的