VBA 偏差値査定

Sub 偏差値査定()

Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long

a = InputBox("点数を入力してください")
b = InputBox("平均点を入力してください")
c = InputBox("標準偏差を入力してください")

d = (a - b) / c

e = 10 * d + 50

Call MsgBox("あなたの偏差値は" & e & "です")

End Sub