ユーザーフォームの作成は抜粋します。
(作り方は、BMI値の算出を参照して下さい)
最初に、三高の基準となる設定をします
'変数宣言
Dim atai1 As Integer
Dim atai2 As Integer
Dim atai3 As Integer
'入力
atai1 = a.Value
atai2 = b.Value
atai3 = c.Value
'条件処理
If a > 80 Then
MsgBox "よく出来ました"
Else
MsgBox "偏差値は普通です"
End If
If b > 180 Then
MsgBox "背高いですね"
Else
MsgBox "身長は普通です"
End If
If c > 1000 Then
MsgBox "高収入ですね"
Else
MsgBox "収入は普通です"
End If
End Sub
